Running ‘doRUnit.R’
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 <- "PKG" # <-- Change to package name!
  + 	pkg <- "logitnorm" # <-- 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(), "..", "inst", "unitTests")
  + 	} else {
  + 		## Path to unit tests for R CMD check
  + 		## PKG.Rcheck/tests/../PKG/unitTests
  + 		path <- system.file(package = pkg, "unitTests")
  + 	}
  + 	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)
  + 	
  + 	## 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] "logitnorm"
  
  $getwd
  [1] "/data/gannet/ripley/R/packages/tests-devel/logitnorm.Rcheck/tests"
  
  $pathToUnitTests
  [1] "/data/gannet/ripley/R/packages/tests-devel/logitnorm.Rcheck/logitnorm/unitTests"
  
  
  
  Executing test function test.dlogitnorm  ...  done successfully.
  
  
  
  Executing test function test.inverseSame  ...  done successfully.
  
  
  
  Executing test function test.plogitnorm  ...  done successfully.
  
  
  
  Executing test function test.twCoefLogitnorm  ...  done successfully.
  
  
  
  Executing test function test.twCoefLogitnormE  ...  done successfully.
  
  
  
  Executing test function test.twCoefLogitnormMLE  ...  done successfully.
  
  
  
  Executing test function test.twCoefLogitnormN  ...  done successfully.
  
  
  
  Executing test function test.dlogitnorm  ...  done successfully.
  
  
  
  Executing test function test.plogitnorm  ...  done successfully.
  
  
  
  Executing test function test.leftMode  ...  done successfully.
  
  
  
  Executing test function test.rightMode  ...  done successfully.
  
  
  
  Executing test function test.1  ... Timing stopped at: 0.154 0.013 0.167
  Error in checkEqualsNumeric(var(z), moments["var"], tolerance = 0.006) : 
    Mean relative difference: 0.006300355
  
   done successfully.
  
  
  
  Executing test function test.momentsLogitnorm41  ...  done successfully.
  
  
  
  Executing test function test.momentsLogitnorm501  ...  done successfully.
  
  Error: 
  
  unit testing failed (#test failures: 1, #R errors: 0)
  
  Execution halted