R：在函数中找不到对象

Question

我的代码有一些问题，每当我运行代码时，输​​出总是返回一个错误，说“找不到对象 pv”有人可以帮忙吗？将不胜感激！

代码：

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 没有被定义。