Una persona debe realizar una muestra de N personas para determinar el promedio del peso de los niños, jóvenes, adultos y ancianos que existen en un departamento conforme va encontrando a las personas introduce los datos a su computadora, la cual mediante un programa los clasifica y despliega los cuatro promedios que la persona requiere

x<-read.table("archivo.txt",header=T,sep="|")

b<-split(x,x$edad)

sapply(b,mean)