#############################
### ZAPOCET 1 - skupina A ###
#############################

# JMENO, PRIJMENI: 
# UCO: 

### PRIKLAD 1 #################################################################
# a (nacteni dat)
# data <- ...


# b (vypis prvnich 5 zaznamu)


# c (rozmery dat)


# d (chybejici hodnoty)


# e (filtrace muzu)
#data.m <- ...


# f (kontingencni tabulky)
#k.table.abs <- 
#k.table.rel <- round(...)


# g (interpretace kontingencnich tabulek)


# h (sloupcovy graf)
# parametry: col = c('black', 'yellow', 'chocolate', 'orange'), las = ..., density = ...


# i (bonus)



### PRIKLAD 2 #################################################################
# a (nacteni dat)
#data <- 


# b (vypis prvnich 5 zaznamu)


# c (chybejici hodnoty)


# d (filtrace 1)


# e (filtrace 2)
#data.s <- 
#data.SL <- 
#data.PL <- 

# f (ciselne charakteristiky)


# g (interpretace ciselnych charakteristik)


# h (odhad parametru PL za predpokladu normality)
#mu <- 
#sigma <- 


# i (vypocet pravdepodobnosti)


# j (odhad hustoty)
#centr <- seq(0.9, 1.9, by = 0.2) # stredy tridicich intervalu
#par(mar = c(4, 5, 1, 1)) # rozmery pro vykresleni grafu
#breaks <- seq(0.8, 2, by = 0.2)
#hist(...)
#box(bty = 'o')
#axis(1, centr)
#axis(2, las = ...)

#lines(density(data.PL), col = ..., lwd = ...)
#xfit <- seq(...)
#yfit <-
#lines(..., col = ..., lty = ..., lwd = ...)
#legend('topright', col = c('blue', 'red'), lwd = ..., lty = ..., legend = ..., bty = 'n')


# k (bonus)


