Hawaii/Hawaii_SGP_Baseline_2019_A_Matrix_Calculations.R at master · CenterForAssessment/Hawaii · 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
################################################################################
###                                                                          ###
###       Hawaii Learning Loss Analyses -- Create Baseline Matrices        ###
###                                                                          ###
################################################################################

### Load necessary packages
require(SGP)

###   Load the results data from the 'official' 2019 SGP analyses
load("Data/Archive/2019_PreCOVID/Hawaii_SGP_LONG_Data.Rdata")

###   Create a smaller subset of the LONG data to work with.
Hawaii_Baseline_Data <- data.table::data.table(Hawaii_SGP_LONG_Data[YEAR >= 2015,
	c("ID", "CONTENT_AREA", "YEAR", "GRADE", "SCALE_SCORE", "ACHIEVEMENT_LEVEL", "VALID_CASE"),])

###   Read in Baseline SGP Configuration Scripts and Combine
source("SGP_CONFIG/2019/BASELINE/Matrices/READING.R")
source("SGP_CONFIG/2019/BASELINE/Matrices/MATHEMATICS.R")

HI_BASELINE_CONFIG <- c(
	READING_BASELINE.config,
	MATHEMATICS_BASELINE.config
)


###   Create Baseline Matrices

Hawaii_SGP <- prepareSGP(Hawaii_Baseline_Data, create.additional.variables=FALSE)

HI_Baseline_Matrices <- baselineSGP(
				Hawaii_SGP,
				sgp.baseline.config=HI_BASELINE_CONFIG,
				return.matrices.only=TRUE,
				calculate.baseline.sgps=FALSE,
				goodness.of.fit.print=FALSE,
				parallel.config = list(
					BACKEND="PARALLEL", WORKERS=list(TAUS=4))
)

###   Save results

save(HI_Baseline_Matrices, file="Data/HI_Baseline_Matrices.Rdata")