x <- rnorm(100)
c95(x)
## Not run: ------------------------------------
# ## Example computing predictions.
# set.seed(123)
# d <- data.frame("x" = seq(-3, 3, length = 30))
# d$y <- sin(d$x) + rnorm(30, sd = 0.3)
#
# ## Estimate model and compute predictions.
# ## with c95().
# b <- bamlss(y ~ s(x), data = d)
# p <- predict(b, model = "mu", FUN = c95)
# plot(d)
# matplot(d$x, p, type = "l", lty = c(2, 1, 2),
# col = "black", add = TRUE)
#
# ## Example extracting coefficients.
# coef(b, FUN = c95)
## ---------------------------------------------
Run the code above in your browser using DataLab