# Studio della prob. delle uscite di un dado equo
source("http://macosa.dima.unige.it/r.R")
prove = trunc( runif(100000, min=1,max=7) )
str(prove)
# num [1:100000] 6 4 5 3 5 1 4 5 1 2 ...
Istogramma(prove, 0.5,6.5, 1)
  
#
# ovvero:
prove <- 100000; U <- vector(length=6)
for (k in 1:prove) {d <- floor(runif(1)*6)+1; U[d] <- U[d]+1}
barplot(U/prove*100,names.arg=c(1,2,3,4,5,6))
print(U/prove*100)