Nothing
rbn <- function(n, dagobj, x) {
if ( is.null( colnames(x) ) ) colnames(x) <- paste("X", 1:dim(x)[2], sep = "")
if ( !is.data.frame(x) ) x <- as.data.frame(x)
fitted <- bnlearn::bn.fit(dagobj, data = x)
bnlearn::rbn(x = fitted, n = n)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.