Running ‘testsCFA.R’
  Running ‘testsEFA.R’
  Running ‘testsMANIFEST.R’ [10s/13s]
  Running ‘testsMICRO.R’
  Running ‘testsRESTRICTIONS.R’
  Running ‘testsSEFA.R’
Running the tests in ‘tests/testsMICRO.R’ failed.
Complete output:
  > notests <- FALSE
  > if(notests) q(save = "no")
  > stopifnot(require(FAiR))
  Loading required package: FAiR
  Loading required package: rgenoud
  ##  rgenoud (Version 5.8-1.0, Build Date: 2017-10-10)
  ##  See http://sekhon.berkeley.edu/rgenoud for additional documentation.
  ##  Please cite software as:
  ##   Walter Mebane, Jr. and Jasjeet S. Sekhon. 2011.
  ##   ``Genetic Optimization Using Derivatives: The rgenoud package for R.''
  ##   Journal of Statistical Software, 42(11): 1-26. 
  ##
  
  Loading required package: gWidgetsRGtk2
  Loading required package: RGtk2
  Loading required package: gWidgets
  Loading required package: cairoDevice
  Loading required package: stats4
  Loading required package: rrcov
  Loading required package: robustbase
  Scalable Robust Estimators with High Breakdown Point (version 1.4-3)
  
  Loading required package: Matrix
  ##  FAiR Version 0.4-15 Build Date: 2014-02-08
  ## See http://wiki.r-project.org/rwiki/doku.php?id=packages:cran:fair for more info
  FAiR  Copyright (C) 2008 -- 2012  Benjamin King Goodrich
  This program comes with ABSOLUTELY NO WARRANTY.
  This is free software, and you are welcome to redistribute it
  under certain conditions, namely those specified in the LICENSE file
  in the root directory of the source code.
  > 
  > ## FAiR_PACE_by_RGENOUD
  > Sigma <- diag(5)
  > Sigma[1,] <- Sigma[,1] <- c(1,.49, .14, .48, .22)
  > Sigma[2,] <- Sigma[,2] <- c(.49, 1, .07, .42, .14)
  > Sigma[3,] <- Sigma[,3] <- c(.14, .07, 1, .48, .58)
  > Sigma[4,] <- Sigma[,4] <- c(.48, .42, .48, 1, .60)
  > Sigma[5,] <- Sigma[,5] <- c(.22, .14, .58, .60, 1)
  > 
  > rownames(Sigma) <- colnames(Sigma) <- paste("Y", 1:5, sep = ".")
  > test_PASS <- FAiR:::FAiR_PACE_by_RGENOUD(Sigma, 2)
  Error in genoud(fn = opt.fun, nvars = 2 * factors, max = TRUE, Domains = cbind(rep(1,  : 
    (list) object cannot be coerced to type 'double'
  Calls: <Anonymous> -> genoud
  Execution halted