"0","# Load data for companies in Serbia"
"0","data_tab <- read_excel(""./SERBIA_Companies - BAS4SC (Odpowiedzi).xlsx"")"
"0",""
"0","# Process data using the summarizer function"
"0","nivoi <- levels(as.factor(t(data_tab[, 10:110])))"
"0","mat <- sumarizator3(data_tab)"
"0",""
"0","# Reorder columns for clarity"
"0","col_order <- c(nivoi[5], nivoi[2], nivoi[3], nivoi[1], nivoi[4])"
"0","srb3 <- mat[, col_order]"
"0",""
"0","# View and save results"
"0","View(srb3)"
"0","# write.csv(srb3, ""srb3.csv"")"
