Nothing
#-----------------------------------------------------------------------------------#
# Package: camel #
# camel.tiger.plot(): graph visualization #
# Author: Xingguo Li #
# Email: <xingguo.leo@gmail.com> #
# Date: Aug 23th, 2013 #
# Version: 0.1.0 #
#-----------------------------------------------------------------------------------#
camel.plot <- function(G, epsflag = FALSE, graph.name = "default", cur.num = 1, location=NULL){
gcinfo(FALSE)
if(missing(location)) location = getwd()
setwd(location)
g = graph.adjacency(as.matrix(G!=0), mode="undirected", diag=FALSE)
layout.grid = layout.fruchterman.reingold(g)
if(epsflag == TRUE) postscript(paste(paste(graph.name, cur.num, sep=""), "eps", sep="."), width = 8.0, height = 8.0)
par(mfrow = c(1,1))
plot(g, layout=layout.grid, edge.color='gray50',vertex.color="red", vertex.size=2, vertex.label=NA)
rm(g,location)
gc()
if(epsflag == TRUE) dev.off()
}
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.