massiivid

  t=c(15, 12, 11)
  t

## [1] 15 12 11

  t=c(t, 8, 10)
  t

## [1] 15 12 11  8 10

  max(t)

## [1] 15

  paste("Suurim temperatuur on ", max(t), "Ā°C")

## [1] "Suurim temperatuur on  15 Ā°C"

  #Kraadi vƵrra kƵrgem
  t+1 #nƤitab igaĆ¼ht kraadi vƵrra kƵrgemalt

## [1] 16 13 12  9 11

  t

## [1] 15 12 11  8 10

  toatemp=t+5
  toatemp

## [1] 20 17 16 13 15

  saunatemp=c(80, 75, 85, 95, 85)
  tempvahe=saunatemp-t
  saunatemp

## [1] 80 75 85 95 85

  t

## [1] 15 12 11  8 10

  tempvahe

## [1] 65 63 74 87 75

  jahesaun=saunatemp/2
  jahesaun

## [1] 40.0 37.5 42.5 47.5 42.5

  #Leia sauna eesruumi temperatuur nƵnda,
  #et see oleks toatemperatuuri ja sauna temperatuuri
  #vahel keskel
  toatemp

## [1] 20 17 16 13 15

  saunatemp

## [1] 80 75 85 95 85

  eesruum=(toatemp+saunatemp)/2
  eesruum

## [1] 50.0 46.0 50.5 54.0 50.0

  vahe=saunatemp-toatemp
  toatemp+vahe/2

## [1] 50.0 46.0 50.5 54.0 50.0

#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

##  [1] 4.4 4.3 3.9 3.6 3.3 2.8 2.5 2.0 1.2 0.7

mean(ilm$TA1H, na.rm=TRUE) #Keskmise arvutamisel eemaldab puuduvad väärtused

## [1] 6.793959

mean(ilm[ilm$Kuu==1, "TA1H"])

## [1] -6.642742

ilm[ilm$Kuu==1&ilm$Kell=="12:00", "TA1H"]

##  [1]   1.7   0.4   0.4   1.1   4.2   1.6   3.2   6.0   4.9   0.3  -1.0
## [12]  -4.0  -7.6  -7.4  -6.9  -5.9  -7.5  -9.7  -7.5  -8.8 -10.6  -9.8
## [23] -11.1 -11.1  -9.3 -11.2 -10.7 -12.1 -11.1 -13.7 -10.9

mean(ilm[ilm$Kuu==1&ilm$Kell=="12:00", "TA1H"])

## [1] -5.293548

hist(ilm$TA1H)

#Näita jaanuari temperatuuride histogrammi (sagedusjaotust)
hist(ilm[ilm$Kuu==1, "TA1H"])

jaantemp=ilm[ilm$Kuu==1, "TA1H"]
head(jaantemp)

## [1] 4.4 4.3 3.9 3.6 3.3 2.8

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)

## [1] 4.4 4.3 3.9 3.6 3.3 2.8

head(jargminetemp)

## [1] 4.3 3.9 3.6 3.3 2.8 2.5

head(tempvahed) #kui palju iga tunniga temperatuur muutus

## [1] -0.1 -0.4 -0.3 -0.3 -0.5 -0.3

hist(tempvahed) #temperatuurimuutuste jaotus