library(funnel)
load("data/cabg.rda") # if necessary to access cabg data
par(mfrow = c(1,2))
funnelslice(cabg, plot_title = "Slice", plot = "slice")
funnelslice(cabg, plot_title = "Funnel")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.