# NOT RUN {
## Nonlinear NNS.ARMA period optimization using 2 yearly lags on AirPassengers monthly data
# }
# NOT RUN {
nns.optims <- NNS.ARMA.optim(AirPassengers[1:132], training.set = 120,
seasonal.factor = seq(12, 24, 6))
## Then use optimal parameters in NNS.ARMA to predict 12 periods in-sample.
## Note the {$bias.shift} usage in the {NNS.ARMA} function:
nns.estimates <- NNS.ARMA(AirPassengers, h = 12, training.set = 132,
seasonal.factor = nns.optims$periods, method = nns.optims$method) + nns.optims$bias.shift
## If variable cannot logically assume negative values
nns.estimates <- pmax(0, nns.estimates)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab