> 3+2
[1] 5
> synniaasta=1976
> synniaasta
[1] 1976
> pikkused=c(165, 175, 172)
> pikkused
[1] 165 175 172
> pikkused/100
[1] 1.65 1.75 1.72
> pikkused+1
[1] 166 176 173
> mean(pikkused)
[1] 170.6667
> pikkused-mean(pikkused)
[1] -5.666667  4.333333  1.333333


    120     130     140     150     160     170     180
0.00085 0.02907 0.23330 0.47146 0.23493 0.02963 0.00076
> table(round(rnorm(100000, 150, 8),-1))/100000

    110     120     130     140     150     160     170     180
0.00001 0.00090 0.03041 0.23204 0.47040 0.23596 0.02949 0.00079
> table(round(rnorm(100000, 150, 8),-1))/100000



lapsed=read_csv("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt")
Parsed with column specification:
cols(
  eesnimi = col_character(),
  pikkus = col_integer(),
  mass = col_integer(),
  sugu = col_character()
)
> View(lapsed)
> View(lapsed)
> lapsed %>% ggplot(aes(pikkus, mass)) + geom_point()
> lapsed %>% ggplot(aes(pikkus, mass, col=sugu)) + geom_point()
> lapsed %>% ggplot(aes(pikkus, mass)) + geom_point()+facet_wrap(~sugu)