---
title: "standardhalve"
output: html_document
---

Leidke oma andmestikus olevate pikkuste standardhälve
Vikipeedia vastavas artiklis oleva arvutuskäigu abil (käsitsi)
```{r}
  pikkused=c(165, 169, 164, 168, 167, 160, 165)
  keskmine=mean(pikkused)
  keskmine
  erinevused=pikkused-keskmine
  erinevused  
  ruudud=erinevused*erinevused
  ruudud
  ruutudesumma=sum(ruudud)
  sqrt(ruutudesumma/length(pikkused))
  sqrt(ruutudesumma/(length(pikkused)-1))
  sd(pikkused)
#  barplot(pikkused)
  boxplot(pikkused)
  abline(h=mean(pikkused))
  abline(h=mean(pikkused)+sd(pikkused), col="green")
  abline(h=mean(pikkused)-sd(pikkused), col="green")
```
Andmete normaaljaotuse (keskel rohkem servades vähem) puhul
ligikaudu 2/3 väärtustest jääb aritmeetilise keskmise 
+- 1 standardhälbe kaugusele

Harjutus:

Võtke 5. klassi andmed
http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt

Kuvage pikkuste ja masside xy-joonis (plot)
Kuvage joontena välja nii pikkuste kui masside kohta
 aritmeetiline keskmine ning +- 1 standardhälve
 
```{r}
  lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", header=TRUE, sep=",")
plot(lapsed$pikkus, lapsed$mass)
abline(v=mean(lapsed$pikkus))
abline(v=mean(lapsed$pikkus)+sd(lapsed$pikkus), col="green")
abline(v=mean(lapsed$pikkus)-sd(lapsed$pikkus), col="green")
abline(h=mean(lapsed$mass))
abline(h=mean(lapsed$mass)+sd(lapsed$mass), col="green")
abline(h=mean(lapsed$mass)-sd(lapsed$mass), col="green")
```