# 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