C

setwd("D:")
WP17 <- read.csv("D:MCAS17.csv")

WP18 <- read.csv("D:MCAS18.csv")

install.packages("dplyr")
library(dplyr)
m17 <- select(WP17, schtype, sprp_sch_name, highneeds, ecodis, gradesims, race, gender, eperpospts, mperpospts, ssubject, sperpospts, eScaleForm, mScaleForm, escaleds, mscaleds, sscaleds)

m18 <- select(WP18, schtype, sprp_sch_name, highneeds, ecodis, grade, race, gender, eperpospts, mperpospts, ssubject, sperpospts, eScaleForm, mScaleForm, escaleds, mscaleds, sscaleds)

names(m17)[5] <- "grade"

cols <- c("schtype","ecodis","sprp_sch_name", "highneeds", "grade", "race", "gender", "eScaleForm", "mScaleForm")

m17[cols] <- lapply(m17[cols], factor)

m18[cols] <- lapply(m18[cols], factor)

table(m17$race)

table(m18$race)

m17 <- m17[-which(m17$race == "N"),]

m17 <- m17[-which(m17$race == "P"),]

m17 <- m17[complete.cases(m17$highneeds),]

m17$race <- droplevels(m17$race)

m18 <- m18[-which(m18$race == "N"),]

m18 <- m18[-c(1453:1466),]

m18 <- m18[-which(m18$race == "P"),]

m18$race <- droplevels(m18$race)

names(m17)[2] <- "School Name"

names(m18)[2] <- "School Name"
















install.packages("rsconnect")
library(rsconnect)
setAccountInfo