|
首先,你要用到‘RSNNS’这个包
然后找到elman函数——
elman(x, y, size = c(5), maxit = 100,
initFunc = "JE_Weights", initFuncParams = c(1, -1, 0.3, 1, 0.5),
learnFunc = "JE_BP", learnFuncParams = c(0.2), updateFunc = "JE_Order",
updateFuncParams = c(0), shufflePatterns = FALSE, linOut = TRUE,
outContext = FALSE, inputsTest = NULL, targetsTest = NULL, ...)
x就是训练数据了
y是target值
这样的内容,官方文档里面都会给具体的例子,比如这个——
data(snnsData)
inputs <- snnsData$eight_016.pat[,inputColumns(snnsData$eight_016.pat)]
outputs <- snnsData$eight_016.pat[,outputColumns(snnsData$eight_016.pat)]
par(mfrow=c(1,2))
modelElman <- elman(inputs, outputs, size=8, learnFuncParams=c(0.1), maxit=1000)
modelElman
modelJordan <- jordan(inputs, outputs, size=8, learnFuncParams=c(0.1), maxit=1000)
modelJordan
plotIterativeError(modelElman)
plotIterativeError(modelJordan)
summary(modelElman)
summary(modelJordan)
|