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

> ### Name: label_switchPLMIX
> ### Title: Label switching adjustment for Bayesian mixtures of
> ###   Plackett-Luce models
> ### Aliases: label_switchPLMIX
> 
> ### ** Examples
> 
> 
> data(d_carconf)
> 
> K <- ncol(d_carconf)
> n.start <- 2
> 
> MAP_1 <- mapPLMIX_multistart(pi_inv=d_carconf, K=K, G=1, 
+                              n_start=n.start, n_iter=400*1)
[1] "Multiple starting point #1"
[1] "Multiple starting point #2"
[1] "INITIALIZATION 1"
Warning in mapPLMIX(pi_inv = pi_inv, K = K, G = G, init = init[[i]], n_iter = n_iter,  :
  initial support parameters for each mixture component must 
                       add to one ==> input arguments has been normalized!
[1] "Starting value # 1  => best log-likelihood so far = -2639.18237308121"
[1] "INITIALIZATION 2"
[1] "Starting value # 2  => best log-likelihood so far = -2639.18231462136"
> 
> MAP_2 <- mapPLMIX_multistart(pi_inv=d_carconf, K=K, G=2, 
+                              n_start=n.start, n_iter=400*2)
[1] "Multiple starting point #1"
[1] "Multiple starting point #2"
[1] "INITIALIZATION 1"
[1] "Starting value # 1  => best log-likelihood so far = -2623.03842396706"
[1] "INITIALIZATION 2"
Warning in mapPLMIX(pi_inv = pi_inv, K = K, G = G, init = init[[i]], n_iter = n_iter,  :
  initial support parameters for each mixture component must 
                       add to one ==> input arguments has been normalized!
[1] "Starting value # 2  => best log-likelihood so far = -2623.03842396706"
>                                    
> MAP_3 <- mapPLMIX_multistart(pi_inv=d_carconf, K=K, G=3, 
+                              n_start=n.start, n_iter=400*3)
[1] "Multiple starting point #1"
[1] "Multiple starting point #2"
[1] "INITIALIZATION 1"
Warning in mapPLMIX(pi_inv = pi_inv, K = K, G = G, init = init[[i]], n_iter = n_iter,  :
  initial support parameters for each mixture component must 
                       add to one ==> input arguments has been normalized!
[1] "Starting value # 1  => best log-likelihood so far = -2615.69663552729"
[1] "INITIALIZATION 2"
[1] "Starting value # 2  => best log-likelihood so far = -2615.69663552729"
>                                    
> mcmc_iter <- 30
> burnin <- 10
> 
> GIBBS_1 <- gibbsPLMIX(pi_inv=d_carconf, K=K, G=1, n_iter=mcmc_iter, 
+                       n_burn=burnin, init=list(p=MAP_1$mod$P_map,
+                       z=binary_group_ind(MAP_1$mod$class_map,G=1)))
> GIBBS_2 <- gibbsPLMIX(pi_inv=d_carconf, K=K, G=2, n_iter=mcmc_iter, 
+                       n_burn=burnin, init=list(p=MAP_2$mod$P_map,
+                       z=binary_group_ind(MAP_2$mod$class_map,G=2)))
> GIBBS_3 <- gibbsPLMIX(pi_inv=d_carconf, K=K, G=3, n_iter=mcmc_iter, 
+                       n_burn=burnin, init=list(p=MAP_3$mod$P_map,
+                       z=binary_group_ind(MAP_3$mod$class_map,G=3)))
>                             
> # Adjusting the MCMC samples for label switching
> 
> require(doParallel)
Loading required package: doParallel
Loading required package: foreach
Loading required package: iterators
Loading required package: parallel
> run_in_parallel <- !is.na(detectCores())
> if(run_in_parallel){
+ registerDoParallel(2)
+ getDoParWorkers()
+ }
[1] 2
> LS <- label_switchPLMIX(pi_inv=d_carconf, seq_G=1:3, 
+                    MCMCsampleP=list(GIBBS_1$P, GIBBS_2$P, GIBBS_3$P), 
+                    MCMCsampleW=list(GIBBS_1$W, GIBBS_2$W, GIBBS_3$W), 
+                    MAPestP=list(MAP_1$mod$P_map, MAP_2$mod$P_map, MAP_3$mod$P_map), 
+                    MAPestW=list(MAP_1$mod$W_map, MAP_2$mod$W_map, MAP_3$mod$W_map), 
+                    parallel = run_in_parallel)
> str(LS)       
List of 2
 $ final_sampleP:List of 3
  ..$ G_1: num [1, 1:6, 1:20] 0.123 0.222 0.201 0.188 0.075 ...
  ..$ G_2: num [1:2, 1:6, 1:20] 0.6197 0.0834 0.0917 0.2688 0.1103 ...
  ..$ G_3: num [1:3, 1:6, 1:20] 0.9471 0.3771 0.0744 0.0294 0.0984 ...
 $ final_sampleW:List of 3
  ..$ G_1: num [1:20, 1] 1 1 1 1 1 1 1 1 1 1 ...
  ..$ G_2: num [1:20, 1:2] 0.241 0.241 0.223 0.184 0.192 ...
  ..$ G_3: num [1:20, 1:3] 0.0748 0.1215 0.0779 0.0816 0.085 ...
>       				
> 
> 
> 
> cleanEx()

detaching 'package:doParallel', 'package:parallel',
  'package:iterators', 'package:foreach'

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