我想在R中写一个条件:首先,我编写了以下代码,用于生成0到4之间的随机整数:effort <-sample(0:4, 1000,replace= T)
然后我想生成一个条件格式:#(如果努力=0,则返回4500,如果努力=1,则返回4300,如果努力=2,则返回3700,如果努力=3,则返回4700,如果努力=4,则返回5300)
所以我写了这些代码:
bso<- function(effort){
if(effort==0){return(4500)}
if(effort==1){return(4300)}
if(effort==2){return(3700)}
if(effort==3){return(4700)}
if(effort==4){return(5300)}}
2条答案
按热度按时间ru9i0ody1#
下面是问题代码的更正版本。
但是下面的版本要快得多。它使用输入变量
effort
作为索引向量。使用
microbenchmark
封装进行性能测试。kqlmhetl2#
对于
case_when
也可能有用