quantilanci = 1000000

DadoDeDadis = sample(1:6, quantilanci, replace = TRUE)
DadinaDeDadis = sample(1:6, quantilanci, replace = TRUE)

duedadi = DadoDeDadis + DadinaDeDadis

palline = c( 2, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 11, 11, 12 )

sacchetti = sample(palline, quantilanci, replace = TRUE)

par(mfrow = c(1,2))
minimo = 2
massimo = 13
tagli = minimo : massimo - 0.5
hist(duedadi, breaks = tagli, col = "orange")
hist(sacchetti, breaks = tagli, col = "violet")