# \donttest{
# Toy example
data("scIVTmag", package = "exdqlm")
old = options(exdqlm.max_iter = 20L)
y = scIVTmag[1:100]
model = polytrendMod(1, stats::quantile(y, 0.85), 10)
M0 = exdqlmLDVB(y, p0 = 0.85, model, df = c(0.98), dim.df = c(1),
gam.init = -3.5, sig.init = 15, n.samp = 30,
verbose = FALSE)
exdqlmForecast(start.t = 90, k = 10, m1 = M0)
M0.forecast = exdqlmForecast(start.t = 90, k = 10, m1 = M0,
return.draws = TRUE, n.samp = 50, seed = 123)
dim(M0.forecast$samp.fore)
options(old)
# }
Run the code above in your browser using DataLab