demo/igraphrandom.R

In sprof: Profiling, timing and optimisation utilities

#$HeadURL: file:///srv/svn/sintro/pkg/sprof/demo/igraphrandom.R $
#$Id: igraphrandom.R 235 2013-08-30 20:23:25Z gsawitzki $
#$Revision: 235 $
#$Date: 2013-08-30 22:23:25 +0200 (Fri, 30 Aug 2013) $
#$Author: gsawitzki $

# source('~/projects/rforge/sintro/pkg/sprof/tests/igraphKK.R', chdir = TRUE)

# setwd("")
#! To Do
#!
library(sprof)
if (require("igraph")) {
	
data(sprof01lm)
sprof <- sprof01lm

as_igraph_sprof <- function(sprof, layoutfun, params=NULL,...){
	adj <- adjacency(sprof)
	adj[adj!=0] <-1
	sprof_igraph <- graph.adjacency(adj)
	sprof_igraph <- set.graph.attribute(sprof_igraph, "layout", 
		layoutfun(sprof_igraph,params=params,...),...)
	V(sprof_igraph)$color <- "yellow"
	E(sprof_igraph)$color <- "#0000FF20"
	E(sprof_igraph)$width <- c(1,2)
	return(sprof_igraph)
}

# see 
#<<fig=TRUE, label=sprof_igraphkamada,width=8, height=8>>=
sprof_ig_random <- as_igraph_sprof(sprof, layout.random)
plot(sprof_ig_random, 
	main=paste0("igraph random layout\n", sprof$info$id))
	legend("topleft", 
		legend= paste0("class: ",class(sprof_ig_random)),
		bg="#FFFFE040",
		seg.len=0
		)
		
		
} else warning("could not load igraph", immediate=TRUE)