pikkus=c(3,8,10,11,12,13,14,15,17,20)
laius=c(1,2,4,3,3,3,5,4,5,5)
roots=c(4,5,5,6,4,4,3,6,7,8)
loglaius=log(laius)
pindala=pikkus*laius
leheke=data.frame(pikkus,laius,roots,loglaius,pindala)

plot(laius,pikkus)
#esimene argument x-teljele
cor(pikkus,laius) #pearsoni korrelatsioonikordaja
cor.test(pikkus,laius) #teeb ka olulisuse testi
cor.test(pikkus,laius,method="s") #spearmani korrelatsioon
cor.test(pikkus,loglaius,method="s") #monotoonne teisendus väärtust ei muuda
cor(leheke) #korrelatsioonimaatriks, olulisusi saab kontrollida ükhaaval (kui täielik valim, siis tehes kindlaks kriitilise vääürtuse)

temp=c(8,9,10,11,12,13,14,15,16,17)
laius=c(4,4,7,5,6,7,8,9,10,9)
pikkus=c(1,2,4,3,4,3,5,4,5,7)

plot(temp,pikkus)
mudel=lm(pikkus~temp) #regressioon
anova(mudel)
summary(mudel)
mudel2=lm(pikkus~temp-1) #vabaliige ära
anova(mudel2)
summary(mudel2)