a=3
a
#pikkused <- c(165, 149, 163, 167, 169, 174, 173, 181, 165, 170)
pikkused = c(165, 149, 163, 167, 169, 174, 173, 181, 165, 170)
pikkused
pikkused[1]
pikkused[1:3]
pikkused[-1] #Välja arvatud esimene element
pikkused[c(1, 3, 4)]
pikkused[-c(1, 3, 4)]
pikkused>160
tvSuuremad=pikkused>160
tvSuuremad
pikkused[tvSuuremad]
max(pikkused)
min(pikkused)
range(pikkused)
range(pikkused)[1]
length(pikkused)
mean(pikkused) #aritmeetiline keskmine
median(pikkused)
fivenum(pikkused) #miinimum, 25% kvantiil, mediaan, 75%, maksimum
#help(fivenum)
sd(pikkused) #standard deviation - Standardhälve
var(pikkused) #variation - dipersioon - standardhälbe ruut
pikkused*2
pikkused-1
kilod=pikkused-100
pikkused+kilod
keskmine=mean(pikkused)
(vahed=pikkused-keskmine)
(vaheruudud=vahed*vahed)
(vaheruudud=vahed**2)
(dispersioon=sum(vaheruudud)/(length(pikkused)-1))
sqrt(dispersioon)




> a=3
> a
[1] 3
> #pikkused <- c(165, 149, 163, 167, 169, 174, 173, 181, 165, 170)
> pikkused = c(165, 149, 163, 167, 169, 174, 173, 181, 165, 170)
> pikkused
 [1] 165 149 163 167 169 174 173 181 165 170
> pikkused[1]
[1] 165
> pikkused[1:3]
[1] 165 149 163
> pikkused[-1] #Välja arvatud esimene element
[1] 149 163 167 169 174 173 181 165 170
> pikkused[c(1, 3, 4)]
[1] 165 163 167
> pikkused[-c(1, 3, 4)]
[1] 149 169 174 173 181 165 170
> pikkused>160
 [1]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE
> tvSuuremad=pikkused>160
> tvSuuremad
 [1]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE
> pikkused[tvSuuremad]
[1] 165 163 167 169 174 173 181 165 170
> max(pikkused)
[1] 181
> min(pikkused)
[1] 149
> range(pikkused)
[1] 149 181
> range(pikkused)[1]
[1] 149
> length(pikkused)
[1] 10
> mean(pikkused) #aritmeetiline keskmine
[1] 167.6
> median(pikkused)
[1] 168
> fivenum(pikkused) #miinimum, 25% kvantiil, mediaan, 75%, maksimum
[1] 149 165 168 173 181
> #help(fivenum)
> sd(pikkused) #standard deviation - Standardhälve
[1] 8.422193
> var(pikkused) #variation - dipersioon - standardhälbe ruut
[1] 70.93333
> pikkused*2
 [1] 330 298 326 334 338 348 346 362 330 340
> pikkused-1
 [1] 164 148 162 166 168 173 172 180 164 169
> kilod=pikkused-100
> pikkused+kilod
 [1] 230 198 226 234 238 248 246 262 230 240
> keskmine=mean(pikkused)
> (vahed=pikkused-keskmine)
 [1]  -2.6 -18.6  -4.6  -0.6   1.4   6.4   5.4  13.4  -2.6   2.4
> (vaheruudud=vahed*vahed)
 [1]   6.76 345.96  21.16   0.36   1.96  40.96  29.16 179.56   6.76   5.76
> (vaheruudud=vahed**2)
 [1]   6.76 345.96  21.16   0.36   1.96  40.96  29.16 179.56   6.76   5.76
> (dispersioon=sum(vaheruudud)/(length(pikkused)-1))
[1] 70.93333
> sqrt(dispersioon)
[1] 8.422193
> 


Ilmaandmed:
http://www.tlu.ee/~jaagup/andmed

Võtke 2005. aasta jaanuari ning juuli andmed.
Hinnake standardhälbe ja muude näitajate järgi - kummas kuus kõikus
  temperatuur rohkem (ning kuidas seda arvudega põhjendada)