R语言神经网络neuralnet包预测结果全部相同是什么情况？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

程序为library(grid)

library(MASS)

library(neuralnet)

library(data.table)

ydata=fread('C:/Users/iPin1995/Desktop/data.csv')

trainingdata1=as.data.frame(ydata)

colnames(trainingdata1) <-c("year","people","car","road","keyun","huoyun")

traininginput <-as.matrix(trainingdata1[1:20,2:4])

trainingoutput <- as.matrix(trainingdata1[1:20,5:6])

trainingdata <- cbind(traininginput,trainingoutput)

trainingdata<- as.data.frame(trainingdata)

net1 <-neuralnet(keyun+huoyun~people+car+road,data=trainingdata, hidden=8,threshold=0.01,stepmax = 5e+04)

data=as.data.frame(trainingdata1[1:22,2:4])

net.results <- compute(net1,data)

print(net.results$net.result)

运行结果为

          [,1]   [,2]

1  21108.75021 9401.4

2  21108.75021 9401.4

3  21108.75021 9401.4

4  21108.75021 9401.4

5  21108.75021 9401.4

6  21108.75021 9401.4

7  21108.75021 9401.4

8  21108.75021 9401.4

9  21108.75021 9401.4

10 21108.75021 9401.4

11 21108.75021 9401.4

12 21108.75021 9401.4

13 21108.75021 9401.4

14 21108.75021 9401.4

15 21108.75021 9401.4

16 21108.75021 9401.4

17 21108.75021 9401.4

18 21108.75021 9401.4

19 21108.75021 9401.4

20 21108.75021 9401.4

21 21108.75021 9401.4

22 21108.75021 9401.4

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Neural 神经网络 神经网 R语言 NET

你好，请问解决了嘛？遇到了同样的问题

您好，请问解决了吗？我也是同样的问题

您好，遇到了相同的问题，请问解决了吗？