Arizona/Arizona_SGP_2024_PART_2.R at master · CenterForAssessment/Arizona · GitHub

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
75
76
77
78
79
80
81
82
######################################################################################
###                                                                                ###
###                Arizona SGP UPDATE analyses for 2024                            ###
###                August 2024 update with updated 2024 data                       ###
###                                                                                ###
######################################################################################

###   Load packages
require(SGP)
require(SGPmatrices)

### Load SGP object data
load("Data/Arizona_SGP.Rdata")
load("Data/Arizona_Data_LONG_2024.Rdata")

###   Add Baseline matrices to SGPstateData
SGPstateData <- addBaselineMatrices("AZ", "2024")

###   Read in SGP Configuration Scripts and Combine
source("SGP_CONFIG/2024/ELA.R")
source("SGP_CONFIG/2024/ELA_BASELINE.R")
source("SGP_CONFIG/2024/MATHEMATICS.R")
source("SGP_CONFIG/2024/MATHEMATICS_BASELINE.R")

AZ_CONFIG <- c(ELA_2024.config, MATHEMATICS_2024.config)
AZ_CONFIG_BASELINE <- c(ELA_2024_BASELINE.config, MATHEMATICS_2024_BASELINE.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 cohort-referenced abcSGP analysis
#####

Arizona_SGP <- updateSGP(
        what_sgp_object = Arizona_SGP,
        with_sgp_data_LONG = Arizona_Data_LONG_2024,
        steps = c("prepareSGP", "analyzeSGP", "combineSGP"),
        sgp.config = AZ_CONFIG,
        sgp.percentiles = TRUE,
        sgp.projections = TRUE,
        sgp.projections.lagged = TRUE,
        sgp.percentiles.baseline = FALSE,
        sgp.projections.baseline = FALSE,
        sgp.projections.lagged.baseline = FALSE,
        save.intermediate.results = FALSE,
        sgp.use.my.coefficient.matrices = TRUE,
        parallel.config = parallel.config
)


#####
###   Run baseline-referenced abcSGP analysis
#####

SGPstateData[["AZ"]][["SGP_Configuration"]][["grade.projection.sequence"]] <- list(
	ELA=c("3", "4", "5", "6", "7", "8"),
	MATHEMATICS=c("3", "4", "5", "6", "7", "8"))
SGPstateData[["AZ"]][["SGP_Configuration"]][["content_area.projection.sequence"]] <- list(
	ELA=rep("ELA", 6),
	MATHEMATICS=rep("MATHEMATICS", 6))
SGPstateData[["AZ"]][["SGP_Configuration"]][["year_lags.projection.sequence"]] <- list(
	ELA=rep(1L, 5),
	MATHEMATICS=rep(1L, 5))


Arizona_SGP <- abcSGP(
        sgp_object = Arizona_SGP,
        steps = c("prepareSGP", "analyzeSGP", "combineSGP", "outputSGP"),
        sgp.config = AZ_CONFIG_BASELINE,
        sgp.percentiles = FALSE,
        sgp.projections = FALSE,
        sgp.projections.lagged = FALSE,
        sgp.percentiles.baseline = TRUE,
        sgp.projections.baseline = TRUE,
        sgp.projections.lagged.baseline = TRUE,
        save.intermediate.results = FALSE,
        parallel.config = parallel.config
)

###   Save results
save(Arizona_SGP, file="Data/Arizona_SGP.Rdata")