Running 'testthat.R' [4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > Sys.setenv(R_TESTS="")
  > library(testthat)
  > library(OmicsPLS)
  
  Attaching package: 'OmicsPLS'
  
  The following object is masked from 'package:stats':
  
      loadings
  
  > 
  > test_check("OmicsPLS")
  SO2PLS fit 
  with 1 joint components  
  and  0 orthogonal components in X 
  and  0 orthogonal components in Y 
  Elapsed time: 0 sec
  
  GO2PLS fit 
  with 1 joint components  
  and  0 orthogonal components in X 
  and  0 orthogonal components in Y 
  Elapsed time: 0.02 sec
  
  Saving _problems/test_error-24.R
  Saving _problems/test_error-25.R
  O2PLS fit 
  with 2 joint components  
  and  0 orthogonal components in X 
  and  0 orthogonal components in Y 
  Elapsed time: 0 sec
  
  *******************
  Elapsed time: 0.01 sec
  *******
  Minimal 2-CV error is at ax=0 ay=0 a=2 
  *******
  Minimum MSE is 1.835671e-14 
  *******************
  
  *** Summary of the O2PLS fit *** 
  
  -  Call: o2m(X = data.frame(a = 1:10, b = 2:11, c = 3:12), Y = data.frame(d = 1:10,      e = 2:11, f = 3:12), n = 2, nx = 0, ny = 0) 
  
  -  Modeled variation
  -- Total variation:
  in X: 1535 
  in Y: 1535 
  
  -- Joint, Orthogonal and Noise as proportions:
  
             data X data Y
  Joint           1      1
  Orthogonal      0      0
  Noise           0      0
  
  -- Predictable variation in Y-joint part by X-joint part:
  Variation in T*B_T relative to U: 1 
  -- Predictable variation in X-joint part by Y-joint part:
  Variation in U*B_U relative to T: 1 
  
  -- Variances per component:
  
            Comp 1 Comp 2
  X joint 1531.768  3.232
  Y joint 1531.768  3.232
  
  
  -  Coefficient in 'U = T B_T + H_U' model:
  -- Diagonal elements of B_T =
   1 1 
  
  
  *** Summary of the O2PLS fit *** 
  
  -  Call: o2m(X = diag(3), Y = diag(3), n = 1, nx = 1, ny = 1) 
  
  -  Modeled variation
  -- Total variation:
  in X: 3 
  in Y: 3 
  
  -- Joint, Orthogonal and Noise as proportions:
  
             data X data Y
  Joint       0.333  0.333
  Orthogonal  0.333  0.333
  Noise       0.333  0.333
  
  -- Predictable variation in Y-joint part by X-joint part:
  Variation in T*B_T relative to U: 1 
  -- Predictable variation in X-joint part by Y-joint part:
  Variation in U*B_U relative to T: 1 
  
  -- Variances per component:
  
          Comp 1
  X joint      1
  Y joint      1
  
         Comp 1
  X Orth      1
  
         Comp 1
  Y Orth      1
  
  
  -  Coefficient in 'U = T B_T + H_U' model:
  -- Diagonal elements of B_T =
   1 
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 65 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test_error.R:24:3'): Normal crossval goes without error ───────────
  `crossval_o2m(1:10 %*% t(1:3), 1:10 %*% t(1:3), 1, 0, 0, 2, 2)` threw an error.
  Message: creation of server socket failed: port 11020 cannot be opened
  Class:   simpleError/error/condition
  Backtrace:
      ▆
   1. ├─testthat::expect_error(...) at test_error.R:24:3
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat (local) .capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─OmicsPLS::crossval_o2m(...)
   7.   └─parallel::makePSOCKcluster(nr_cores)
   8.     └─base::serverSocket(port = port)
  ── Failure ('test_error.R:25:3'): Normal crossval goes without error ───────────
  `crossval_o2m_adjR2(...)` threw an error.
  Message: creation of server socket failed: port 11020 cannot be opened
  Class:   simpleError/error/condition
  Backtrace:
      ▆
   1. ├─testthat::expect_error(...) at test_error.R:25:3
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat (local) .capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─OmicsPLS::crossval_o2m_adjR2(...)
   7.   └─parallel::makePSOCKcluster(nr_cores)
   8.     └─base::serverSocket(port = port)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 65 ]
  Error:
  ! Test failures.
  Execution halted