Nothing
Aux_data <-
tibble(
runmargin = seq(-3.5, 3.5, by = 0.1),
winP = makeFun(bb.glm)(runmargin = runmargin)
)
gf_point(winP ~ runmargin, data = BB) %>%
gf_line(winP ~ runmargin, data = Aux_data, alpha = 0.4)
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.