# Teploty
# -------
# V tabulce jsou uvedeny průměrné měsíční teploty v Brně v roce 2016
# a~dlouholeté minimální a maximální měsíční průměry.
library(R.matlab)
x <- readMat("teploty.mat")
# nebo
load("teploty.RData")

prumerne_teploty <- x$prumerne.teploty
min_teploty <- x$min.teploty
max_teploty <- x$max.teploty
# mesice <- as.vector(x$mesice)
mesice <- c("Leden", "Únor", "Březen", "Duben", "Květen", "Červen",
            "Červenec", "Srpen", "Září", "Říjen", "Listopad", "Prosinec")

# Jak vykreslit průběh teplot v čase?

# Jak vykreslit průběh teplot v čase s odchylkami od extrémních hodnot?

# Jak exportovat obrázky do PDF?


# Vzdelani 
# -------- 
# V tabulce jsou uvedeny počty obyvatel v
# Jihomoravském kraji ve věku 15 a více let podle nejvyššího
# ukončeného vzdělání


# nacteme soubor 'obyvatelstvoJM.csv'
df <- read.table('obyvatelstvoJM.csv', header = TRUE, sep = ";")

# Jak vykreslit sloupcový graf absolutních hodnot?

# Jak vykreslit sloupcový graf relativních hodnot?

# Jak vykreslit koláč s relativními hodnotami?



# Uvery
# -----
# V tabulce jsou uvedeny hodnoty skóre klientů, kterým poskytujeme
# úvěr. Klienti jsou rozděleni podle jejich předchozí platební
# morálky na špatné (20 klientů) a na dobré (50 klientů).
x <- readMat('skore.mat')
# nebo
load("skore.RData")

spatni <- x$spatni
dobri <- x$dobri

# Jak vykreslit histogramy hodnot skóre?

# Jak přikreslit odhady hustot rozdělení skóre?


# Meteo
# ----- 
# V tabulce jsou uvedeny průměrné hodnoty teploty, srážek a ozónu
# naměřené na daném místě v daný čas. Chceme modelovat závislost
# množství ozónu na teplotě a množství srážek.
x <- readMat('meteo.mat')
# nebo
load("meteo.RData")

# Jak vykreslit jednotlivé proměnné proti sobě a zjistit rozdělení
# pravděpodobnosti jejích hodnot?

# Jak vykreslit ozón v závislosti na teplotě a srážkách (pouze naměřená
# data)?

# Jak přikreslit do obrázku plochu danou touto rovnicí?



# Hodiny 
# ------


# Znacka STOP
# -----------