pick.stage <- function(scenario, stages) {
picked <- scenario
picked$simulation <- scenario$simulation[, c(stages)]
return(picked)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.