# NOT RUN {
# Example 1: Generate forecast with artifical observations
# Seasonal prediction example
a <- 0.1
b <- 0.3
g <- 1
sig <- 1
t <- 0.02
ntd <- 30
nlt <- 4
nm <- 10
toyforecast <- ToyModel(alpha = a, beta = b, gamma = g, sig = sig, trend = t,
nstartd = ntd, nleadt = nlt, nmemb = nm)
# Example 2: Generate forecast from loaded observations
# Decadal prediction example
# }
# NOT RUN {
a <- 0.1
b <- 0.3
g <- 1
nm <- 10
toyforecast <- ToyModel(alpha = a, beta = b, gamma = g, nmemb = nm,
obsini = sampleData$obs, nstartd = 5, nleadt = 60)
# }
Run the code above in your browser using DataLab