objetico: Clasificar las personas por edad

edad <- 5
nombre <- 'Pedro'
if (edad <= 5) 
{
  clasifica <- 'Infantil'
  apoyo <- 'Guarderia'
}
if(edad >= 6 & edad <= 14)
{
  clasifica <- 'Adolesente'
  apoyo <- 'Becas'
}
if(edad >= 15 & edad <= 19)
{
  clasifica <- 'Joven'
  apoyo <- 'Becas'
}
if(edad >= 20 & edad <= 29)
{
  clasifica <- 'Adulto Joven'
  apoyo <- 'Trabajo'
}
if(edad >= 30 & edad <= 50)
{
  clasifica <- 'Adulto Plenitud'
  apoyo <- 'Trabajo'
}
if(edad >= 51 & edad <= 67)
{
  clasifica <- 'Adulto Maduro'
  apoyo <- 'Medico'
}
if(edad >= 68 )
{
  clasifica <- 'Adulto Mayor'
  apoyo <- 'Medico'
}

paste(nombre, 'tiene', edad, 'años se clasifica en', clasifica, 'necesita apoyo de' , apoyo) 

## [1] "Pedro tiene 5 años se clasifica en Infantil necesita apoyo de Guarderia"