define_scenario <- function(primary, meanlog, sdlog, scaling) {
class(out) <- c("convolution_scenario", class(out))
return(out)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.