library(regsim) data(mtcars) mtcars$cyl <- as.factor(mtcars$cyl)
model <- lm(mpg ~ wt + disp + cyl, mtcars) summary(model)
set.seed(666)
x <- list(wt = seq(1, 5), cyl = levels(mtcars$cyl)) sim <- regsim(model, x) summary(sim)
plot(sim, ~ wt + cyl, lines.col = "Set1", lines.lwd = 1.5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.