> andmed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", sep=",", header=TRUE)
> andmed$pikkused
NULL
> andmed$pikkus
 [1] 170 160 160 165 163 165 141 159 164 148 143 169 156 165 170 145 151 156 164 155 158 164 170 143
[25] 152 156 164 165 164 162
> mean(andmed$pikkus)
[1] 158.9
> sd(andmed$pikkus)
[1] 8.445974
> qnorm(0.25, mean(andmed$pikkus), sd(andmed$pikkus))
[1] 153.2033
> qnorm(0.1, mean(andmed$pikkus), sd(andmed$pikkus))
[1] 148.076
> yldkeskmisesd=sd(andmed$pikkus)/sqrt(length(andmed$pikkus))
> yldkeskmisesd
[1] 1.542017
> qnorm(0.25, mean(andmed$pikkus), yldkeskmisesd)
[1] 157.8599
> mean(andmed$pikkus)+qnorm(0.25)*yldkeskmisesd
[1] 157.8599
> mean(andmed$pikkus)+qt(0.25, length(andmed$pikkus-1))*yldkeskmisesd
[1] 157.8472
> t.test(andmed$pikkus, alternative="greater", conf.level=0.75)

        One Sample t-test

data:  andmed$pikkus
t = 103.05, df = 29, p-value < 2.2e-16
alternative hypothesis: true mean is greater than 0
75 percent confidence interval:
 157.8467      Inf
sample estimates:
mean of x 
    158.9 

> 
> plot(qnorm)
> plot(dnorm)
> plot(dnorm, -3, 3)
> pnorm(-1)
[1] 0.1586553
> # mitu % väärtustest on väiksemad kui kogumi keskväärtus + 1,5 kogumi standardhälvet
> pnorm(1.5)
[1] 0.9331928
> mean(andmed$pikkus)+1.5*sd(andmed$pikkus)
[1] 171.569
> pnorm(171.5, mean(andmed$pikkus), sd(andmed$pikkus))
[1] 0.9321288
> qnorm(0.99, mean(andmed$pikkus), sd(andmed$pikkus))
[1] 178.5483
> qnorm(0.99, mean(andmed$pikkus), yldkeskmisesd)
[1] 162.4873
> qnorm(0.99)
[1] 2.326348
> mean(andmed$pikkus)+qnorm(0.99)*sd(andmed$pikkus)
[1] 178.5483
> mean(andmed$pikkus)+qnorm(0.99)*yldkeskmisesd
[1] 162.4873
> mean(andmed$pikkus)+qnorm(1-0.99)*sd(andmed$pikkus)
[1] 139.2517
> mean(andmed$pikkus)-qnorm(0.99)*sd(andmed$pikkus)
[1] 139.2517
> #Leidke õpilaste masside keskmine, standardhälve ning üldkogumi keskmise massi standardhälve
> #Leidke, millisest massist väiksemad on 25%, 75%, 95%, 99% lapsi
> #Leidke, millest väiksem on kogu Tallinna 5. klassi õpilaste keskmine mass
> #Tõenäosustega 75%, 90%, 95%, 99%
>