# Le distribuzioni delle età dei morti in Italia nel decennio 1881-90 e nel 2006.
source("http://macosa.dima.unige.it/r.R")
HF=3; BF=4.5
freq <- c(3818,343,303,398,360,384,495,1177,708)
interv <- c(0,5,10,20,30,40,50,60,75,100)
histoclas(interv,freq)  # o:  istoclas(interv,freq)
# la media (pallino marrone) è circa  28.18891 
# Per altre statistiche usa il comando   altrestat() 
HF=1.3; morestat()     # o:  altrestat()

#   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#  0.000   2.615   7.553  28.190  57.750 100.000 
#    I pallini marroni sono 5° e 95° percentile 
#           Il pallino rosso è la media 
#
HF=3; BF=4.5
freq <- c(43,5,22,49,65,144,366,350,518,814,1245,1771,2027,1643,727,195,17)
interv <- c(0,5,10,20,30,40,50,60,65,70,75,80,85,90,95,100,105,110)
histoclas(interv,freq)
# la media (pallino marrone) è circa  28.18891 
# Per altre statistiche usa il comando   morestat()/altrestat() 
HF=1.3; morestat()

#   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#   0.00   75.50   83.89   81.10   90.25  110.00 
#    I pallini marroni sono 5° e 95° percentile 
#           Il pallino rosso è la media