search for: parnulldistribintersection

Displaying 1 result from an estimated 1 matches for "parnulldistribintersection".

2007 Apr 24
2
Error in clusterApply(): recursive default argument reference
...---------------------------- ### libraries ### library(graph) library(snow) ### functions ### nullDistribIntersection <- function(g1, g2, perm=1000) { n1 <- nodes(g1) sapply(1:perm, function(i) { nodes(g1) <- sample(n1) numEdges(intersection(g1,g2)) } ) } parNullDistribIntersection <- function(g1, g2, perm=1000, cl=cl) { n1 <- nodes(g1) parSapply(cl, 1:perm, function(i) { nodes(g1) <- sample(n1) numEdges(intersection(g1,g2)) } ) } ## initialize the graph and the rand seed set.seed(123) g <- randomEGraph(LETTERS[1:15], edges = 100)...