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的大黄鸭
