R Under development (unstable) (2024-09-14 r87148 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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.

> ### test.R: Runs all RUnit tests that work when the package is loaded with
> ### library() or require()
> 
> 
> ## Get warnings at once
> options(warn = 1)
> 
> ## Make sure the global environment is clean:
> rm(list = ls(all = TRUE))
> 
> ## Get the pls functions and data
> library(pls)

Attaching package: 'pls'

The following object is masked from 'package:stats':

    loadings

> 
> ## Get RUnit and utility functions
> library(RUnit)
> source("RUnit/common/utils.R")
> 
> ## Make checkException silent
> opts <- getOption("RUnit")
> opts$silent <- TRUE
> options(RUnit = opts)
> 
> ## Define and check test suite
> testdirs <- c("RUnit/common", "RUnit/library")
> plsTestSuite <- defineTestSuite("pls", testdirs)
> isValidTestSuite(plsTestSuite)
[1] TRUE
> 
> ## Run test suite
> printTextProtocol(res <- runTestSuite(plsTestSuite))
Warning in RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: Marsaglia-Multicarry has poor statistical properties
Warning in RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry


Executing test function test.CV  ...  done successfully.



Executing test function test.cvsegments  ...  done successfully.



Executing test function test.plsrRes  ...  done successfully.



Executing test function test.jack.test  ...  done successfully.



Executing test function test.var.jack  ...  done successfully.



Executing test function test.MSEPmissing  ...  done successfully.



Executing test function test.argErrors  ...  done successfully.



Executing test function test.dimMSEP  ...  done successfully.



Executing test function test.dimR2  ...  done successfully.



Executing test function test.estimates  ...  done successfully.



Executing test function test.options  ...  done successfully.



Executing test function test.NAtest  ...  done successfully.



Executing test function test.NAtrain  ...  done successfully.



Executing test function test.crossval.parallel  ... Loading required package: parallel
 done successfully.



Executing test function test.mvrCv.parallel  ...  done successfully.



Executing test function test.parallel.cleanup  ...  done successfully.



Executing test function test.wrapper_eval  ...  done successfully.



Executing test function test.wrapper_results  ...  done successfully.

RUNIT TEST PROTOCOL -- Sun Sep 15 22:00:48 2024 
*********************************************** 
Number of test functions: 18 
Number of errors: 0 
Number of failures: 0 

 
1 Test Suite : 
pls - 18 test functions, 0 errors, 0 failures



Details 
*************************** 
Test Suite: pls 
Test function regexp: ^test.+ 
Test file regexp: ^runit.+\.[rR]$ 
Involved directories: 
RUnit/common 
RUnit/library 
--------------------------- 
Test file: RUnit/common/runit.CV.R 
test.CV: (9 checks) ... OK (0.22 seconds)
test.cvsegments: (18 checks) ... OK (0 seconds)
--------------------------- 
Test file: RUnit/common/runit.algorithms.R 
test.plsrRes: (11 checks) ... OK (0.14 seconds)
--------------------------- 
Test file: RUnit/common/runit.jackknife.R 
test.jack.test: (8 checks) ... OK (0.03 seconds)
test.var.jack: (8 checks) ... OK (0.15 seconds)
--------------------------- 
Test file: RUnit/common/runit.mvrVal.R 
test.MSEPmissing: (8 checks) ... OK (0.02 seconds)
test.argErrors: (3 checks) ... OK (0.01 seconds)
test.dimMSEP: (120 checks) ... OK (0.05 seconds)
test.dimR2: (104 checks) ... OK (0.04 seconds)
test.estimates: (6 checks) ... OK (0.02 seconds)
--------------------------- 
Test file: RUnit/common/runit.options.R 
test.options: (14 checks) ... OK (0 seconds)
--------------------------- 
Test file: RUnit/common/runit.predict.R 
test.NAtest: (14 checks) ... OK (0 seconds)
test.NAtrain: (32 checks) ... OK (0.03 seconds)
--------------------------- 
Test file: RUnit/library/runit.CV.R 
test.crossval.parallel: (2 checks) ... OK (1.14 seconds)
test.mvrCv.parallel: (2 checks) ... OK (0.67 seconds)
test.parallel.cleanup: (0 checks) ... OK (0 seconds)
--------------------------- 
Test file: RUnit/library/runit.mvr_wrappers.R 
test.wrapper_eval: (3 checks) ... OK (0 seconds)
test.wrapper_results: (3 checks) ... OK (0.12 seconds)
There were 14 warnings (use warnings() to see them)
> if (res$pls$nFail > 0 || res$pls$nErr > 0) stop("One or more tests failed")
> 
> proc.time()
   user  system elapsed 
   1.42    0.18    2.85