"0","# Load data for companies in Serbia"
"0","data_tab <- read_excel(""C:/Users/Logistika/Downloads/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 <- sumarizator2(data_tab)"
"2","Error in dimnames(x) <- dn : 
  length of 'dimnames' [2] not equal to array extent
"
