range(Altura)
maximo=max(Altura)
minimo=min(Altura)
R=maximo-minimo
k=sqrt(length(altura))
h=R/k

table(cut(Altura,seq(minimo,maximo+1,h)))