# Load libraries
suppressWarnings(suppressMessages(library(parsnip)))
suppressWarnings(suppressMessages(library(flexsurv)))
# Create model and fit
survreg_fit <- surv_reg(mode = "regression", dist = "weibull") %>%
set_engine("survreg") %>%
fit(Surv(futime, fustat) ~ 1, data = ovarian)
# Save
save(survreg_fit, file = "inst/extdata/survreg.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.