# binom(20,0.6) val. valt. 11 db
a <- rbinom(11,size=20,prob=0.6)
b <- sort(a)
# median: novekevo sorrendbe rendezve kozepso
b[6]
quantile(a,0.5)
# meadian = 0.5-kvantilis: adatok 0.5-resze kisebb
# ennel az erteknel
# pl. 0.3-kvantilis: x szam, aminel az adatok 
# 30%-a kisebb - 30-percentilis
quantile(a,0.3)
c <- rbinom(10,size=20,prob=0.6)
quantile(c,c(0,0.2,0.3,0.5,1))