"0","# Load data"
"0","data_tab <- read_excel(""./SERBIA_Students, postgraduates - BAS4SC (Odpowiedzi).xlsx"")"
"0",""
"0","# Process data"
"0","nivoi <- levels(as.factor(t(data_tab[, 6:106])))"
"0","mat <- sumarizator(data_tab)"
"0",""
"0","# Reorder columns"
"0","col_order <- c(""Not important"", ""Important"", nivoi[3], nivoi[5], nivoi[4])"
"0","srb <- mat[, col_order]"
"0",""
"0","# View and save"
"0","View(srb)"
"0","# write.csv(srb, ""srb.csv"")"
