R version 4.5.0 beta (2025-03-31 r88079 ucrt) -- "How About a Twenty-Six"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 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 sec

O2PLS fit 
with 2 joint components  
and  0 orthogonal components in X 
and  0 orthogonal components in Y 
Elapsed time: 0.02 sec

*******************
Elapsed time: 0 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 0 | WARN 0 | SKIP 0 | PASS 67 ]
> 
> proc.time()
   user  system elapsed 
   2.95    0.39    7.73