-
Notifications
You must be signed in to change notification settings - Fork 0
/
WIDA_CO_SGP_2018.R
58 lines (45 loc) · 1.5 KB
/
WIDA_CO_SGP_2018.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
##########################################################################################
###
### Script for calculating SGPs for 2017-2018 for WIDA-ACCESS
###
##########################################################################################
### Load SGP package
require(SGP)
require(data.table)
### Load Data
load("Data/WIDA_CO_Data_LONG.Rdata")
load("Data/WIDA_CO_Data_LONG_2018.Rdata")
WIDA_CO_Data_LONG <- rbindlist(list(WIDA_CO_Data_LONG[YEAR == "2017" & CONTENT_AREA == "READING"], WIDA_CO_Data_LONG_2018), fill = TRUE)
### Run analyses
WIDA_CO_SGP <- abcSGP(
WIDA_CO_Data_LONG,
steps=c("prepareSGP", "analyzeSGP", "combineSGP", "summarizeSGP", "outputSGP"),
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=FALSE,
sgp.target.scale.scores=TRUE,
save.intermediate.results=FALSE,
sgPlot.demo.report=TRUE,
parallel.config=list(
BACKEND="PARALLEL",
WORKERS=list(
PERCENTILES=6,
PROJECTIONS=6,
LAGGED_PROJECTIONS=6,
SGP_SCALE_SCORE_TARGETS=6,
SUMMARY=6)))
### Save results
save(WIDA_CO_SGP, file="Data/WIDA_CO_SGP.Rdata")
### Create Student Reports
visualizeSGP(
WIDA_CO_SGP,
plot.types="studentGrowthPlot",
sgPlot.years='2018',
sgPlot.content_areas="READING",
# sgPlot.year.span=3, # Now in SGPstateData
sgPlot.demo.report=TRUE,
parallel.config=list(BACKEND="PARALLEL", WORKERS=list(SG_PLOTS=6)))