neuralnet包出现$ operator is invalid for atomic vectors

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我使用neuralnet做bpn分析时，在显示预测结果出现Error in prediction$net.result : $ operator is invalid for atomic vectors，我已找过很多文章仍找不到解决方式，请问可以怎么做呢?! 以下是我的code另想请较这样的逻辑是否正确，谢谢


#资料标准化
maxs <- apply(data, 2, max)
mins <- apply(data, 2, min)
data1 <- as.data.frame(scale(data,center = mins, scale = maxs - mins))

bpn=neuralnet(formula = JS+TI~QA+QB+QC+QD+QE+QF+QG+QH+QI+QJ+QK+QL+QM+QN+QO+QP+QQ+QR+QS+QT,
              data = data1, hidden = 2, learningrate = 0.01, algorithm =  "backprop",
              err.fct = "sse", linear.output = FALSE)

#资料分成训练与测试
smp.size <- floor(0.8*nrow(data1))
set.seed(131)   
train.ind <- sample(seq_len(nrow(data1)), smp.size)
train <- data[train.ind, ]
test <- data[-train.ind, ]

#训练与测试资料标准化
maxst <- apply(train, 2, max)
minst <- apply(train, 2, min)
scaled.train <- as.data.frame(scale(train,center = mins, scale = maxs - mins))
maxst <- apply(test, 2, max)
minst <- apply(test, 2, min)
scaled.test <- as.data.frame(scale(test,center = mins, scale = maxs - mins))

#检视预测结果
prediction <- compute(bpn, scaled.test[, 1:20])$net.result
cbind(scaled.test, prediction)
prediction$net.result

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：operator vectors invalid Vector Perato

prediction直接是一个vector了，因此不能用list取元素的$符号

向量不能用$，$只能列表用，数据框是特殊的列表所以也可以对数据框用，向量不行