# Studio della prob. delle uscite di un dado equo source("http://macosa.dima.unige.it/r.R") prove = RUNIF(100000, 1,6) str(prove) # num [1:100000] 6 4 5 3 5 1 4 5 1 2 ... Histogram(prove, 0.5,6.5, 1) # Frequencies and percentage freq.: # 16580, 16719, 16781, 16613, 16714, 16593 # 16.58, 16.72, 16.78, 16.61, 16.71, 16.59 # ovvero: prove <- 100000; U <- vector(length=6) for (k in 1:prove) {d <- RUNIF(1, 1,6); U[d] <- U[d]+1} BarNames = c("1","2","3","4","5","6"); Bar(U) # yellow,cyan,... % 16.580 16.719 16.781 16.613 16.714 16.59