### PRIKLAD 1 ###########################################################################################
### a (nacteni a filtrace hodnot)
data <- read.delim(...)
vir.SW <- ...
set.SW <- ...


### b (rozsah a rozmezi hodnot)
n1 <- ...
n2 <- ...
(tab <- data.frame(...))


### c
### d (test normality u iris virginica)


### e (test normality u iris setosa)


### f (Wilcoxonuv dvouvyberovy test)
alpha <- 0.10
wilcox.test(..., exact = F, conf.int = T)
q <- qwilcox(...)
(tab <- data.frame(q))



### PRIKLAD 2 ###########################################################################################
### a (nacteni a filtrace hodnot)
data <- read.delim(...)
data.FD <- ...


### b (rozsah a rozmezi hodnot)
n <- ...
(tab <- data.frame(...))


### c
### d (test normality promenne diastolic)


### e (klasicky test o stredni hodnote)
alpha <- 0.05
m.M <- ...
t.test(...)
q <- ...
(tab <- data.frame(q))



### BONUS  ###########################################################################################
### a (nacteni a filtrace dat)
data <- read.delim(...)
data <- ... # odstraneni chybejicich hodnot
(data <- table(...)) # tabulka absolutnich simultannich cetnosti


### b
### c (podminka dobre aproximace)
round(chisq.test(data, correct = F)$expected, 1) 


### d (Pearsonuv chi-kvadrat test)
chisq.test(..., correct = F)
alpha <- ... 
r <- ... 
s <- ... 
q <- qchisq(..., ...)
(tab <- data.frame(q))

V <- ...

