# Copia e incolla in R (senza preoccuparti del contenuto del file)
#
# differenze tempi arrivo telef. alla VENTEL tra le 15:10 e le 15:30 rilevati da TELSTAT
t <- 15+10/60; m <- 9; d <- NULL; i <- 0
while(t < 15.5) {i <- i+1; d[i] <- -m*log(runif(1)); t <- t+d[i]/3600}
hist(d,probability=TRUE,col="yellow",right=FALSE)
abline(h=seq(0.01,0.1,0.01),lty=3)
summary(d)