Loading 01_data/noten_only_urliste_tools.csv 0 → 100644 +424 −0 Original line number Diff line number Diff line grade "2,3" 3 "2,7" "1,3" 2 1 "3,3" "1,3" "2,7" 4 "2,3" "1,3" "1,7" "1,3" 2 2 5 "2,7" 4 "2,3" "2,7" "1,7" "2,7" 1 5 "2,7" "1,3" 5 3 5 "2,3" "1,3" "1,7" "1,7" "1,7" "3,3" 3 2 2 2 "1,3" "2,3" 5 5 "2,7" "1,3" "1,3" 1 "2,7" 5 "1,7" "1,3" 5 "2,7" 5 "1,3" 2 "2,3" 1 "2,3" 3 "1,3" "2,7" "2,3" "1,7" "2,3" 1 "3,3" 4 "1,7" "1,3" "2,3" NA "2,7" 2 "2,3" 5 NA 2 "3,3" NA NA "1,7" "2,3" 2 "1,3" NA 3 3 "3,7" "1,3" "3,3" 3 "1,3" 2 "2,3" NA 3 "2,7" NA "2,3" 2 "1,7" "2,7" "1,7" 2 "3,7" NA NA "2,7" "2,3" 2 "1,7" NA 4 NA NA "2,3" NA "2,7" "2,7" "1,3" NA "3,7" NA 5 1 1 3 3 3 NA NA "2,3" "2,3" 1 1 3 2 3 "1,7" NA NA 3 NA "1,7" NA "1,7" 3 "1,7" "1,7" 2 2 "1,7" "3,7" "2,3" 3 "2,7" NA "3,3" 2 2 "1,3" NA NA 2 "1,7" "1,3" "2,7" 1 NA "1,7" "2,3" 2 "1,3" "1,3" "3,3" 3 1 "1,7" "3,3" 2 "2,7" 5 4 2 2 2 NA "3,3" 3 "3,3" "2,7" "1,7" NA "2,7" 2 NA "3,7" 3 3 NA 2 "1,7" "3,7" "2,3" "2,3" "2,3" NA "2,7" "3,7" "2,3" 1 3 NA 1 "3,3" 5 "2,7" "2,7" "2,3" "1,3" 1 1 5 3 2 3 3 "1,7" "2,7" "2,7" "2,3" "2,7" "2,7" "1,7" NA NA "2,3" "2,7" 1 1 "1,7" NA "1,3" NA "1,7" "2,3" NA "1,7" 2 3 5 3 NA NA "1,7" 3 2 2 "1,7" "3,3" "2,7" 5 1 NA "2,3" NA 1 NA "2,3" NA "2,7" 2 "2,3" 5 NA 2 "3,3" NA NA "1,7" "2,3" 2 "1,3" NA 3 3 "3,7" "1,3" "3,3" 3 "1,3" 2 "2,3" NA 3 "2,7" NA "2,3" 2 "1,7" "2,7" "1,7" 2 "3,7" NA NA "2,7" "2,3" 2 "1,7" NA 4 NA NA "2,3" NA "2,7" "2,7" "1,3" NA "3,7" NA 5 1 1 3 3 3 NA NA "2,3" "2,3" 1 1 3 2 3 "1,7" NA "2,7" NA 2 "1,7" 1 NA NA "2,3" "1,7" "1,3" 2 3 "2,3" "3,7" NA NA "1,7" NA "3,3" "1,3" NA 4 "2,7" "3,3" "2,3" 1 "2,3" "2,7" 1 NA 2 NA "2,3" 2 "2,7" NA 2 NA NA "2,7" "1,3" "3,3" 3 "3,7" 2 "2,3" 3 2 3 4 "3,3" "1,3" "1,3" NA "3,7" "1,7" "2,3" NA 1 4 4 2 "1,3" 5 3 "2,3" 2 "2,3" NA 3 "1,3" "2,3" NA "1,3" "1,3" "3,7" 2 "1,7" 2 2 1 3 02_code/R/250403_Notenliste.R 0 → 100644 +28 −0 Original line number Diff line number Diff line # Einlesen der Daten noten <- read.csv("01_data/noten_only_urliste_tools.csv",dec = ",") # Umwandeln der Daten in numerische Werte noten_numeric <- as.numeric(noten$grade) # Häufigkeitstabelle der Noten (inkl. fehlender Werte) (freq_noten <- table(noten_numeric,useNA = "ifany")) bestanden <- ifelse(is.na(noten_numeric), # fehlender Wert? "nicht erschienen", # ja -> Nicht erschienen # Nein -> Noten unterteilen in bestanden und nicht bestanden ifelse(noten_numeric <= 4, "bestanden", "nicht bestanden")) # Häufigkeitstabelle Bestanden/Nicht Bestanden (freq_bestanden <- table(bestanden,useNA = "ifany")) # Klassifizieren der Daten enstprechend der Noten noten_mod <- ifelse(is.na(noten_numeric),99,noten_numeric) # fehlende Werte mit 99 ersetzen noten_string <- cut(noten_mod, breaks = c(-Inf, 1.5, 2.5, 3.5, 4.5, 5.5, Inf), labels = c("sehr gut", "gut","befriedigend", "ausreichend","ungenügend", "nicht erschienen")) is(noten_string) levels(noten_string) # Häufigkeitstabelle Bestanden/Nicht Bestanden (freq_noten_string <- table(noten_string,useNA = "ifany")) Loading
01_data/noten_only_urliste_tools.csv 0 → 100644 +424 −0 Original line number Diff line number Diff line grade "2,3" 3 "2,7" "1,3" 2 1 "3,3" "1,3" "2,7" 4 "2,3" "1,3" "1,7" "1,3" 2 2 5 "2,7" 4 "2,3" "2,7" "1,7" "2,7" 1 5 "2,7" "1,3" 5 3 5 "2,3" "1,3" "1,7" "1,7" "1,7" "3,3" 3 2 2 2 "1,3" "2,3" 5 5 "2,7" "1,3" "1,3" 1 "2,7" 5 "1,7" "1,3" 5 "2,7" 5 "1,3" 2 "2,3" 1 "2,3" 3 "1,3" "2,7" "2,3" "1,7" "2,3" 1 "3,3" 4 "1,7" "1,3" "2,3" NA "2,7" 2 "2,3" 5 NA 2 "3,3" NA NA "1,7" "2,3" 2 "1,3" NA 3 3 "3,7" "1,3" "3,3" 3 "1,3" 2 "2,3" NA 3 "2,7" NA "2,3" 2 "1,7" "2,7" "1,7" 2 "3,7" NA NA "2,7" "2,3" 2 "1,7" NA 4 NA NA "2,3" NA "2,7" "2,7" "1,3" NA "3,7" NA 5 1 1 3 3 3 NA NA "2,3" "2,3" 1 1 3 2 3 "1,7" NA NA 3 NA "1,7" NA "1,7" 3 "1,7" "1,7" 2 2 "1,7" "3,7" "2,3" 3 "2,7" NA "3,3" 2 2 "1,3" NA NA 2 "1,7" "1,3" "2,7" 1 NA "1,7" "2,3" 2 "1,3" "1,3" "3,3" 3 1 "1,7" "3,3" 2 "2,7" 5 4 2 2 2 NA "3,3" 3 "3,3" "2,7" "1,7" NA "2,7" 2 NA "3,7" 3 3 NA 2 "1,7" "3,7" "2,3" "2,3" "2,3" NA "2,7" "3,7" "2,3" 1 3 NA 1 "3,3" 5 "2,7" "2,7" "2,3" "1,3" 1 1 5 3 2 3 3 "1,7" "2,7" "2,7" "2,3" "2,7" "2,7" "1,7" NA NA "2,3" "2,7" 1 1 "1,7" NA "1,3" NA "1,7" "2,3" NA "1,7" 2 3 5 3 NA NA "1,7" 3 2 2 "1,7" "3,3" "2,7" 5 1 NA "2,3" NA 1 NA "2,3" NA "2,7" 2 "2,3" 5 NA 2 "3,3" NA NA "1,7" "2,3" 2 "1,3" NA 3 3 "3,7" "1,3" "3,3" 3 "1,3" 2 "2,3" NA 3 "2,7" NA "2,3" 2 "1,7" "2,7" "1,7" 2 "3,7" NA NA "2,7" "2,3" 2 "1,7" NA 4 NA NA "2,3" NA "2,7" "2,7" "1,3" NA "3,7" NA 5 1 1 3 3 3 NA NA "2,3" "2,3" 1 1 3 2 3 "1,7" NA "2,7" NA 2 "1,7" 1 NA NA "2,3" "1,7" "1,3" 2 3 "2,3" "3,7" NA NA "1,7" NA "3,3" "1,3" NA 4 "2,7" "3,3" "2,3" 1 "2,3" "2,7" 1 NA 2 NA "2,3" 2 "2,7" NA 2 NA NA "2,7" "1,3" "3,3" 3 "3,7" 2 "2,3" 3 2 3 4 "3,3" "1,3" "1,3" NA "3,7" "1,7" "2,3" NA 1 4 4 2 "1,3" 5 3 "2,3" 2 "2,3" NA 3 "1,3" "2,3" NA "1,3" "1,3" "3,7" 2 "1,7" 2 2 1 3
02_code/R/250403_Notenliste.R 0 → 100644 +28 −0 Original line number Diff line number Diff line # Einlesen der Daten noten <- read.csv("01_data/noten_only_urliste_tools.csv",dec = ",") # Umwandeln der Daten in numerische Werte noten_numeric <- as.numeric(noten$grade) # Häufigkeitstabelle der Noten (inkl. fehlender Werte) (freq_noten <- table(noten_numeric,useNA = "ifany")) bestanden <- ifelse(is.na(noten_numeric), # fehlender Wert? "nicht erschienen", # ja -> Nicht erschienen # Nein -> Noten unterteilen in bestanden und nicht bestanden ifelse(noten_numeric <= 4, "bestanden", "nicht bestanden")) # Häufigkeitstabelle Bestanden/Nicht Bestanden (freq_bestanden <- table(bestanden,useNA = "ifany")) # Klassifizieren der Daten enstprechend der Noten noten_mod <- ifelse(is.na(noten_numeric),99,noten_numeric) # fehlende Werte mit 99 ersetzen noten_string <- cut(noten_mod, breaks = c(-Inf, 1.5, 2.5, 3.5, 4.5, 5.5, Inf), labels = c("sehr gut", "gut","befriedigend", "ausreichend","ungenügend", "nicht erschienen")) is(noten_string) levels(noten_string) # Häufigkeitstabelle Bestanden/Nicht Bestanden (freq_noten_string <- table(noten_string,useNA = "ifany"))
