other_Code/88_prepare_BT16.R

In b-becker/eatGADS: Normalizing, Subsetting and Reshaping Hierarchical Data

library(foreign)


############# testing mit GADS 16
### Daten laden
# Itemantworten
load("q:/BT2016/BT/50_Daten/03_Aufbereitet/01_DEU/04_lesen_hoeren_ortho_aggregiert_selektiert.rda")
str(datKali)
names(datKali)

# Kompetenzdaten imputiert
# deutsch
komp_imp <- readRDS("q:/BT2016/BT/50_Daten/03_Aufbereitet/01_DEU/05_pvDatensatzBT2016.rds")
str(komp_imp)

# Schueler unimputiert
schueler <- read.spss("q:/BT2016/BT/32_Schulrückmeldungen/01_Input/Daten/Neue_Gadserstellung/BS_LV_Primar_2016_Matchingvorlaeufig_09_erweiterteGadsversion.sav", to.data.frame = T, use.value.labels = F)
str(schueler)

# Lehrer
lehrer <- read.spss("q:/BT2016/BT/50_Daten/03_Aufbereitet/04_FB/BS_LV_Primar_2016_LFB_Deutschlehrer_ohne_Duplikate_alle_Variablen_04.sav",
                    to.data.frame = T, use.value.labels = F)
str(lehrer)

# schule
schule <- read.spss("q:/BT2016/BT/50_Daten/03_Aufbereitet/04_FB/BS_LV_Primar_2016_SLFB_0-0-1_aufbereitet_01.sav",
                    to.data.frame = T, use.value.labels = F)
str(schule)

#### WTF?
# Schueler imputiert
load("q:/BT2016/BT/51_Auswertung/05_HGM/Imputationen/v07/HGM_Imputationsdaten_aus_mice_komplett.Rdata")
str(dat.hgm.imp.mids[[1]])



#### speichern
dataList <- list(itemResponses = datKali,
                 komp_imp = komp_imp,
                 schueler = schueler,
                 lehrer = lehrer,
                 schule = schule)

saveRDS(dataList, "P:/R/GADS-RPaket/BT16_Einzeldaten/dataList.RDS")


##### aufbereiten
bt16List <- readRDS("P:/R/GADS-RPaket/BT16_Einzeldaten/dataList.RDS")
## duplicates in teacher
dup <- c(which(duplicated(bt16List$lehrer$IDTEACH)), which(duplicated(bt16List$lehrer$IDTEACH, fromLast = T)))
bt16List$lehrer[dup, ]

# drop duplicate IDs
bt16List$lehrer <- bt16List$lehrer[!duplicated(bt16List$lehrer$IDTEACH), ]
saveRDS(bt16List, "P:/R/GADS-RPaket/BT16_Einzeldaten/dataList_clean.RDS")