Hawaii/School_Summary_File_Export.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
##################################################################################
###
### R script to create Instructor level summary files
###
##################################################################################

### Load packages

require(SGP)
require(data.table)


### Load Hawaii SGP object

load("Data/Hawaii_SGP.Rdata")


### Create summary files

## School_Number_FSY_by_Content_Area_by_Year.txt

summary.data <- Hawaii_SGP@Summary$SCHOOL_NUMBER_FSY[['SCHOOL_NUMBER_FSY__CONTENT_AREA__YEAR__SCHOOL_FSY_ENROLLMENT_STATUS']]
summary.data <- summary.data[SCHOOL_FSY_ENROLLMENT_STATUS=="Enrolled School: Yes"]
fwrite(summary.data, file="School_Number_FSY_by_Content_Area_by_Year.txt", quote=FALSE, sep="|")


## School_Number_by_Content_Area_by_Year.txt

summary.data <- Hawaii_SGP@Summary$SCHOOL_NUMBER[['SCHOOL_NUMBER__CONTENT_AREA__YEAR__SCHOOL_ENROLLMENT_STATUS']]
summary.data <- summary.data[SCHOOL_ENROLLMENT_STATUS=="Enrolled School: Yes"]
fwrite(summary.data, file="School_Number_by_Content_Area_by_Year.txt", quote=FALSE, sep="|")


## School_Number_by_EMH_by_Content_Area_by_Year.txt

summary.data <- Hawaii_SGP@Summary$SCHOOL_NUMBER[['SCHOOL_NUMBER__EMH_LEVEL__CONTENT_AREA__YEAR__SCHOOL_ENROLLMENT_STATUS']]
summary.data <- summary.data[SCHOOL_ENROLLMENT_STATUS=="Enrolled School: Yes"]
fwrite(summary.data, file="School_Number_by_EMH_by_Content_Area_by_Year.txt", quote=FALSE, sep="|")