Se construye un grafico de densidades para la variable peso corporal de 49 alumnos de un salón de clase.

datos<-read.csv("Libro1.csv", header=T)
View(datos)
datos[1:10, c('Peso')]

##  [1]  77  87  54 102  62  50  57  80  98  42

plot(density(x=datos$Peso), main="Distribución del peso corporal", xlab="Peso(Kg)", ylab="Densidad", lwd=4, col="blue")