pikkused=c(170, 178, 161, 163, 168, 169)
kalle <- function(){
  return(length(pikkused))
}

kalle()

pikkused[kalle()-1]
pikkused/100
#Liitke igale pikkusele 1

pikkused-mean(pikkused)
(pikkused-mean(pikkused))**2
sum((pikkused-mean(pikkused))**2)
sqrt(sum((pikkused-mean(pikkused))**2)/(length(pikkused)-1))
sd(pikkused)
#Leia pikkuste erinevused keskmisest pikkusest
#Võta nendest absoluutväärtused ning leia nende keskmine
mean(abs(pikkused-mean(pikkused)))

abs(-1)
pikkused
pikkus=169
names(pikkus)="Juku"
pikkus
unname(pikkus)
names(pikkused)=c("Juku", "Kati", "Mati", "Mari", "Madis", "Malle")
pikkused
pikkused[2]
pikkused[[2]]
barplot(pikkused, las=2) #nimed vertikaalselt
barplot(sort(pikkused), las=2) 
pikkused=unname(pikkused)
pikkused
?write.table
write.table(pikkused, "d:/pikkused.txt", sep=",")


lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", 
                   header=TRUE, sep=",", stringsAsFactors = FALSE)
lapsed
class(lapsed)
head(lapsed)
tail(lapsed)
lastepikkused=lapsed$pikkus
lastepikkused
lapsed$sugu
class(lapsed$pikkus)
class(lapsed$sugu)
lapsed$sugu=="n"
lapsed$sugu
tydrukud=lapsed[lapsed$sugu=="n", ] #kõik veerud
tydrukud
lapsed[lapsed$sugu=="n", "pikkus"]
lapsed[lapsed$sugu=="n", c("pikkus", "mass")]
lapsed[, c("pikkus", "mass")]
lapsed[1:5, c("pikkus", "mass")]
mean(lapsed[lapsed$sugu=="n", "pikkus"])
#rm(tydrukud)
lapsed[lapsed$pikkus>160 & lapsed$pikkus<170, c("pikkus", "mass")]
tydrukud
order(tydrukud$pikkus)
tydrukud[order(tydrukud$pikkus), ]
tydrukud[rev(order(tydrukud$pikkus)), ]
write.table(tydrukud[rev(order(tydrukud$pikkus)), ], "d:/tydrukud1.csv", 
              sep=";", row.names = FALSE)

table(lapsed$sugu)
table(lapsed$sugu, lapsed$pikkus<160)
pikkused=c(168, NA, 173)
mean(pikkused)
mean(pikkused, na.rm=TRUE)
barplot(table(lapsed$sugu), xlab="sugu", ylab="sagedus",
          main="Laste sood klassis")
pie(table(lapsed$sugu), xlab="sugu", ylab="sagedus",
        main="Laste sood klassis")
barplot(table(lapsed$sugu, lapsed$pikkus<160), xlab="pikkus<160")
barplot(table(lapsed$sugu, lapsed$pikkus<160), xlab="pikkus<160",
          beside=TRUE)

install.packages("rmarkdown")