napoved sklenitev
napoved sklenitev

StangeljL12/APPR-2015-16
# 4. faza: Analiza podatkov

podatki1 <- data.frame(PoMesecih %>% group_by(Leto) 
                       %>% summarise(Sklenitve = sum(Št.sklenitev)))

#apoved
LMZ <- lm(data = podatki1, Sklenitve ~ Leto)
Z <- predict(LMZ, data.frame(Leto = seq(2024, 2044, 10)))

# 4. faza: Analiza podatkov

barve <- rainbow(length(levels(obcine[[7]])))
names(barve) <- levels(obcine[[7]])
