RSSL包SelfLearning函数调用出错了:(

Question

Browse[1]> SSL.PVAF <- train.ssl(feature[1:train.size, ], feature.PVAF, feature[-1:-train.size,], lable)
收捲时出错: 参数长度为零
Error: no more error handlers available (recursive errors?); invoking 'abort' restart

一直遇到上述这个报错怎么办呢

##print出来都没有问题的
train.ssl <- function(dataone, posi, datatwo, lable) {
  #print(dataone[,posi])
  #print(dataone[,lable])
  #print(datatwo[,posi])
  ssl <- SelfLearning(dataone[,posi], dataone[,lable],datatwo[,posi], method =ICLeastSquaresClassifier)
  #return(ssl)
}
##下面是函数被调用的代码，也不知道有没有问题
SSL.PVAF <- train.ssl(feature[1:train.size, ], feature.PVAF, feature[-1:-train.size,], lable)

Answer 1

从你提供的错误信息来看，问题主要出在 train.ssl 函数的调用上，特别是关于数据分割和索引的部分。错误 "参数长度为零" 通常意味着你试图传递一个空的向量或矩阵给函数，这可能是因为索引方式不正确导致的。

首先，让我们仔细看一下你的函数调用：

R
SSL.PVAF <- train.ssl(feature[1:train.size, ], feature.PVAF, feature[-1:-train.size,], lable)
这里有几个潜在的问题点：

索引错误：feature[-1:-train.size,] 这部分索引看起来是不正确的。在R中，-1:-train.size 会生成一个从 -1 到 -train.size 的负序列，而不是你可能想要的从 train.size + 1 到数据末尾的索引。你应该使用 feature[(train.size+1):nrow(feature), ] 来获取训练集之后的数据。
变量名 lable：确保 lable 是你想要的标签列的正确名称或索引。在你的函数定义中，你使用了 dataone[,lable]，所以 lable 应该是一个列名或列索引。确认这一点是否正确。
feature.PVAF 的含义：从函数定义来看，feature.PVAF 被用作 posi 参数，但不清楚它的确切含义。如果它应该是一个列索引或列名列表，请确保它正确无误。
函数定义中的注释：你的函数定义中包含了注释掉的 return(ssl)，这意味着即使 ssl 对象被创建，它也不会被返回。虽然这不会直接导致错误，但可能不是你想要的行为。
修改后的函数调用可能如下：

SSL.PVAF <- train.ssl(feature[1:train.size, ], feature.PVAF, feature[(train.size+1):nrow(feature),], lable)

同时，确保 train.size 是一个小于 nrow(feature) 的正整数，并且 feature.PVAF 和 lable 是正确的列索引或列名。

最后，如果你仍然遇到问题，建议添加一些打印语句来检查每个参数的实际内容，以确保它们是你期望的。例如：

train.ssl <- function(dataone, posi, datatwo, lable) {  
  print(dim(dataone[, posi]))  
  print(head(dataone[, lable]))  
  print(dim(datatwo[, posi]))  
  ssl <- SelfLearning(dataone[, posi], dataone[, lable], datatwo[, posi], method = ICLeastSquaresClassifier)  
  return(ssl)  
}