Running examples in ‘mbclusterwise-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: cw.tenfold
> ### Title: F-Fold cross-validation for clusterwise multiblock analyses
> ### Aliases: cw.tenfold
> ### Keywords: multivariate cluster
> 
> ### ** Examples
> 
>   data(simdata.red) 
>   Data.X <- simdata.red[c(1:8, 21:28), 1:10]
>   Data.Y <- simdata.red[c(1:8, 21:28), 11:13]
>   res1   <- list()
>   res2   <- list()
> 
>   ## Note that the options (INIT=2) and (parallel.level = "low") are chosen to quickly
>   ## illustrate the function. 
>   ## For real data, instead choose (INIT=20) to avoid local optima and (parallel.level = "high")
>   ## to improve the computing speed.
> 
>   for (H in c(1:2)){
+     print(paste("H=", H, sep=""))
+     res1[[H]] <- cw.tenfold(Y = Data.Y, X = Data.X, blo = c(5, 5), option = "none", G = 1, H,  
+       FOLD = 2, INIT = 2, method = "mbpls", Gamma = NULL, parallel.level = "low")
+     res2[[H]] <- cw.tenfold(Y = Data.Y, X = Data.X, blo = c(5, 5), option = "none", G = 2, H,
+        FOLD = 2, INIT = 2, method = "mbpls", Gamma = NULL, parallel.level = "low")
+   }
[1] "H=1"
[1] "Fold 1"
Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

[1] "Fold 2"
Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

[1] "Fold 1"
Warning in e$fun(obj, substitute(ex), parent.frame(), e$data) :
  already exporting variable(s): mbreg
Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

[1] "Fold 2"
Warning in e$fun(obj, substitute(ex), parent.frame(), e$data) :
  already exporting variable(s): mbreg
Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

[1] "H=2"
[1] "Fold 1"
Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

[1] "Fold 2"
Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in res$lX[, h]/sqrt(t(res$lX[, h]) %*% res$lX[, h]) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

[1] "Fold 1"
Error in serverSocket(port = port) : 
  creation of server socket failed: port 11353 cannot be opened
Calls: cw.tenfold ... cw.multiblock -> makeCluster -> makePSOCKcluster -> serverSocket
Execution halted