p=scan("http://www.tlu.ee/~jaagup/andmed/muu/pikkused.txt")
head(p)
sapply(p, function(x){paste(x%/%100, "m", x %% 100, "cm")})
paarissumma=0
for(x in p){
  if(x %% 2 == 0) {
    print(x)
    paarissumma=paarissumma+x
  }
}
print(paarissumma)
#Kirjuta välja paaritud

ifelse(p%%2==0, "paaris", "paaritu")
mitmekooligavallad=koolid %>% group_by(vald) %>% 
  summarise(kogus=n()) %>% 
  filter(kogus>1) %>% .$vald
keskmiseltopilasikoolis=mean(koolid$opilasi)
koolid %>% filter(vald %in% mitmekooligavallad, 
        opilasi<keskmiseltopilasikoolis/10) %>%
    arrange(opilasi)