get.matrix <- function(scenario, root=TRUE) {
matrix <- scenario$simulation
if (root) { matrix <- cbind(rep(scenario$original[length(scenario$original)], scenario$n), matrix) }
return(matrix)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.