R语言实例学习① BMI

2021.11.20 初版
以前接了一单，一个刚入门R语言的小伙伴让我帮他写作业（具体我就不透露是谁了哈哈哈，因为我接了好多单都是相同的题，可能是网课里的）我觉得对于R语言的入门小伙伴来说，值得拿出来跟大家共同讨论。一共有五题，我一天更新一题吧。毕竟快期末考试了，没多少时间。其实也是为了完成日更嘻嘻

---

误入BioInfor的大黄鸭 --一个喜欢把教程写着写着写成科普的本科临床医学生

---

题目是这样的

1.png

我们首先想到做出个有两个变量的函数，函数名我定为BMIcal，变量名就设定为Height,Weight吧。。
框架就来了

BMIcal <- function(Height,Weight){

......

}

双引号的地方就是函数的主体部分了

我的思路就是，先计算BMI，然后做个判断语句（if）

BMI = Weight/(Height^2)

然后再写个if语句，做四个判断，else if就用上了

  if (BMI<18.5){
    return("偏瘦")
  } else if(BMI>=18.5&BMI<24){
    return("正常")
  } else if(BMI>=24&BMI<28){
    return("偏胖")
  } else if(BMI>=28){
    return("肥胖")
  }

之后，我们把内容物都放入函数里，最终形态

BMIcal <- function(Height,Weight){
  
  BMI = Weight/(Height^2)

  if (BMI<18.5){
    return("偏瘦")
  } else if(BMI>=18.5&BMI<24){
    return("正常")
  } else if(BMI>=24&BMI<28){
    return("偏胖")
  } else if(BMI>=28){
    return("肥胖")
  }
}

这就打包成一个函数啦
如果我们要使用这个函数，可以直接用代码

BMIcal(1.75,65)
#也可以用下面函数写入一个变量里
a=BMIcal(1.75,65)

就能直接得出判断的结果啦

感觉今天讲的内容没啥实际性的价值，感到很抱歉，下次小黄鸭会给大家推送更多有意义的知识。好啦，今天就到这了。关注我更新更多生信小秘籍，欢迎大家关注支持～大家关注一下我：误入BioInfor的大黄鸭