Nothing
`tnet_ucinet` <-
function(net, type=NULL, file=NULL) {
if (is.null(attributes(net)$tnet)) {
if(is.null(type)) {
net <- as.tnet(net)
} else {
net <- as.tnet(net, type=type)
}
}
if(is.null(file))
file <- tempfile(fileext = ".dl")
cat("dl\n", file=file, append=FALSE)
if (attributes(net)$tnet == "weighted one-mode tnet") {
N <- max(c(net[,"i"], net[,"j"]))
cat(paste("N=", N, "\nformat=edgelist1\ndata:\n", sep=""), file=file, append=TRUE)
utils::write.table(net, file=file, append=TRUE, col.names=FALSE, row.names=FALSE)
} else {
stop("the function can currently only handle one-mode networks")
}
}
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.