3+2
arvud=c(1, 3, 7)
arvud*2
sin(arvud)
massid=c(60, 40, 50)
arvud*massid
xid=1:10
yid=xid^2
print(xid)
print(yid)
mean(yid)
median(yid)
sd(yid)

klass=read.table("http://www.tlu.ee/~jaagup/5klass.txt", sep=",", header=TRUE)
klass["eesnimi"]
klass[c("eesnimi", "pikkus")]
cbind(klass, mpikkus=klass$pikkus/100, gmass=klass$mass*1000)
#Lisage tulp massiga grammides
klass[klass$sugu=='m' , ]

klass=read.table("http://www.tlu.ee/~jaagup/5klass.txt", sep=",", header=TRUE)
klass["eesnimi"]
klass[c("eesnimi", "pikkus")]
cbind(klass, mpikkus=klass$pikkus/100, 
             gmass=klass$mass*1000)
#Lisage tulp massiga grammides
poisid=klass[klass$sugu=='m' & 
        klass$pikkus<160 , ]
klass$sugu=='m'
barplot(poisid$pikkus, names.arg=poisid$eesnimi,
  main="Poiste pikkused", 
  xlab="eesnimed", ylab="cm")
plot(klass$pikkus, klass$mass)
text(klass$pikkus, klass$mass-1, klass$eesnimi)