> 3+2
[1] 5
> 2**3
[1] 8
> pikkus=160
> pikkus/100
[1] 1.6
> pikkused=c(170, 178, 161, 163, 168, 169)
> max(pikkused)
[1] 178
> (max(pikkused)+min(pikkused))/2
[1] 169.5
> #Leidke suurima ja vähima pikkuse vahe
> max(pikkused)-min(pikkused)
[1] 17
> mean(pikkused)
[1] 168.1667
> median(pikkused)
[1] 168.5
> summary(pikkused)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  161.0   164.2   168.5   168.2   169.8   178.0 
> fivenum(pikkused)
[1] 161.0 163.0 168.5 170.0 178.0
> ?fivenum
> pikkused
[1] 170 178 161 163 168 169
> pikkused[1]
[1] 170
> pikkused[-1]
[1] 178 161 163 168 169
> pikkused[1:3]
[1] 170 178 161
> 1:3
[1] 1 2 3
> mean(pikkused[1:3])
[1] 169.6667
> pikkused[c(1, 3, 5)]
[1] 170 161 168
> pikkused[-c(1, 3, 5)]
[1] 178 163 169
> length(pikkused)
[1] 6
> pikkused[length(pikkused)]
[1] 169
> #Kuvage eelviimane pikkus
> pikkused[length(pikkused)-1]
[1] 168
> sort(pikkused)
[1] 161 163 168 169 170 178
> rivis=sort(pikkused)
> rivis[length(rivis)-1]
[1] 170
> sort(pikkused)[2]
[1] 163
> #Leidke järjestatutest eelviimane pikkus
> sort(pikkused)[length(pikkused)-1]
[1] 170
> pikkused=c(pikkused, 180)
> pikkused
[1] 170 178 161 163 168 169 180
> sort(pikkused)[length(pikkused)-1]
[1] 178
> pikkused=c(170, 178, 161, 163, 168, 169)
> function kalle(){
Error: unexpected symbol in "function kalle"
>   return length(pikkused)
Error: unexpected symbol in "  return length"
> }
Error: unexpected '}' in "}"
> 
> kalle()
Error: could not find function "kalle"
> pikkused=c(170, 178, 161, 163, 168, 169)
> kalle=function(){
+   return length(pikkused)
Error: unexpected symbol in:
"kalle=function(){
  return length"
> }
Error: unexpected '}' in "}"
> 
> kalle()
Error: could not find function "kalle"
> pikkused=c(170, 178, 161, 163, 168, 169)
> kalle <- function(){
+   return(length(pikkused))
+ }
> 
> kalle()
[1] 6
> pikkused[kalle()-1]
[1] 168
> 

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

kalle()

pikkused[kalle()-1]
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


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)