Tunni näitega sarnaselt andmete näitamise käsklused muude andmetega.

Võib kasutada õpetaja andmestikke 
http://www.tlu.ee/~jaagup/andmed/muu/
või sisestada oma andmetabel


-------
Tunni näide: 

lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", header=TRUE, sep=",")
lapsed
lapsed$pikkus
#Kuva laste massid
lapsed$mass
lapsed[, c("eesnimi", "pikkus")]
#pikad lapsed
lapsed[lapsed$pikkus>160, ]
#Kuva lapsed, kes on pikemad kui 165 cm
lapsed[lapsed$pikkus>165, ]
lapsed[lapsed$pikkus>165, c("eesnimi", "pikkus")]
#Kuva 60st kilost kergemate laste eesnimed ja massid
lapsed[lapsed$sugu=="n", ]
lapsed[lapsed$sugu=="n", "pikkus"]
#Kuva kõikide poiste massid
#Kuva kõikide poiste eesnimed ja massid
lapsed[lapsed$sugu=="m", "mass"]
lapsed[lapsed$sugu=="m", c("eesnimi", "mass")]

lapsed[order(lapsed$pikkus), ] #Lapsed pikkuse järjekorras
lapsed[rev(order(lapsed$pikkus)), ] #Kahanevas pikkuse järjekorras

poisid=lapsed[lapsed$sugu=="m", ]
poisid[order(poisid$pikkus), ]

#Kuvage tüdrukud eesnimede tähestikulises järjekorras

tydrukud=lapsed[lapsed$sugu=="n",]
tydrukud[order(tydrukud$eesnimi),]

mean(lapsed$pikkus) #aritmeetiline keskmine
#Proovige ka sarnaseid käsklusi min, max ja sum
sum(poisid$mass)
max(tydrukud$pikkus)
max(tydrukud$pikkus)+max(poisid$pikkus)

#Leidke 160 cm lühemate poiste hulgast suurim mass
poisid[poisid$pikkus<160, ]
poisid[poisid$pikkus<160, "mass"]
max(poisid[poisid$pikkus<160, "mass"])

#Leia 160 cm pikemate tüdrukute keskmine pikkus
mean(tydrukud[tydrukud$pikkus>160, "pikkus"])

tydrukud$pikkus
mean(tydrukud$pikkus)
tydrukud$pikkus-mean(tydrukud$pikkus)  #Pikkuse erinevus keskmise pikkusega
cbind(tydrukud, erinevus=tydrukud$pikkus-mean(tydrukud$pikkus))
#Näita iga poisi juurde, kui palju tema mass erineb poiste keskmisest massist

#Näita laste tabelis iga lapse pikkus ka tollides (koef 2.54)
lapsed$pikkus/2.54
cbind(lapsed, pikkustollides=lapsed$pikkus/2.54)
#Näita vaid eesnimi ning pikkus tollides
cbind(eesnimi=as.character(lapsed$eesnimi), pikkustollides=lapsed$pikkus/2.54) #tüübimuundus, hetkel pole tarvilik
cbind(eesnimi=lapsed["eesnimi"], pikkustollides=lapsed$pikkus/2.54) #tüübimuundus, hetkel pole tarvilik
#Näita eesnimi, pikkus ja pikkus tollides
cbind(lapsed[, c("eesnimi", "pikkus")], pikkustollides=lapsed$pikkus/2.54)

ounad=read.table("c:/R/ounad.csv", header=TRUE, sep=";")
ounad