fit1 <- makeFun(Soap.model1)
# transformation required to undo transformation on y
fit2 <- makeFun(Soap.model2, transformation = function(x) x^3)
gf_point(weight ~ day, data = Soap) %>%
gf_function(fun = fit1, color = "navy") %>%
gf_function(fun = fit2, color = "red")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.