Running 'doRUnit.R' [7s]
Running the tests in 'tests/doRUnit.R' failed.
Complete output:
  > ## unit tests will not be done if RUnit is not available
  > if(require("RUnit", quietly=TRUE)) {    
  +  
  +   ## --- Setup ---
  +  
  +   pkg <- "krm" # <-- Change to package name!
  +   if(Sys.getenv("RCMDCHECK") == "FALSE") {
  +     ## Path to unit tests for standalone running under Makefile (not R CMD check)
  +     ## PKG/tests/../inst/unitTests
  +     path <- file.path(getwd(), "unitTests")
  +   } else {
  +     ## Path to unit tests for R CMD check
  +     ## PKG.Rcheck/tests/../PKG/unitTests
  +     path <- system.file("unitTests", package=pkg)
  +   }
  +   cat("\nRunning unit tests\n")
  +   print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path))
  +  
  +   library(package=pkg, character.only=TRUE)
  +  
  +   ## If desired, load the name space to allow testing of private functions
  +   ## if (is.element(pkg, loadedNamespaces()))
  +   ##     attach(loadNamespace(pkg), name=paste("namespace", pkg, sep=":"), pos=3)
  +   ##
  +   ## or simply call PKG:::myPrivateFunction() in tests
  +  
  +   ## --- Testing ---
  +  
  +   ## Define tests
  +   testSuite <- defineTestSuite(name=paste(pkg, "unit testing"),
  +                                           dirs=path)
  +   ## Run
  +   tests <- runTestSuite(testSuite)
  +  
  +   ## Default report name
  +   pathReport <- tempdir()
  +   
  +  
  +   ## Report to stdout and text files
  +   cat("------------------- UNIT TEST SUMMARY ---------------------\n\n")
  +   printTextProtocol(tests, showDetails=FALSE)
  + #  printTextProtocol(tests, showDetails=FALSE,
  + #                    fileName=paste(pathReport, "Summary.txt", sep=""))
  + #  printTextProtocol(tests, showDetails=TRUE,
  + #                    fileName=paste(pathReport, ".txt", sep=""))
  + # 
  + #  ## Report to HTML file
  + #  printHTMLProtocol(tests, fileName=paste(pathReport, ".html", sep=""))
  +  
  +   ## Return stop() to cause R CMD check stop in case of
  +   ##  - failures i.e. FALSE to unit tests or
  +   ##  - errors i.e. R errors
  +   tmp <- getErrors(tests)
  +   if(tmp$nFail > 0 | tmp$nErr > 0) {
  +     stop(paste("\n\nunit testing failed (#test failures: ", tmp$nFail,
  +                ", #R errors: ",  tmp$nErr, ")\n\n", sep=""))
  +   }
  + } else {
  +   warning("cannot run unit tests -- package RUnit is not available")
  + }
  
  Running unit tests
  $pkg
  [1] "krm"
  
  $getwd
  [1] "d:/Rcompile/CRANpkg/local/4.3/krm.Rcheck/tests"
  
  $pathToUnitTests
  [1] "D:/temp/Rtmpopc6y1/RLIBS_15ac848e04b78/krm/unitTests"
  
  Loading required package: kyotil
  
  
  Executing test function test.getSeqKernel  ...  done successfully.
  
  
  
  Executing test function test.krm.mos.test  ... Loading required namespace: MASS
  Total time passed: Time difference of 3.657409 secs
   num [1:100, 1:100] 1 0.01383 0.03779 0.00277 0.00143 ...
   - attr(*, "dimnames")=List of 2
    ..$ : chr [1:100] "1" "2" "3" "4" ...
    ..$ : chr [1:100] "1" "2" "3" "4" ...
   num [1:100, 1:100] 0.97747 -0.02172 0.0023 -0.00945 -0.01565 ...
   num [1:100, 1:100] 1 0.996 0.997 0.994 0.994 ...
   - attr(*, "dimnames")=List of 2
    ..$ : chr [1:100] "1" "2" "3" "4" ...
    ..$ : chr [1:100] "1" "2" "3" "4" ...
   num [1:100, 1:100] 0.97747 -0.02172 0.0023 -0.00945 -0.01565 ...
  Total time passed: Time difference of 1.210127 secs
  Timing stopped at: 4.61 0.3 4.92
  Error in checkEqualsNumeric(test$p.values, c(0.87, NA, 0.89, NA), tolerance = tolerance) : 
    Mean relative difference: 0.04142012
  
  In addition: Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  3: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  4: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
   done successfully.
  
  
  
  Executing test function test.krm.score.test  ...  done successfully.
  
  ------------------- UNIT TEST SUMMARY ---------------------
  
  RUNIT TEST PROTOCOL -- Mon Sep 12 17:20:21 2022 
  *********************************************** 
  Number of test functions: 3 
  Number of errors: 0 
  Number of failures: 1 
  
   
  1 Test Suite : 
  krm unit testing - 3 test functions, 0 errors, 1 failure
  FAILURE in test.krm.mos.test: Error in checkEqualsNumeric(test$p.values, c(0.87, NA, 0.89, NA), tolerance = tolerance) : 
    Mean relative difference: 0.04142012
  
  Error: 
  
  unit testing failed (#test failures: 1, #R errors: 0)
  
  In addition: Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  Execution halted