Running examples in 'ParallelPC-Ex.R' failed
The error most likely occurred in:

> ### Name: pcSelect_parallel
> ### Title: Estimate subgraph around a response variable using
> ###   pcSelect_parallel.
> ### Aliases: pcSelect_parallel
> 
> ### ** Examples
> 
> ##########################################
> ## Using pcSelect_parallel without mem.efficeient
> ##########################################
> library(pcalg)
> library(parallel)
> p <- 10
> set.seed(101)
> myDAG <- randomDAG(p, prob = 0.2)
> n <- 1000
> d.mat <- rmvDAG(n, myDAG, errDist = "normal")
> pcSelect_parallel(d.mat[,10],d.mat[,-10], alpha=0.05,num_workers=2)
[1] "----------in the pc_select_parallel myself's----------"
[1] "vNms = "
[1] "1" "2" "3" "4" "5" "6" "7" "8" "9"
[1] "parallel prepare cost time:"
Time difference of 4.801 secs
[1] "parallel perpare finished."
[1] "-----pepare to parallel------"
[1] "windows"
[1] "windows"
[1] "windows"
l-j+1 = : 3 parallel_threshold is : 4[1] "*** system ***"
[1] "parallel calculate cost:"
Time difference of 0.1000001 secs
Num CI Tests= 9 30 10 0 ,Total CI Tests= 49 ,Total Time= 0.09 
total is : 0.03 0 0.09 NA NA 
cost time 1: 0.001000166 cost time 2: 4.802 
$G
    1     2     3     4     5     6     7     8     9 
FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE 

$zMin
[1]  0.07643311  0.65682217  0.73630255 11.62001129  6.62149343 18.64381915
[7]  1.44699953  1.21282389  1.22181183

> 
> ##########################################
> ## Using pcSelelct_parallel with mem.efficeient
> ##########################################
> library(pcalg)
> library(parallel)
> p <- 10
> set.seed(101)
> myDAG <- randomDAG(p, prob = 0.2)
> n <- 1000
> d.mat <- rmvDAG(n, myDAG, errDist = "normal")
> pcSelect_parallel(d.mat[,10],d.mat[,-10], alpha=0.05,mem.efficient=TRUE,num_workers=2)
[1] "----------in the pc_select_parallel myself's----------"
[1] "vNms = "
[1] "1" "2" "3" "4" "5" "6" "7" "8" "9"
[1] "parallel prepare cost time:"
Time difference of 4.422 secs
[1] "parallel perpare finished."
[1] "-----pepare to parallel------"
[1] "windows"
[1] "windows"
[1] "windows"
l-j+1 = : 3 parallel_threshold is : 4[1] "*** system ***"
[1] "parallel calculate cost:"
Time difference of 0.08899999 secs
Num CI Tests= 9 30 10 0 ,Total CI Tests= 49 ,Total Time= 0.09 
total is : 0 0 0.09 NA NA 
cost time 1: 0 cost time 2: 4.423 
$G
    1     2     3     4     5     6     7     8     9 
FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE 

$zMin
[1]  0.07643311  0.65682217  0.73630255 11.62001129  6.62149343 18.64381915
[7]  1.44699953  1.21282389  1.22181183

> 
> 
> 
> cleanEx()

detaching 'package:parallel', 'package:pcalg'

Error: connections left open:
	<-CRANwin.fb05.statistik.uni-dortmund.de:11200 (sockconn)
	<-CRANwin.fb05.statistik.uni-dortmund.de:11200 (sockconn)
	<-CRANwin.fb05.statistik.uni-dortmund.de:11200 (sockconn)
	<-CRANwin.fb05.statistik.uni-dortmund.de:11200 (sockconn)
Execution halted