Running ‘doRUnit.R’ [12s/16s]
Running the tests in ‘tests/doRUnit.R’ failed.
Complete output:
  > # the tests are not guarrantted to be successful on other platforms
  > if (R.Version()$system %in% c("x86_64, mingw32", "x86_64, linux-gnu", "i386, mingw32")) {
  +     
  + ## unit tests will not be done if RUnit is not available
  + if(require("RUnit", quietly=TRUE)) {    
  +  
  +   ## --- Setup ---
  +  
  +   pkg <- "aucm" # <-- 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 <- file.path(path, "report")
  +  
  +   ## 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] "aucm"
  
  $getwd
  [1] "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/aucm.Rcheck/tests"
  
  $pathToUnitTests
  [1] "/tmp/RtmpMVJhPF/RLIBS_5312fe6fdec/aucm/unitTests"
  
  Loading required package: kyotil
  
  
  Executing test function test.misc  ...  done successfully.
  
  
  
  Executing test function test.rauc  ... beta.init = 4.22 -2.67 
  1, saturated  0.747, loss  0.2767505 , pen  0.002823166, beta[1]  4.49 , beta[-1]/beta[1]  -0.6324  delta  0.06302396 eps  0 
  2, saturated  0.758, loss  0.2763557 , pen  0.003081415, beta[1]  4.692 , beta[-1]/beta[1]  -0.632  delta  0.04495608 eps  5.684342e-14 
  
  [1] "total time used: 4.94393658638 secs"
  [1] "rauc did not converge"
  1, saturated  0.451, loss  0.2800904 , pen  0.00537985 delta  -0.2145297 eps  0.0009766982 
  2, saturated  0.561, loss  0.2727829 , pen  0.004937555 delta  -0.007749829 eps  8.648806e-05 
  [1] "minQuad did not converge in these iterations: 1"
  
  [1] "total time used: 6.70761179924011 secs"
  [1] "rauc did not converge"
   done successfully.
  
  
  
  Executing test function test.srauc  ...  done successfully.
  
  ------------------- UNIT TEST SUMMARY ---------------------
  
  RUNIT TEST PROTOCOL -- Tue Jan 23 17:31:41 2018 
  *********************************************** 
  Number of test functions: 3 
  Number of errors: 0 
  Number of failures: 0 
  
   
  1 Test Suite : 
  aucm unit testing - 3 test functions, 0 errors, 0 failures
  Error in file(file, ifelse(append, "a", "w")) : 
    cannot open the connection
  Calls: printTextProtocol -> cat -> file
  In addition: There were 27 warnings (use warnings() to see them)
  Execution halted