Michigan District Analyses

Michigan_District_Analyses.R

######################################################################
###
### R script to run SGP analyses for Michigan
###
######################################################################

### Load packages

library("SGP")
library("data.table")


### Load data

Michigan_Data_LONG <-fread("Data/FLSH1115.csv", colClasses=rep("character", 9))
Michigan_Data_LONG$VALID_CASE <- "VALID_CASE"
Michigan_Data_LONG$SCALE_SCORE <- as.numeric(Michigan_Data_LONG$SCALE_SCORE)
Michigan_Data_LONG$DISTRICT_NUMBER <- NULL
Michigan_Data_LONG$SCHOOL_NAME <- NULL


### STEP 1: prepareSGP

Michigan_SGP <- prepareSGP(Michigan_Data_LONG, state = "MI")


### STEP 2: analyzeSGP

Michigan_SGP <- analyzeSGP(
                    Michigan_SGP,
                    years="2014_2015",
                    sgp.percentiles=TRUE,
                    sgp.projections=TRUE,
                    sgp.projections.lagged=TRUE,
                    sgp.percentiles.baseline=FALSE,
                    sgp.projections.baseline=FALSE,
                    sgp.projections.lagged.baseline=FALSE,
                    sgp.percentiles.equated=TRUE)

### STEP 3: combineSGP

Michigan_SGP <- combineSGP(Michigan_SGP, years="2014_2015")


### STEP 4: outputSGP

outputSGP(Michigan_SGP)