Displaying 1 result from an estimated 1 matches for "parnulldistribintersect".
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 = 1...