Erstellt eine binäre Ergebnismatrix, in der die richtigen Antworten mit einer 1 und die falschen mit einer 0 ausgegeben werden. Falls die richtigen Antworten sowohl Numerics als auch Characters beinhalten, kann der Funktion ebenfalls ein einzeiliger data.frame oder tibble übergeben werden. Fehlende Werte werden automatisch als falsch beantwortet gewertet.
Beispiele
# Identische Datentypen
soscisurvey <- data.frame(
I1 = c(3, 2, 3, 1),
I2 = c(2, 2, 2, 1),
I3 = c(4, 1, 4, 4)
)
soscisurvey
#> I1 I2 I3
#> 1 3 2 4
#> 2 2 2 1
#> 3 3 2 4
#> 4 1 1 4
antwortvec <- c(3, 2, 4)
data_binary(df = soscisurvey, answers = antwortvec)
#> # A tibble: 4 × 3
#> I1 I2 I3
#> <dbl> <dbl> <dbl>
#> 1 1 1 1
#> 2 0 1 0
#> 3 1 1 1
#> 4 0 0 1
# Verschiedene Datentypen
soscisurvey2 <- data.frame(
I1 = c(3, 2, 3, 1),
I2 = c("Apfel", "Banane", "Erdbeere", "Apfel"),
I3 = c(4, 1, NA, 4)
)
soscisurvey2
#> I1 I2 I3
#> 1 3 Apfel 4
#> 2 2 Banane 1
#> 3 3 Erdbeere NA
#> 4 1 Apfel 4
antwortdf <- data.frame(3, "Apfel", 4)
data_binary(df = soscisurvey2, answers = antwortdf)
#> # A tibble: 4 × 3
#> I1 I2 I3
#> <dbl> <dbl> <dbl>
#> 1 1 1 1
#> 2 0 0 0
#> 3 1 0 0
#> 4 0 1 1