altura<- c(1.69, 1.78, 1.73, 1.56, 1.59, 1.75, 1.72, 1.76,
           1.65, 1.70, 1.64, 1.65, 1.67, 1.80, 1.90, 1.72,
           1.56, 1.93, 1.75, 1.74, 1.65, 1.80, 1.57, 1.71)
altura

plot(altura, ylab="Altura (m)", xlab="?ndice")

stripchart(altura,method="stack",offset=1,xlab="Altura (m)",pch=1)

stem(altura)

hist(altura, xlab="Altura (m)", ylab="Frequência", main="Histograma")