# Teploty
# -------
# V tabulce jsou uvedeny prumerne mesicni teploty v Brne v roce 2016
# a~dlouholete minimalni a maximalni mesicni prumery.
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", "Unor", "Brezen", "Duben", "Kveten", "Cerven",
            "Cervenec", "Srpen", "Zari", "Rijen", "Listopad", "Prosinec")

# Jak vykreslit prubeh teplot v case?

# Jak vykreslit prubeh teplot v case s odchylkami od extremnich hodnot?

# Jak exportovat obrazky do PDF?


# Vzdelani 
# -------- 
# V tabulce jsou uvedeny pocty obyvatel v
# Jihomoravskem kraji ve veku 15 a vice let podle nejvyssiho
# ukonceneho vzdelani


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

# Jak vykreslit sloupcovy graf absolutnich hodnot?

# Jak vykreslit sloupcovy graf relativnich hodnot?

# Jak vykreslit kolac s relativnimi hodnotami?



# Uvery
# -----
# V tabulce jsou uvedeny hodnoty skore klientu, kterym poskytujeme
# uver. Klienti jsou rozdeleni podle jejich predchozi platebni
# moralky na špatne (20 klientu) a na dobre (50 klientu).
x <- readMat('skore.mat')
# nebo
load("skore.RData")

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

# Jak vykreslit histogramy hodnot skore?

# Jak prikreslit odhady hustot rozdeleni skore?


# Meteo
# ----- 
# V tabulce jsou uvedeny prumerne hodnoty teploty, srazek a ozonu
# namerene na danem miste v dany cas. Chceme modelovat zavislost
# mnozstvi ozonu na teplote a mnozstvi srazek.
x <- readMat('meteo.mat')
# nebo
load("meteo.RData")

# Jak vykreslit jednotlive promenne proti sobe a zjistit rozdeleni
# pravdepodobnosti jejich hodnot?

# Jak vykreslit ozon v zavislosti na teplote a srazkach (pouze namerena
# data)?

# Jak prikreslit do obrazku plochu danou touto rovnici?



# Hodiny 
# ------


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