为什么R中的参数长度为零？

Question

我有一个名为PAP的简单函数。我想知道我什么时候运行它为什么会出现以下错误：

Error in if (n.sim < 2) { : argument is of length zero

这是我的PAP函数：

PAP = function (n.sim, sim.time){

   n.sim = if(n.sim < 1) { n.sim = 1 } # If a user put zero or a negative number, make it 1
sim.time = if(n.sim < 2) { sim.time = 0 } else { sim.time } 

for (i in 1:n.sim) {

  plot( rnorm(1e2) )

 Sys.sleep( sim.time ) }
}

PAP(n.sim = 2, sim.time = 5)

Answer 1

您不应该尝试分配if语句的结果，因为这会发生：

> n.sim = 2
> n.sim = if(n.sim < 1) { n.sim = 1 }
> n.sim
NULL

相反，你应该这样做：

PAP = function (n.sim, sim.time){

    if(n.sim < 1) { 
        n.sim = 1 
    } # If a user put zero or a negative number, make it 1
    if(n.sim < 2) { 
        sim.time = 0 
    } # else didn't do anything here so removed

    for (i in 1:n.sim) {

        plot( rnorm(1e2) )

        Sys.sleep( sim.time ) 
    }
}

即。只需使用if作为控制流语句来确定是否执行特定行，并使用中的代码来更改变量。