Nothing
source("helpers.R")
using("marginaleffects")
if (!requiet("tinysnapshot")) exit_file("tinysnapshot")
using("tinysnapshot")
# from marginaleffects objects
mod <- glm(am ~ hp + wt, data = mtcars)
expect_error(plot(predictions(mod)), pattern = "plot_predictions")
expect_error(plot(slopes(mod)), pattern = "plot_slopes")
expect_error(plot(comparisons(mod)), pattern = "plot_comparisons")
source("helpers.R")
rm(list = ls())
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.