g=9.8
t=4
s=g*t*t/2
s

g=9.8
t=1:4
s=g*t*t/2
s

g=-9.8
t=seq(1, 30, 0.5)
s=g*t*t/2
s
t

t=seq(1, 30, 0.5)
s=g*t*t/2
plot(t, s, type="l")
plot(t, s, type="l", main="Palli kukkumine",
     xlab="aeg", ylab="vahemaa")


t=0:5
s=g*t*t/2
barplot(s)
s
s[1]
s[2]-s[1]
s2=s[2:6]
s2
s3=s[1:5]
s3
liikumised=s3-s2
liikumised
pie(liikumised)


lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt",
                header=TRUE, sep=",")
lapsed
lapsed$pikkus
mean(lapsed$pikkus)
lapsed$pikkus-mean(lapsed$pikkus)
round(lapsed$pikkus-mean(lapsed$pikkus))
round(sort(lapsed$pikkus)-mean(lapsed$pikkus))
table(round(sort(lapsed$pikkus)-mean(lapsed$pikkus)))
table(lapsed$sugu)
table(lapsed$sugu, lapsed$pikkus>160)

barplot(table(lapsed$sugu, lapsed$pikkus>160))

barplot(table(lapsed$sugu, lapsed$pikkus>160), 
        xlab="pikkus>160", ylab="laste arv", beside = TRUE,
        main="Sagedusjaotus vastavalt pikkustele")

hist(lapsed$pikkus)

hist(lapsed$pikkus, breaks=seq(140, 180, 8), main="Pikkuste histogramm"
     , ylab="sagedus")

plot(lapsed$pikkus, lapsed$mass)

plot(lapsed$pikkus, lapsed$mass, col=ifelse(lapsed$sugu=="m", "blue", "red"))

plot(lapsed$pikkus, lapsed$mass, type="n")
text(lapsed$pikkus, lapsed$mass, lapsed$eesnimi, 
     col=ifelse(lapsed$sugu=="m", "blue", "red"), cex=0.7) #fondi suurus
abline(v=mean(lapsed$pikkus), col="gray")
#Lisage horisontaaljoon laste keskmise massiga
abline(h=mean(lapsed$mass), lty=2)
abline(lm(lapsed$mass~lapsed$pikkus))