# \donttest{
y <- scIVTmag[1:100]
model <- polytrendMod(1, stats::quantile(y, 0.85), 10)
M0 <- exdqlmISVB(y, p0 = 0.85, model, df = c(0.98), dim.df = c(1),
gam.init = -3.5, sig.init = 15)
M0.forecast = exdqlmForecast(start.t = 90, k = 10, m1 = M0)
plot(M0.forecast)
# }
Run the code above in your browser using DataLab