# 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