Domácí úkol č. 2

1. Simulace alternativního rozdělení

Úkol: vygenerovat 1000 náhodných hodů mincí a zobrazit pozorované četnosti do grafu.

h<-sample(c(0, 1), size = 1000, replace = TRUE)
barplot(h)

2. Deskriptivní analýza výšek studentů Statistiky I

Úkol: zjistit vlastnosti souboru “data_vyska.txt”.

data <- read.csv ("data_vyska.txt")
mean(data$vyska)

## [1] 170.9797

median(data$vyska)

## [1] 169

sd(data$vyska)

## [1] 9.467914

var(data$vyska)

## [1] 89.6414

quantile(data$vyska,0.25)

## 25% 
## 164

quantile (data$vyska,0.75)

## 75% 
## 177

quantile (data$vyska,0.5)

## 50% 
## 169

hist(data$vyska, 
     xlab = "Výška (cm)",
     ylab = "Četnost",
     main = "Výška studentů Statistiky I")

boxplot(data$vyska)