---
title: "mediaan"
output: html_document
---

```{r}
  pikkused=c(160, 162, 165, 165, 168, 170, 180, 185)
  hist(pikkused)
  hist(pikkused, breaks=3) #kolm tulpa
  mean(pikkused) #aritmeetiline keskmine
  median(pikkused) #mediaan
  fivenum(pikkused) #min, 25%, mediaan, 75%, max
  boxplot(pikkused)
```

```{r}
  #Lugege sisse jaanuari temperatuurid
  #Tehke nendega samad arvutused
  ilm=read.table("http://www.tlu.ee/~jaagup/andmed/ilm/harkutund.txt", header=TRUE, sep=",")
  jaanuar=ilm[ilm$Kuu==1, "TA1H"]
  hist(jaanuar)
  fivenum(jaanuar)
  boxplot(jaanuar)
  boxplot(ilm$TA1H~ilm$Kuu)
  boxplot(ilm$TA1H~ilm$Kuu, xlab="Kuu", ylab="Temperatuur",
            main="Temperatuuri jaotus kuude kaupa")
  #Koostage keskmise tuule kiiruse jaotus kuude kaupa
  #Koostage maksimum tuulekiiruse jaotus kuude kaupa
  #Kirjutage igaüks kolm konkreetset lauset, mida saab 
  #joonise põhjal tuulekiiruse kohta väita. 
```
Andmed tuule kiiruse kohta
```{r}
  names(ilm)
  boxplot(ilm$WSX1H~ilm$Kuu)
  boxplot(ilm[ilm$Kuu==1,"WSX1H"]~ilm[ilm$Kuu==1,"Kell"])
  for(kuunr in 1:5){
    print(kuunr)
    boxplot(ilm[ilm$Kuu==kuunr,"WSX1H"]~ilm[ilm$Kuu==kuunr,"Kell"])
  }
  #Kuvage aasta esimese kolme kuu kohta keskmine temperatuur tundide kaupa
  #iga kuu kohta eraldi joonis tsükli abil
```