Menu główne
Funkcja generująca wartości z rozkładu dwumianowegordwum=function(ile,n,p){
wynik=c()for (i in 1:ile) {
z=0 for (j in 1:n) {
if (runif(1)<p ) z=z+1
} wynik=c(wynik,z)
}wynik
}