pikkused=c(180, 160, 165, 164, 167)
(keskmine=mean(pikkused)) #prindib
(erinevus=pikkused-keskmine)
(erinevuseruut=erinevus*erinevus)
(ruutudesumma=sum(erinevuseruut))
(dispersioon=ruutudesumma/
              (length(pikkused)-1))
(standardhalve=sqrt(dispersioon))
round(sd(pikkused), 1)
format(round(sd(pikkused), 1), nsmall=2)
pikkused

#----
abi=sort(pikkused)
abi[1:3]
sort(pikkused)[1:3]
#Leia kolme lühema inimese pikkuse summa

#Leia pikkuste keskmine nõnda, et
#lühimat ja pikimat ei arvestata
mean(sort(pikkused)[2:(length(pikkused)-1)])
pikkused[pikkused!=max(pikkused)] #ilma suurimata
pikkused[!((pikkused==max(pikkused)) | 
           (pikkused==min(pikkused)))] #ilma vähima ja suurimata
mean(pikkused[!((pikkused==max(pikkused)) | 
           (pikkused==min(pikkused)))])

#----

m=matrix(c(140, 165, 163, 29, 41, 43), ncol=2)
m[1, 2]
m[1, ]
m[, 2]
m+1
rbind(m, c(170, 55)) #lisab rea
cbind(m, c(35, 38, 37)) #lisab veeru
m=cbind(m, m[, 2]*0.1)
m[2, 1]="tere" #kogu maatriks stringideks
m[2, 1]=155
m=matrix(as.numeric(m), ncol=2) #tagasi numbriteks

#---- list
loetelu=list("Juku", 180, 67.5, c("Tapa", "Tallinn"))
loetelu
loetelu[4]
loetelu2=list(eesnimi="Juku", pikkus=180, 
   mass=67.5, asukohad=c("Tapa", "Tallinn"))
loetelu2["mass"]
loetelu2[["mass"]]
loetelu2$mass

#---- data frame (andmetabel)

isikud=data.frame(pikkus=c(170, 180, 160), 
                  mass=c(55, 65, 70))

isikud$pikkus
isikud[["pikkus"]]
isikud["pikkus"]
colSums(isikud) #veergude summa
colSums(isikud)/length(isikud$pikkus)
isikud
isikud[1:2, ] #Esimese kahe isiku kõik veerud
isikud[isikud$mass>60, ]
subset(isikud, mass>60)
subset(isikud, mass>60 & mass<70 & pikkus>170)
colSums(subset(isikud, mass>60))
isikud$suhtelinepikkus=isikud$pikkus/max(isikud$pikkus)
#lisage suhtelise massi tulp
isikud$suhtelinemass=isikud$mass/max(isikud$mass)
isikud$pikkus=NULL
isikud$mass=NULL
isikud[, c("pikkus", "suhtelinepikkus")]

nrow(mtcars)
autod2=cbind(numbrid=1:nrow(mtcars), mtcars)
autod2$nimetus=row.names(autod2)
row.names(autod2)=autod2$numbrid
autod2$numbrid=NULL
autod2
#Näidake vaid automaatkastiga sõidukeid
mtcars[mtcars$am==1, c(1, 3)]
subset(mtcars, am==1)
#Näidake automaatkastiga sõidukite keskmist kütusekulu (mpg, miles per gallon)
mean(mtcars[mtcars$am==1, ]$mpg)
head(mtcars, 3)
names(mtcars)