Simula la scommessa di De Mere
Questa funzione simula la scommessa di de Mere calcolando la probabilita' di fare almeno un 6 in 4 lanci di un dado regolare.
gioco1(prove=10000) gioco1a(prove=10000)
prove |
numero di prove da utilizzare nella simulazione |
La versione gioco1 della funzione non e' efficiente in termini di
velocita' in quanto vengono impiegati cicli for. Si noti la
differenza in termini di velocita' con la version gioco1a.
ptm <- proc.time() gioco1a(10000) proc.time() - ptm ptm <- proc.time() gioco1(10000) proc.time() - ptm
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.