fixIntermediate <- function(names.distribution, structure.learning.args.list, whitelist){
all.nodes <- as.vector(unlist(names.distribution))
return(add.toBlacklist( all.nodes, structure.learning.args.list)) # whitelist has precedence over the blacklist
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.