# Calcoli svolti usando:
source("http://macosa.dima.unige.it/r.R")
#
# morti (in migliaia) per classi di eta` in Italia nel 1881-1890
mor1 <- c(3818,343,303,398,360,384,495,1177,708)
interv1 <- c(0,5,10,20,30,40,50,60,75,100)  # un dato in piu' di mor
BF=4; HF=3; histoclas(interv1,mor1)
BF=4; HF=1.4; boxAB=c(0,110); morestat()
# morti (in centinaia) per classi di eta` in Italia nel 1951
mor2 <- c(729,35,77,132,134,285,457,1401,1569)
interv2 = interv1
BF=4; HF=3; histoclas(interv2,mor2)
BF=4; HF=1.4; boxAB=c(0,110); morestat()
# morti (in centinaia) per classi di eta` in Italia nel 1988
mor3 <- c(68,10,31,66,70,161,423,1516,2983)
interv3 = interv1
BF=4; HF=3; histoclas(interv3,mor3)
BF=4; HF=1.4; boxAB=c(0,110); morestat()
# morti italiani nel 2006 (ogni 10000); ho informazioni pił dettagliate
# e ottengo un istogramma  con pił colonne
mor4 <-     c(43, 5, 6,16,23,26,28,37,56,88,141,225,350,
            518,814,1245,1771,2027,1643,727,195, 17)
interv4 <- c(0,5,10,15,20,25,30,35,40,45,50,55, 60, 65,
             70, 75,  80,  85,  90,  95,100,105,110)
BF=4; HF=3; histoclas(interv4,mor4)
BF=4; HF=1.4; boxAB=c(0,110); morestat()
#    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#   0.000   2.615   7.553  28.190  57.750 100.000 
#    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#    0.00   43.43   66.00   58.32   80.80  100.00 
#    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#    0.00   64.98   77.67   74.82   88.84  100.00 
#    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#    0.00   75.50   83.89   81.13   90.25  110.00