R
我想通过使用RSNNS
包来适应循环神经网络。该包提供了设置最大迭代次数的选项,如下面的示例代码中所做的那样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)