---
title: "massiivid"
output: html_document
---

```{r}
  t=c(15, 12, 11)
  t
  t=c(t, 8, 10)
  t
  max(t)
  paste("Suurim temperatuur on ", max(t), "°C")
  #Kraadi võrra kõrgem
  t+1 #näitab igaüht kraadi võrra kõrgemalt
  t
  toatemp=t+5
  toatemp
  saunatemp=c(80, 75, 85, 95, 85)
  tempvahe=saunatemp-t
  saunatemp
  t
  tempvahe
  jahesaun=saunatemp/2
  jahesaun
  #Leia sauna eesruumi temperatuur nõnda,
  #et see oleks toatemperatuuri ja sauna temperatuuri
  #vahel keskel
  toatemp
  saunatemp
  eesruum=(toatemp+saunatemp)/2
  eesruum
  vahe=saunatemp-toatemp
  toatemp+vahe/2
```

```{r}
#http://www.tlu.ee/~jaagup/andmed/ilm/
# Lugege sisse http://www.tlu.ee/~jaagup/andmed/ilm/harkutund.txt
# Kuvage kümme esimest temperatuuri
# Leidke aasta keskmine temperatuur
# Leidke jaanuari keskmine temperatuur
# Leidke jaanuari keskpäevade (12:00) keskmine temperatuur
ilm=read.table("http://www.tlu.ee/~jaagup/andmed/ilm/harkutund.txt", header=TRUE, sep=",")
head(ilm$TA1H, 10) #Esimesed kümme
mean(ilm$TA1H, na.rm=TRUE) #Keskmise arvutamisel eemaldab puuduvad väärtused
mean(ilm[ilm$Kuu==1, "TA1H"])
ilm[ilm$Kuu==1&ilm$Kell=="12:00", "TA1H"]
mean(ilm[ilm$Kuu==1&ilm$Kell=="12:00", "TA1H"])
hist(ilm$TA1H)
#Näita jaanuari temperatuuride histogrammi (sagedusjaotust)
hist(ilm[ilm$Kuu==1, "TA1H"])
jaantemp=ilm[ilm$Kuu==1, "TA1H"]
head(jaantemp)
jargminetemp=jaantemp[2:length(jaantemp)] #kell 0:00 jääb välja
  #kõik jaanuari temperatuurid peale esimese tunni
  #Viimasel tunnil pole järgmist jaanuaris teada
jargminetemp=c(jargminetemp, NA) #et oleksid andmed ühepikkused
tempvahed=jargminetemp-jaantemp
head(jaantemp)
head(jargminetemp)
head(tempvahed) #kui palju iga tunniga temperatuur muutus
hist(tempvahed) #temperatuurimuutuste jaotus

```