# vymazani promennych
rm(list = ls())

# pracovni adresar a nacteni souboru
work_dir <- setwd('D:/Temp/R_files')
dataset_brno_t <- read.table('brno_t.csv', header = T, dec = '.', sep = ';')

# prevod mesice cervence na casovou radu
brno_t_cervenec <- ts(dataset_brno_t[,8], start = dataset_brno_t[1,1])

# vykresleni grafu
plot(brno_t_cervenec, main = 'Průměrná červencová teplota', xlab = 'Rok', ylab = 'Teplota [°C]')

# vypocet regrese pro mesic cervenec
ts_regrese <- lm(dataset_brno_t[,8] ~ dataset_brno_t[,1])
summary(ts_regrese)

# vykresleni krivky
abline(ts_regrese, col = 'blue', lwd = 3)