Nothing
# Convert a SymbolicBooleanNetwork object
# <network> to a BooleanNetwork object
symbolicToTruthTable <- function(network)
{
stopifnot(inherits(network, "SymbolicBooleanNetwork"))
res <- list(genes = network$genes,
fixed = network$fixed,
interactions = lapply(network$interactions, function(int)
{
newInt <- .Call("getTruthTable_R", int, length(network$genes))
names(newInt) <- c("input","func")
newInt$expression <- stringFromParseTree(int)
return(newInt)
}))
class(res) <- "BooleanNetwork"
return(res)
}
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.