# in questo script viene impiegata la funzione duplicated()
# che restituisce TRUE per i valori duplicati

giorni <- c(1:365)
prove <- 100000
numer <- 0
for (i in 1:prove)
{
    tmp <- sample(giorni,size=30,replace=TRUE)
    ris <- sum(duplicated(tmp))
    if (ris>0) numer <- numer + 1
}
print(numer/prove)