Nothing
# don't export the generic
createObj<- function(obj,...)
{
UseMethod("createObj", obj)
}
#' @export
createObj.default<- function(obj, data,...)
{
#creating a GTree object as default method
myobj<- GTree(obj$graph, Data = data)
return(myobj)
}
#' @export
createObj.HRMBG<- function(obj, data)
{
myobj<- BlockGraph(obj$graph, data)
return(myobj)
}
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.