knitr::opts_chunk$set(echo = TRUE)
print(fit@model)
print(fit) plot(fit)
# Compute and plot predictions at data points (reduce = NULL) alpha <- 0.3 p1 <- pred(fit, reduce = NULL, draws = DRAW_INDS, verbose = verbose) plot_components(fit, p1, t_name = "Days", group_by = "Subject", alpha = alpha) plot_pred(fit, p1, t_name = "Days", group_by = "Subject", alpha = alpha)
# Compute and plot out-of-sample predictions (reduce = mean) x_pred <- new_x(fit, x_values = seq(0, 20, by = 0.3), group_by = "Subject", x = "Days") p2 <- pred(fit, x_pred, reduce = mean, verbose = verbose) plot_components(fit, p2, t_name = "Days", group_by = "Subject") plot_pred(fit, p2, t_name = "Days", group_by = "Subject")
r <- relevances(fit) s <- select(fit) print(r) print(s)
sessionInfo()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.