hd2amelia <-
function(object){
class(object) <- "amelia"
names(object)[which(names(object) == "data")] <- "imputations"
return(object)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.