source("http://macosa.dima.unige.it/r.R") max(hist(alu,seq(140,164,3),plot=FALSE)$density) # 0.09259259 max(hist(alu2,seq(140,164,3),plot=FALSE)$density) # 0.07142857 BF=4; HF=3 noBox=1; boX(140,165,0,0.093) hist(alu,seq(140,164,3),angle=45,density=15,probability=TRUE,add=TRUE,border="black",col="blue") hist(alu2,seq(140,164,3),angle=135,density=15,probability=TRUE,add=TRUE,border="black",col="red")