other_Code/99_demonstration.R

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

devtools::install_github("b-becker/eatGADS")
library(eatGADS)

# 1.) Import Data Frames --------------------------------------------------------
####### import spss
# Schueler unimputiert
schueler <- import_spss("q:/BT2016/BT/32_Schulrückmeldungen/01_Input/Daten/Neue_Gadserstellung/BS_LV_Primar_2016_Matchingvorlaeufig_09_erweiterteGadsversion.sav")
table(schueler$dat$Espf3_r)
schueler$labels[schueler$labels$varName == "Espf3_r", ]
# Lehrer
lehrer <- import_spss("q:/BT2016/BT/50_Daten/03_Aufbereitet/04_FB/BS_LV_Primar_2016_LFB_Deutschlehrer_ohne_Duplikate_alle_Variablen_04.sav")
# schule
schule <- import_spss("q:/BT2016/BT/50_Daten/03_Aufbereitet/04_FB/BS_LV_Primar_2016_SLFB_0-0-1_aufbereitet_01.sav")

######## import R
# Item responses
itemResponses <- import_RDS("N:/DB/itemResponses.RDS")
# Kompetenzdaten deutsch imputiert
komp_imp <- import_RDS("N:/DB/komp_imp.RDS")


# 1b) prepare labels and input
bt16 <- mergeLabels(komp_imp = komp_imp, schueler = schueler, itemResponses = itemResponses,
                    lehrer = lehrer, schule = schule)
str(bt16$labelList)

# 2.) Create Data Base --------------------------------------------------------
### Key-Listen anlegen
pkTest <- list(komp_imp = c("IDSTUD", "imp", "dimension"),
               schueler = "IDSTUD",
               itemResponses = "IDSTUD",
               lehrer = c("ZIDteachD", "ZIDteachM"),
               schule = "IDSCH")

fkTest <- list(komp_imp = list(References = NULL, Keys = NULL),
               schueler = list(References = "komp_imp", Keys = "IDSTUD"),
               itemResponses = list(References = "schueler", Keys = "IDSTUD"),
               lehrer = list(References = "schueler", Keys = c("ZIDteachD", "ZIDteachM")),
               schule = list(References = "schule", Keys = "IDSCH"))


bt16_all <- addKeys(bt16, pkList = pkTest, fkList = fkTest)


## Datenbank erstellen
createDB(bt16_all, filePath = "N:/DB/bt16.db")




####################################################################################################################################################


############################             ############################################            ##########################              ###########


####################################################################################################################################################
# 3.) Inspect Data Base --------------------------------------------------------
n <- dbNames(filePath = "N:/DB/bt16.db")
str(n)

dbKeys(filePath = "N:/DB/bt16.db")

label_df <- dbLabels("N:/DB/bt16.db")
str(label_df)

# 4.) Pull data from Data Base --------------------------------------------------------
vars <- c("IDSTUD", "imp", "dimension", "Lage", "herkunft_kurz", "Sinm", "gen_slfb")

test <- getDF(filePath = "N:/DB/bt16.db", vSelect = vars)

str(test)
table(test$imp)


# 5.) Write SPSS file --------------------------------------------------------
writeDB_SPSS(df = test, label_df = label_df, filePath = "N:/DB/bt16.sav")













# Preperation
####################
load("q:/BT2016/BT/50_Daten/03_Aufbereitet/01_DEU/04_lesen_hoeren_ortho_aggregiert_selektiert.rda")
datKali <- list(dat = datKali, labels = NULL)
saveRDS(datKali, "N:/DB/itemResponses.RDS")

komp_imp <- readRDS("q:/BT2016/BT/50_Daten/03_Aufbereitet/01_DEU/05_pvDatensatzBT2016.rds")
komp_imp <- list(dat = komp_imp, labels = NULL)
saveRDS(komp_imp, "N:/DB/komp_imp.RDS")