Displaying 1 result from an estimated 1 matches for "nulldistribintersection".
2007 Apr 24
2
Error in clusterApply(): recursive default argument reference
...$platform
[1] "x86_64-redhat-linux-gnu"
$version.string
[1] "R version 2.4.1 (2006-12-18)"
Below is the snippet of code generating the error message :
-----------------------------------------------------------
### 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,...