mediaan

  pikkused=c(160, 162, 165, 165, 168, 170, 180, 185)
  hist(pikkused)

  hist(pikkused, breaks=3) #kolm tulpa

  mean(pikkused) #aritmeetiline keskmine

## [1] 169.375

  median(pikkused) #mediaan

## [1] 166.5

  fivenum(pikkused) #min, 25%, mediaan, 75%, max

## [1] 160.0 163.5 166.5 175.0 185.0

  boxplot(pikkused)

  #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)

## [1] -18.6 -12.8  -8.4   0.3   6.3

  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

  names(ilm)

##  [1] "Kuu"   "Paev"  "Kell"  "PR1H"  "RH1H"  "TA1H"  "TAN1H" "TAX1H"
##  [9] "WD1H"  "WS1H"  "WSX1H"

  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"])
  }

## [1] 1

## [1] 2

## [1] 3

## [1] 4

## [1] 5