---
title: '1'
output: html_document
---

```{r}
#arvud=c(2, 4, 4, 4, 5, 5, 7, 9)
arvud=c(2, 4, 4, 4, 5, 5, 7, 9, 6, 6, 3)
keskmine=mean(arvud)
vahed=arvud-keskmine
vaheruudud=vahed*vahed
ruutudesumma=sum(vaheruudud)
ruutudekeskmine=ruutudesumma/length(arvud)
ruutjuur=sqrt(ruutudekeskmine)
ruutjuur

standardhalve <- function(arvud){
  keskmine=mean(arvud)
  vahed=arvud-keskmine
  vaheruudud=vahed*vahed
  ruutudesumma=sum(vaheruudud)
  ruutudekeskmine=ruutudesumma/(length(arvud)-1)
  ruutjuur=sqrt(ruutudekeskmine)
  return (ruutjuur)
}

standardhalve(c(3, 5, 4))
sd(c(3, 5,4))

kiirused=c(220, 110, 60)
length(kiirused)/sum(1/kiirused)


#Kaalutud keskmine

hinded=c(5, 3, 4)
ainepunktid=c(6, 2, 3)

sum(hinded*ainepunktid)/sum(ainepunktid)

#install.packages("tidyverse")
library(tidyverse)

hinneteleht=tibble(
  ained=c("matemaatika", "filosoofia", "keemia"),
  hinded=c(5, 3, 4),
  ainepunktid=c(6, 2, 3)
)

hinneteleht
#leht2=edit(hinneteleht)
hinneteleht$ained
hinneteleht$hinded
hinneteleht[, 2]
hinneteleht[, 2:3]
hinneteleht[hinneteleht$hinded<5, 2:3]
hinneteleht[["ained"]]
hinneteleht["ained"]
hinneteleht[c("ained", "hinded")]
hinneteleht[["ained"]][2]

filter(hinneteleht, hinded>3)
filter(hinneteleht, hinded>3, ained=="keemia")

#Kuva rohkem kui kolmepunktised ained
filter(hinneteleht, ainepunktid>3)

hinneteleht %>% filter(ainepunktid>2) %>% filter(hinded<5)

hinneteleht %>% filter(ainepunktid %in% c(2, 3) )

arrange(hinneteleht, ainepunktid)
arrange(hinneteleht, -ainepunktid)

#kuvage alla kuuepunktised ained hinnete kasvavas järjekorras

arrange(filter(hinneteleht, ainepunktid<6), hinded)
hinneteleht %>% filter(ainepunktid<6) %>% arrange(hinded)

select(hinneteleht, ained, ainepunktid)
select(hinneteleht, -ained) #kõik peale ainete

#Kuva ained, mille ainepunkte on alla kuue
hinneteleht %>% filter(ainepunktid<6) %>% select(ained)

select(hinneteleht, contains("t")) #t-d sisaldavad tulbad
rename(hinneteleht, ainenimed=ained)

select(hinneteleht, ainepunktid, everything())

mutate(hinneteleht, vanadpunktid=round(2*ainepunktid/1.5)/2)

#Koosta ja lisa tulp, mille sisuks hinnete ja ainepunktide korrutis
mutate(hinneteleht, korrutis=hinded*ainepunktid)
transmute(hinneteleht, korrutis=hinded*ainepunktid)
mutate(hinneteleht, punktekoos=cumsum(ainepunktid))

leht3=add_row(hinneteleht, ained="astroloogia", ainepunktid=3, hinded=0)
leht3
as.numeric(leht3$hinded>0)*leht3$ainepunktid
mutate(leht3, punktekoos=cumsum(ainepunktid*(hinded>0)))

leht3 %>% group_by(ainepunktid) %>% summarise(keskminehinne=mean(hinded))

#Lisage iga erineva ainepunktide arvu juurde ka suurim ja vähim hinne

leht3 %>% group_by(ainepunktid) %>% 
  summarise(keskminehinne=mean(hinded), suurim=max(hinded), v2him=min(hinded))

leht3 %>% group_by(ainepunktid) %>% 
  summarise(keskminehinne=mean(hinded), suurim=max(hinded), v2him=min(hinded)) %>%
  arrange(desc(v2him))

#install.packages("rmarkdown")

```