渣渣小白学R（每日一题）--读取一个数年龄x（x在0-140），判断其年龄段

方法一：手动调用函数

judgeAge = function(x)
{
  if((x>=0)&(x<1))
  {
    print("婴儿")
  }
  else if((x>=1)&(x<6))
  {
    print("幼儿")
  }
  else if((x>=6)&(x<12))
  {
    print("儿童")
  }
  else if((x>=12)&(x<19))
  {
    print("少年")
  }
  else if((x>=19)&(x<39))
  {
    print("青年")
  }
  else if((x>=39)&(x<59))
  {
    print("中年")
  }
  else if((x>=59)&(x<140))
  {
    print("老年")
  }
  else
  {
    print("不能识别年龄段")
  }
}

judgeAge(35) 
judgeAge(150) 
judgeAge(1) 

 方法二：如果用键盘输入一个数字，返回其对应的年龄段.可以用readline函数.

(键盘输入的x一定要用as.numeric转换成数值哈哈哈哈哈哈哈！！！困扰我两天的错误！！！)

judgeAge = function()
{
  x=as.numeric(readline('请输入年龄：'))
  if((x>=0)&(x<1))
  {
    cat("婴儿")
  }
  else if((x>=1)&(x<6))
  {
    cat("幼儿")
  }
  else if((x>=6)&(x<12))
  {
    cat("儿童")
  }
  else if((x>=12)&(x<19))
  {
    cat("少年")
  }
  else if((x>=19)&(x<39))
  {
    cat("青年")
  }
  else if((x>=39)&(x<59))
  {
    cat("中年")
  }
  else if((x>=59)&(x<140))
  {
    cat("老年")
  }
  else
  {
    cat("不能识别年龄段")
  }
}

judgeAge()