在 for 循环中在 R 中构造函数

Question

我一直在对代码进行故障排除，但被卡住了。我试图在 R 的 for 循环中重复运行一个函数，同时附加到一个向量。我的代码如下：

densities = rep(NA, length(seq(0, 1, by = 0.01)))
count = 1

for (t in seq(0, 1, by = 0.01)) {
  applyThreshold(t, densities, count)
}

applyThreshold = function(t, densities, count){
  tMatrix = corMatrix
  tMatrix[corMatrix < t] = 0 
  tMatrix[corMatrix >= t] = 1
  nVector = c()
  for (n in 1:dim(tMatrix)[1]){
    nSum = sum(tMatrix[,n])
    if (nSum == 0){
      nVector = c(nVector, n)
    }
  }
  if (length(nVector) >0){
    tMatrix = tMatrix[,-(nVector)]
    tMatrix = tMatrix[-(nVector),] 
  }

  E = sum(tMatrix)/2
  V = dim(tMatrix)[1]
  densities[count] = 2*E/(V*(V-1))
  count = count + 1
}

但是，在运行此命令结束时，我的密度和计数尚未更新。我觉得这是一个简单的修复，但我一直在查看 R 中函数的文档，但仍然卡住了。任何建议将不胜感激！

Answer 1

这一切都搞砸了。目前您的函数返回count + 1。这就是它所做的一切。您需要了解不同变量的范围。函数中的所有这些变量仅在调用该函数时存在于该函数中。您需要使用return() 从中获取实际值并将它们存储在单独的变量中。此外，您需要确保在尝试使用它之前已经创建了您的函数。如果按原样运行代码，甚至不会在 for 循环中创建 applyThreshold。

在创建函数后尝试运行它以了解我的意思：

y <- applyThreshold(.5, densities, 5)
print(y)

变量corMatrix 甚至不存在于您的函数中。