Nothing
# function to summarize statistics from a growing network
get_my_statistics <-
function(net, net_type = "directed"){
net_object <- as.PAFit_net(net, type = "directed")
return(get_statistics(net_object))
}
.onUnload <- function (libpath) {
library.dynam.unload("mcPAFit", libpath)
}
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.