-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathRhode_Island_SGP_2024_2025.R
More file actions
74 lines (63 loc) · 4.35 KB
/
Rhode_Island_SGP_2024_2025.R
File metadata and controls
74 lines (63 loc) · 4.35 KB
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
################################################################################
### ###
### Rhode_Island SGP analyses for 2024-2025 ###
### ###
################################################################################
### Load packages
require(SGP)
require(SGPmatrices)
### Load data
load("Data/Rhode_Island_SGP.Rdata")
load("Data/Rhode_Island_Data_LONG_2024_2025.Rdata")
### Add Baseline matrices to SGPstateData
SGPstateData <- addBaselineMatrices("RI", "2024_2025")
SGPstateData[["RI"]][["SGP_Configuration"]][["print.other.gp"]] <- TRUE
#quantile(Rhode_Island_Data_LONG_2024_2025[VALID_CASE=="VALID_CASE" & CONTENT_AREA=="ELA" & GRADE=="3"]$SCALE_SCORE, probs=c(0.0, 0.2, 0.4, 0.6, 0.8, 1.0)) #c(-1.677, -0.780, -0.087, 0.646)
#SGPstateData$RI$Achievement$Knots_Boundaries$ELA$knots_3 <- c(-1.1, -0.20, 0.20, 0.70)
#quantile(Rhode_Island_Data_LONG_2024_2025[VALID_CASE=="VALID_CASE" & CONTENT_AREA=="ELA" & GRADE=="7"]$SCALE_SCORE, probs=c(0.0, 0.2, 0.4, 0.6, 0.8, 1.0))
#SGPstateData$RI$Achievement$Knots_Boundaries$ELA$knots_7 <- quantile(Rhode_Island_Data_LONG_2024_2025[VALID_CASE=="VALID_CASE" & CONTENT_AREA=="ELA" & GRADE=="7"]$SCALE_SCORE, probs=c(0.1, 0.2, 0.4, 0.6, 0.8))
#quantile(Rhode_Island_Data_LONG_2024_2025[VALID_CASE=="VALID_CASE" & CONTENT_AREA=="MATHEMATICS" & GRADE=="7"]$SCALE_SCORE, probs=c(0.2, 0.4, 0.6, 0.8))
#SGPstateData$RI$Achievement$Knots_Boundaries$MATHEMATICS$knots_7 <- quantile(Rhode_Island_Data_LONG_2024_2025[VALID_CASE=="VALID_CASE" & CONTENT_AREA=="MATHEMATICS" & GRADE=="7"]$SCALE_SCORE, probs=c(0.2, 0.4, 0.6, 0.8))
#quantile(Rhode_Island_Data_LONG_2024_2025[VALID_CASE=="VALID_CASE" & CONTENT_AREA=="ELA_PSAT_10"]$SCALE_SCORE, probs=c(0.2, 0.4, 0.6, 0.8)) c(360, 410, 470, 540)
SGPstateData$RI$Achievement$Knots_Boundaries$ELA_PSAT_10$knots_EOCT <- c(300, 420, 580, 680)
#quantile(Rhode_Island_Data_LONG_2024_2025[VALID_CASE=="VALID_CASE" & CONTENT_AREA=="MATHEMATICS_PSAT_10"]$SCALE_SCORE, probs=c(0.2, 0.4, 0.6, 0.8)) c(370, 410, 450, 500)
SGPstateData$RI$Achievement$Knots_Boundaries$MATHEMATICS_PSAT_10$knots_EOCT <- c(300, 420, 630, 700)
#quantile(Rhode_Island_Data_LONG_2024_2025[VALID_CASE=="VALID_CASE" & CONTENT_AREA=="ELA_SAT"]$SCALE_SCORE, probs=c(0.2, 0.4, 0.6, 0.8)) c(390, 440, 500, 580)
SGPstateData$RI$Achievement$Knots_Boundaries$ELA_SAT$knots_EOCT <- c(390, 440, 500, 580)
#quantile(Rhode_Island_Data_LONG_2024_2025[VALID_CASE=="VALID_CASE" & CONTENT_AREA=="MATHEMATICS_SAT"]$SCALE_SCORE, probs=c(0.2, 0.4, 0.6, 0.8)) c(370, 420, 480, 540)
SGPstateData$RI$Achievement$Knots_Boundaries$MATHEMATICS_SAT$knots_EOCT <- c(370, 420, 480, 540)
### Read in SGP Configuration Scripts and Combine
source("SGP_CONFIG/2024_2025/ELA_RICAS.R")
source("SGP_CONFIG/2024_2025/ELA_SAT.R")
source("SGP_CONFIG/2024_2025/MATHEMATICS_RICAS.R")
source("SGP_CONFIG/2024_2025/MATHEMATICS_SAT.R")
RI_Config_2024_2025 <- c(
ELA_RICAS_2024_2025.config,
ELA_SAT_2024_2025.config,
MATHEMATICS_RICAS_2024_2025.config,
MATHEMATICS_SAT_2024_2025.config
)
### Parameters
parallel.config <- list(BACKEND="PARALLEL", WORKERS=list(PERCENTILES=4, BASELINE_PERCENTILES=4, PROJECTIONS=4, LAGGED_PROJECTIONS=4, SGP_SCALE_SCORE_TARGETS=4))
#####
### Run updateSGP analysis for cohort referenced SGPs
#####
Rhode_Island_SGP <- updateSGP(
what_sgp_object = Rhode_Island_SGP,
with_sgp_data_LONG = Rhode_Island_Data_LONG_2024_2025,
steps = c("prepareSGP", "analyzeSGP", "combineSGP", "outputSGP"),
sgp.config = RI_Config_2024_2025,
sgp.percentiles = TRUE,
sgp.projections = TRUE,
sgp.projections.lagged = TRUE,
sgp.percentiles.baseline = TRUE,
sgp.projections.baseline = TRUE,
sgp.projections.lagged.baseline = TRUE,
save.intermediate.results = FALSE,
parallel.config = parallel.config
)
### Test
print(Rhode_Island_SGP@Data[YEAR=="2024_2025", list(MEAN_SGP=mean(SGP, na.rm=TRUE), MEDIAN_SGP=median(SGP, na.rm=TRUE)), keyby=c("CONTENT_AREA", "GRADE")])
print(Rhode_Island_SGP@Data[YEAR=="2024_2025", list(MEAN_SGP_BASELINE=mean(SGP_BASELINE, na.rm=TRUE), MEDIAN_SGP_BASELINE=median(SGP_BASELINE, na.rm=TRUE)), keyby=c("CONTENT_AREA", "GRADE")])
### Save results
save(Rhode_Island_SGP, file="Data/Rhode_Island_SGP.Rdata")