# NOT RUN {
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 DataCamp Workspace