# misure delle durata di 1 sec cronometrate manualmente
tempi <- c(111,103,109, 97, 99,110, 99,103,109,106,
           109,112, 98,110, 90, 98, 96, 90, 96, 90,
           109,103, 96, 97, 96, 96,109,103, 98, 94,
           115, 78, 85, 96, 89,121, 98,103, 97, 88,
            98,129, 96, 68, 91, 80,102)
tempi <- tempi+1/2
vel <- 1/tempi
summary(vel)
hist(vel,right=FALSE,col="yellow")
abline(h=axTicks(2),lty=2)