在R中运行我的函数时出现罕见错误

Question

我有两个功能。一个用于训练分类器，另一个用于预测测试数据。如果我一步一步地运行预测函数它工作正常，但是如果我调用预测函数我得到一个错误。由于函数代码没有手动编译错误，我无法知道发生了什么。我已经在Github上传了这两个函数和数据。you can access here

modelFit=mdp(Class = dades[,1],data=dades[,-1],lambda = 1,info.pred = T)
predict.mdp(modelFit, dades[1:5,-1])
Error in D[row, i] : subscript out of bounds

感谢您提供帮助

的任何事情

Answer 1

我可以看到的原因是在D[row, i]中，变量row超过了D中的行数。 row本身来自vec.new：for(row in vec.new)

这件作品是罪魁祸首：

start=dim(D)[1]
vec.new=(start+1):(start+dim(newdata)[1])

vec.new从nrow(D)+1开始，所以即使是第一个元素实际上也超出了D的大小。

您可以在代码中插入cat(row)并查看。

我想你必须考虑start应该是什么。