"0","data_tab <- read_excel(""./SLOVENIA_Students, postgraduates - BAS4SC (Odpowiedzi).xlsx"")"
"0","nivoi <- levels(as.factor(t(data_tab[, 6:106])))"
"0","mat <- sumarizator(data_tab)"
"0","col_order <- c(nivoi[2], nivoi[3], nivoi[1], nivoi[4:5])"
"0","slo <- mat[, col_order]"
"0","# write.csv(slo, ""slo.csv"")"
