datos <- data.frame(
  Nombre = c("Sonia", "Rebeca", "Juan", "Amanda", "Gilberto", 
             "Lucas", "Israel", "Marlo", "Melany", "Juseín", 
             "Trinidad", "Fernando", "Oscar", "María", "Angélica", 
             "Jonathan", "Alejandro", "Carlos", "Daniela", "Mariela", 
             "Arleth", "Katia", "Valeria", "Viridiana"),
  Edad = c(25, 20, 19, 19, 25, 23, 25, 32, 28, 22, 
           19, 26, 31, 18, 22, 22, 27, 29, 21, 26, 
           24, 33, 37, 21),
  Estatura = c(1.6, 1.78, 1.9, 1.55, 1.7, 1.72, 1.81, 1.82, 1.7, 1.76, 
               1.58, 1.76, 1.76, 1.69, 1.66, 1.71, 1.79, 1.72, 1.73, 1.55, 
               1.64, 1.56, 1.6, 1.64)
)


Tabla_edad <- datos[6:10, ]

Tabla_edad
##    Nombre Edad Estatura
## 6   Lucas   23     1.72
## 7  Israel   25     1.81
## 8   Marlo   32     1.82
## 9  Melany   28     1.70
## 10 Juseín   22     1.76