Fatal编程技术网
  • r/
  • 获取迭代次数，直到R'；s RSNNS包

获取迭代次数，直到R'；s RSNNS包

r neural-network

获取迭代次数，直到R'；s RSNNS包,r,neural-network,recurrent-neural-network,R,Neural Network,Recurrent Neural Network,我想通过使用RSNNS包在R中拟合一个递归神经网络。该包提供了设置最大迭代次数的选项，如下面的示例代码中所述，由maxit=1000完成。是否有可能看到算法在收敛之前使用了多少次迭代 library(RSNNS) library(xts) #Load Lynx data data(lynx) #Scale data and convert to xts data <- as.xts((lynx - min(lynx)) / (max(lynx) - min(lynx))) #Bui

我想通过使用
RSNNS
包在
R
中拟合一个递归神经网络。该包提供了设置最大迭代次数的选项，如下面的示例代码中所述，由
maxit=1000
完成。是否有可能看到算法在收敛之前使用了多少次迭代

library(RSNNS)
library(xts)

#Load Lynx data
data(lynx)

#Scale data and convert to xts
data  <- as.xts((lynx - min(lynx)) / (max(lynx) - min(lynx)))

#Build xts object with 5 lags to analyze
lags <- 5
for(i in 1:lags){

  feat <- lag(lynx, i)
  data <- merge(data, feat, all = FALSE)

}

#Get features and target
features <- data[,-1]
target   <- data[,1]

#Fit network
rnn      <- elman(features, target, maxit = 1000)

库（RSNNS）
图书馆（xts）
#加载Lynx数据
数据（猞猁）
#缩放数据并转换为xts

data我认为默认情况下，它运行的迭代次数是最大的。当您运行下面的程序时，即使在图中稳定下来，迭代仍将继续


rnn <- elman(features, target, maxit = 1000)
plotIterativeError(rnn)

#then run this
rnn <- elman(features, target, maxit = 10000)
plotIterativeError(rnn)



rnn如果满足错误标准，有没有办法使函数停止？如果我没记错，它会调用内部C代码。您可以在控制台中打印该函数并进行检查。如果是这样，您将需要更改C代码并重新编译它。