# secondi tra una telefonata e l'altra in arrivo ad una ditta di vendite televisive
difarr <- c(
7.0,6.0,1.3,2.1,15.8,5.3,3.0,28.0,2.8,10.4,3.0,2.8,1.5,10.3,11.8,6.5,
1.7,6.1,3.4,21.6,1.7,1.3,10.3,9.1,2.0,2.8,0.8,18.0,1.7,36.0,22.0,8.2,
2.9,14.2,0.1,0.2,32.8,0.3,9.6,5.8,13.2,1.0,15.0,2.1,13.1,2.2,3.6,2.6,
13.0,8.3,18.4,30.9,30.2,6.8,10.4,2.4,0.9,16.7,9.5,19.2,17.8,10.1,5.4,8.0,
13.2,12.2,6.8,4.4,4.8,27.0,4.6,8.8,14.3,4.8,1.8,5.1,0.8,5.8,15.7,0.7,
45.1,16.5,4.5,7.1,7.4,4.1,1.7,16.1,1.8,1.8,5.2,2.3,3.2,1.9,13.7,11.6,
12.2,0.3,6.4,5.8,12.4,11.9,1.6,3.5,3.7,20.4,5.0,0.7,11.8,0.7,23.7,6.0,
0.8,0.9,7.3,6.1,14.0,9.5,4.8,27.6,15.9,9.4,8.8,8.9,0.2,9.0,3.2,2.4,
36.0,1.5,0.2,2.6,15.1,9.9,31.8)