-
Notifications
You must be signed in to change notification settings - Fork 2
/
WIDA_GA_SGP_2024.R
121 lines (111 loc) · 4.88 KB
/
WIDA_GA_SGP_2024.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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
#+ include = FALSE, purl = FALSE, eval = FALSE
###############################################################################
### ###
### Script to calculate SGPs for 2024 Georgia WIDA-ACCESS ###
### ###
###############################################################################
### Load required packages
require(data.table)
require(SGP)
### Load SGP object from 2023 analyses and 2024 cleaned/prepped long data
load("Data/WIDA_GA_SGP.Rdata")
load("Data/WIDA_GA_Data_LONG_2024.Rdata")
### Add baseline matrices to `SGPstateData`
SGPstateData <-
SGPmatrices::addBaselineMatrices(
state = "WIDA",
year = "2020",
add.matrices.to.which.state = "WIDA_GA"
)
### Run updateSGP to produce cohort and baseline referenced SGPs, etc.
WIDA_GA_SGP <-
updateSGP(
what_sgp_object = WIDA_GA_SGP,
with_sgp_data_LONG = WIDA_GA_Data_LONG_2024,
steps = c(
"prepareSGP", "analyzeSGP", "combineSGP",
"visualizeSGP", "outputSGP"
),
sgp.target.scale.scores = TRUE,
plot.types = "growthAchievementPlot",
outputSGP.output.type = c("LONG_Data", "LONG_FINAL_YEAR_Data"),
save.intermediate.results = FALSE,
parallel.config = list(
BACKEND = "PARALLEL",
WORKERS = list(
PERCENTILES = 11,
PROJECTIONS = 11,
LAGGED_PROJECTIONS = 11,
SGP_SCALE_SCORE_TARGETS = 11
)
)
)
#+ include = FALSE, purl = FALSE, eval = FALSE
### Add R session Info & Save results (`cfaDocs` version 0.0-1.12 or later)
source(
system.file(
"rmarkdown", "shared_resources", "rmd", "R_Session_Info.R",
package = "cfaDocs"
)
)
WIDA_GA_SGP@Version$session_platform <- list("2024" = session_platform)
WIDA_GA_SGP@Version$attached_pkgs <- list("2024" = attached_pkgs)
WIDA_GA_SGP@Version$namespace_pkgs<- list("2024" = namespace_pkgs)
### Save results
save(WIDA_GA_SGP, file = "Data/WIDA_GA_SGP.Rdata")
### Re-print SVGs from Mac - bad font in Linux...
# gofPrint(
# sgp_object = WIDA_GA_SGP,
# years = "2024",
# output_format = "SVG",
# output_path = "Goodness_of_Fit"
# )
#' ### Conduct SGP analyses
#'
#' Georgia currently uses cohort-referenced SGPs as the official student-level
#' English language proficiency growth metric. All SGPs were calculated
#' concurrently using the [`R` Software Environment](http://www.r-project.org)
#' in conjunction with the [`SGP` package](http://sgp.io). Broadly, the Georgia
#' WIDA ACCESS for ELLs analyses were completed in 5 steps.
#'
#' 1. `prepareSGP`
#' 2. `analyzeSGP`
#' 3. `combineSGP`
#' 4. `outputSGP`
#' 5. `visualizeSGP`
#'
#' Because these steps are almost always conducted simultaneously, the `SGP`
#' package has "wrapper" functions, `abcSGP` and `updateSGP`, that combine
#' the above steps into a single function call and simplify the source code
#' associated with the data analysis. Documentation for all SGP functions are
#' [available online.](https://cran.r-project.org/web/packages/SGP/SGP.pdf)
#'
#' We use the [`updateSGP`](https://www.rdocumentation.org/packages/SGP/versions/2.0-1.0/topics/updateSGP)
#' function to ***a)*** do the final preparation and addition of the cleaned and
#' formatted new annual data,
#' ([`prepareSGP`](https://www.rdocumentation.org/packages/SGP/versions/2.0-1.0/topics/prepareSGP)
#' step), ***b)*** calculate SGP estimates
#' ([`analyzeSGP`](https://www.rdocumentation.org/packages/SGP/versions/2.0-1.0/topics/analyzeSGP)
#' step), ***c)*** merge the results into the master longitudinal data set
#' ([`combineSGP`](https://www.rdocumentation.org/packages/SGP/versions/2.0-1.0/topics/combineSGP)
#' step) and ***d)*** output a pipe delimited version of the complete long data
#' ([`outputSGP`](https://www.rdocumentation.org/packages/SGP/versions/2.0-1.0/topics/outputSGP)
#' step).
#'
#' #### Visualize results
#'
#' Once all analyses were completed via `updateSGP`, individual student growth
#' and English language proficiency reports were produced using the
#' [`visualizeSGP`](https://www.rdocumentation.org/packages/SGP/versions/2.0-1.0/topics/visualizeSGP)
#' function and a custom template designed for Georgia. English and Spanish
#' language versions of these reports were created, and individual reports
#' and school level catalogs were bundled according to Georgia's specifications.
#'
#' #### Custom data formatting and district output
#'
#' The 2024 WIDA ACCESS for ELLs SGP results data were submitted to GaDOE with
#' additional formatting to add fields including students' prior language
#' proficiency level.
#'
#' System level student data sets with fields used to create individual
#' student reports were also submitted to GaDOE in Microsoft Excel format.