Nothing
from_networkDynamic <- function(net) {
if (!is(net,"networkDynamic")) {
stop("net must be an object of networkDynamic.")
}
result <- as.data.frame(net)
graph <- cbind(result$tail,result$head,result$onset)
if (is.directed(net) == TRUE) {
type <- "directed"
} else type <- "undirected"
return(as.PAFit_net(graph = graph, type = type))
}
# vertex.attr = list("name" = as.character(as.integer(current_node))),
# vertex.attrnames = list("name")
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.