#9
(razredi <- factor(c(rep(1,9), rep(2,9), rep(3,9), rep(4, 9), rep(5,9))))

(auto <- factor(rep(c(rep('A', 3), rep('B', 3), rep('C', 3)), 5)))

(potrosnja <- c(10, 10.4, 10.2, 9, 9.4, 8.9, 10.9, 10.8, 10.4,
                9.8, 9.8, 9.5, 8.5, 8.8, 8.8, 10.2, 10, 10.4,
                11.1, 11.3, 11.2, 9.6, 9.9, 9.9, 10.7, 10.9, 10.5,
                9.1, 9.4, 9.4, 8.9, 9, 8.8, 9, 8.6, 8.5,
                9, 8.6, 9.1, 9.4, 9.4, 9.1, 10.1, 10.2, 10.3))

(podaci_ls <- list(razredi = razredi, auto=auto, potrosnja=potrosnja))