我想做一个神经网络图，但R没有给我一个结果(图没有出现)。
我编写了如下代码:
# https://www.geeksforgeeks.org/how-neural-networks-are-used-for-regression-in-r-programming/?ref=rp
set.seed(500)
install.packages("neuralnet")
library(neuralnet)
library(MASS)
data<-na.omit(DE[309:348]) # some financial data with a lot of NAs that I eliminated
data
# Normalize the data
maxs <- apply(data, 2, max)
mins <- apply(data, 2, min)
scaled <- as.data.frame(scale(data, center = mins,
scale = maxs - mins))
# Split the data into training and testing set
index <- sample(1:nrow(data), round(0.75 * nrow(data)))
train_ <- scaled[index,]
test_ <- scaled[-index,]
# Build Neural Network
nn <- neuralnet(c1 ~ p1 + p2 + m1 +m2 +m3 +m4 +m5 + m6,
data = train_, hidden = c(5, 3),
linear.output = TRUE)
# Predict on test data
pr.nn <- compute(nn, test_[,1:8]) # 8 -> number of independent variables in the regression equation
# Compute mean squared error
pr.nn_ <- pr.nn$net.result * (max(data$c1) - min(data$c1))
+ min(data$c1)
test.r <- (test_$c1) * (max(data$c1) - min(data$c1)) +
min(data$c1)
MSE.nn <- sum((test.r - pr.nn_)^2) / nrow(test_)
# Plot the neural network
plot(nn) # everything worked but plot is not showing up.
没有错误信息。控制台只显示以代码形式编写的plot(nn)。这里出了什么问题?
我发现这些情节是在一个单独的窗口中打开的，而不是在控制台环境中。但是，如果我删除所有现有的绘图，然后使用plot(nn)，它就可以工作了。我从一个开发人员那里听说，这被认为是R中的某种bug，这有点麻烦。然而，你只需要知道它。
根据Pax的建议，plot也与plotnet(nn)一起工作，这在设计上有所不同。