function(n.otazok=50,n.ziakov=40000,obtiaznost=-0.5,sigma=1.2) { # n.otazok ... pocet otazok # n.ziakov ... pocet ziakov vysledky<-rep(0,n.ziakov) for(i in 1:n.ziakov){ print(i) ziak<-rnorm(1,sd=sigma) # Aky dobry je ziak: 0...priemerny body<-0 # Kolko ziak dostane bodov for(j in 1:n.otazok){ if(runif(1)