R：在函数中找不到对象

Question

我的代码存在一些问题，每当我运行代码时，输​​出总会返回，并显示错误提示＆＃34;找不到对象pv＆＃34;任何人都可以帮忙吗？非常感谢！

代码：

lo <- function(x, y)
 {
   for(i in 1:(y-1))
   {
     for(j in 1:length(x))
     {
       First = function (x)
       {if (i%%x[j] == 0) {pv <- cumsum(x)}}
     }
   }
   return(pv)
}
lo(6, 20)

Answer 1

问题是你的内循环来自1:length(x)。

您提供的20为x。包含一个数字的对象的长度为1.从1循环到1意味着0次迭代。那你永远不会跑pv <- cumsum(x)。所以当你到达return语句时没有定义pv。