Running ‘cluster.R’ [1s/2s]
  Running ‘cylinderRsa.R’ [18s/27s]
  Running ‘times.R’ [1s/3s]
Running the tests in ‘tests/cluster.R’ failed.
Complete output:
  > # test simCluster with spheres
  > 
  > library(simLife)
  > library(unfoldr)
  > 
  > library(parallel)
  > options(simLife.mc=2L)
  > 
  > theta <- list("size"=list(0.1))
  > box <- list("xrange"=c(0,3),"yrange"=c(0,3),"zrange"=c(0,9))
  > 
  > S <- simPoissonSystem(theta,lam=15,size="const",
  + 		box=box,type="spheres",pl=1,label="P")
  	 Size parameters: mx=0.100000, sdx=0.000000 
  
  Spheres simulation with `const` (perfect=0):  
  Mean number: 15.000000 (Box volume 81.000000) 
  Set label 'P'. 
  
  Done. Simulated 1286 spheres.
  Converting spheres ... 
  > 
  > # rsa
  > S2 <- rsa(S,verbose=TRUE)
  Volume fraction:  0.0665035086833988 
  > 
  > # project some spheres
  > id <- c(1,5,9,32,10)
  > 
  > # get matrix of border points of sphere projections
  > P <- getSphereProjection(S2[id],draw=FALSE)
  > 
  > # densify with radius 0.35 based on hardcore particle system
  > CL <- simPoissonSystem(list(size=list(0.35)),lam=0.1,size="const",box=box,
  + 		type="spheres",pl=1,label="P")
  	 Size parameters: mx=0.350000, sdx=0.000000 
  
  Spheres simulation with `const` (perfect=0):  
  Mean number: 0.100000 (Box volume 81.000000) 
  Set label 'P'. 
  
  Done. Simulated 13 spheres.
  Converting spheres ... 
  > 
  > # construct cluster objects
  > CLUST <- simCluster(S2, CL, verbose=TRUE)
  > 
  > # densify
  > ctrl <- list(threshold.stop=0.01, max.call=100, verbose=FALSE)
  > RET <- densifyCluster(S2, CLUST, ctrl, weight=100)
  densify clusters of length:  11  
  Error in if (FUNCTION(S[[i]], S[[k]])) ret <- c(ret, k) : 
    missing value where TRUE/FALSE needed
  Calls: densifyCluster -> .update -> .update.spheres -> .checkEn
  In addition: Warning message:
  In .update.spheres(A[[i]]) :
    Overlaps detected in cluster: 3. Consider to increase weight parameter and re-run the densification.
  Execution halted