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

```{r}
  pikkused=c(165, 166, 166, 168, 169, 169, 173, 174, 175, 190)
  mean(pikkused)
  median(pikkused)
  barplot(pikkused, ylim=c(150, 200))
  plot(pikkused, ylim=c(150, 200))
  abline(h=mean(pikkused))
  abline(h=median(pikkused), lty=2)
  boxplot(pikkused)
  hist(pikkused)
  fivenum(pikkused)
  #Lisage mõned suured pikkused, 
  #vaadake, kuidas muutub boxploti kuju
  pikkused=c(pikkused, 173, 178, 178, 179)
  boxplot(pikkused)
  hist(pikkused)
```

```{r}
  ilm=read.table("http://www.tlu.ee/~jaagup/andmed/ilm/harkutund.txt",
              header=TRUE, sep=",")
  jaantemp=ilm[ilm$Kuu==1, "TA1H"]
  hist(jaantemp)
  boxplot(jaantemp)
  fivenum(jaantemp)
  #25% mõõtmistest oli 2014. aasta jaanuaris tempeartuur 0.3 kuni 6.3 kraadi
  #50% külmematest mõõtmistest oli -18.6 kuni -8.4 kraadi
  #50% soojematest mõõtmistest oli -8.4 kuni 6.3 kraadi
  #50% keskmise väärtusega mõõtmistest oli -12.8 kuni 0.3 kraadi
  #75% mõõtmistest oli temperatuuriga alla 0.3 kraadi
  jaanuar=ilm[ilm$Kuu==1, ]
  boxplot(jaanuar$TA1H~jaanuar$Kell, las=2)
  #Kirjutage igaüks kaks lauset, 
  #mida saate joonise põhjal väita
  
```
2014. aasta jaanuarikuus kell 12 oli 75% mõõtmistest temperatuur 0 kraadi või vähem

Kell 3 öösel oli 50% mõõtmistest temperatuur -12 kuni 0 kraadi


```{r}
  for(kuunr in 1:12){
    print(kuunr)
    kuuandmed=ilm[ilm$Kuu==kuunr, ]
    boxplot(kuuandmed$TA1H~kuuandmed$Kell, las=2, main=paste("Kuu nr ",kuunr),
            xlab="Kellaaeg", ylab="Temperatuur")
  }
```
Kuvage kuude kaupa iga päeva kohta keskmise tuulekiiruse (WS1H) jaotus

```{r}
  for(kuunr in 1:12){
    print(kuunr)
    kuuandmed=ilm[ilm$Kuu==kuunr, ]
    boxplot(kuuandmed$WS1H~kuuandmed$Paev, las=2, main=paste("Kuu nr ",kuunr),
            xlab="Kuupäev", ylab="Tuule kiirus (m/s)")
  }

```