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

```{r}
lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", header=TRUE, sep=",")
lapsed
p=sort(lapsed$pikkus)
p
p[1] #esimene laps
length(p) #laste arv
p[length(p)] #Pikim laps
#Leidke lühemalt poolt kolmanda lapse pikkus
p[3]
#Leidke pikemalt poolt neljanda lapse pikkus
p[28]
p[30-3]
p[length(p)-3]
p[1:5] #Viis lühemat last
p[(length(p)-4):length(p)] #Viis pikemat last
p[26:30] #sama 30 lapse puhul
#Leidke kümne lühema lapse pikkuste keskmine
1:10
p[1:10]
mean(p[1:10])
#Leidke kümne pikema lapse pikkuste keskmine
(length(p)-9):length(p)
p[(length(p)-9):length(p)]
mean(p[(length(p)-9):length(p)])
p
eelmisepikkused=c(p[2:length(p)], NA)
eelmisepikkused
vahed=eelmisepikkused-p
vahed
table(vahed)
#Leidke pikkused ja pikkuste vahed vaid poiste kohta rivis
poistepikkused=rev(sort(lapsed[lapsed$sugu=="m", "pikkus"]))
poistepikkused
ilmaesimeseta=poistepikkused[2:length(poistepikkused)]
ilmaesimeseta=c(ilmaesimeseta, NA) #et oleks sama pikk loetelu arvutamiseks
ilmaesimeseta
vaheeelmisega=poistepikkused-ilmaesimeseta
vaheeelmisega
table(vaheeelmisega) #vahede esinemissagedused
ilm=read.table("http://www.tlu.ee/~jaagup/andmed/ilm/harkutund.txt", header=TRUE, sep=",")
head(ilm)
#Tulp TA1H tunni keskmine temperatuur
jaanuaritemp=ilm[ilm$Kuu==1, "TA1H"]
hist(jaanuaritemp) #histogramm, sagedused kraadivahemike kaupa
jargminetund=c(jaanuaritemp[2:length(jaanuaritemp)], NA)
head(jargminetund)
vahed=jargminetund-jaanuaritemp #temperatuurierinevus
head(vahed)
hist(vahed)
```