Calculation of SGPs using alternate quantiles

Decile SGPs

####################################################
##INSTALL SGP PACKAGE
####################################################

install.packages("devtools")
require(devtools)
install_github("dbetebenner/SGP")
require(SGP)


####################################################
##ESTIMATE DECILE SGP
####################################################

require(SGPdata)
sgp_g4 <- studentGrowthPercentiles(panel.data=sgpData,
                sgp.labels=list(my.year=2013, my.subject="Reading"),
#               sgp.quantiles=seq(.05,.95,by=.10),
                sgp.quantiles=1:9/10,
                convert.0and100=FALSE,
                subset.grade=4,
                num.prior=1)

####################################################
##LOOK AT OUTPUT
####################################################

table(sgp_g4$SGPercentiles$READING.2013$SGP)

dim(sgp_g4$Coefficient_Matrices$READING.2013$qrmatrix_4_1)
head(sgp_g4$Coefficient_Matrices$READING.2013$qrmatrix_4_1)