Running ‘FrF2test.R’ [25s/53s]
  Comparing ‘FrF2test.Rout’ to ‘FrF2test.Rout.save’ ...129,134d128
< $list.len
< [1] 99
< 
< $deparse.lines
< NULL
< 
  Running ‘addcentertest.R’
  Comparing ‘addcentertest.Rout’ to ‘addcentertest.Rout.save’ ... OK
  Running ‘foldtest.R’
  Running ‘generators.from.designtest.R’
  Comparing ‘generators.from.designtest.Rout’ to ‘generators.from.designtest.Rout.save’ ... OK
  Running ‘generators.summary.test.R’
  Comparing ‘generators.summary.test.Rout’ to ‘generators.summary.test.Rout.save’ ... OK
  Running ‘godolphintest.R’
  Comparing ‘godolphintest.Rout’ to ‘godolphintest.Rout.save’ ... OK
  Running ‘pbtest.R’
  Comparing ‘pbtest.Rout’ to ‘pbtest.Rout.save’ ... OK
Running the tests in ‘tests/foldtest.R’ failed.
Complete output:
  > library(FrF2)
  Loading required package: DoE.base
  Loading required package: grid
  Loading required package: conf.design
  
  Attaching package: 'DoE.base'
  
  The following objects are masked from 'package:stats':
  
      aov, lm
  
  The following object is masked from 'package:graphics':
  
      plot.design
  
  The following object is masked from 'package:base':
  
      lengths
  
  > ### test programs for fold.design
  > 
  > ##  function for independent checks
  > mult <- function(a1, a2, ...){ 
  +     l <- list(...)
  +     if (length(l))
  +         return(Recall(a1, Recall(a2, ...)))
  +     if (any(is.na(as.numeric(as.character(a1))))) a1 <- 2*as.numeric(as.factor(a1))-3
  +     if (any(is.na(as.numeric(as.character(a2))))) a2 <- 2*as.numeric(as.factor(a2))-3
  +     A <- as.numeric(as.character(a1))*as.numeric(as.character(a2))
  +     A
  + }
  > 
  > ## check for replications and reptowide designs
  > plan1 <- FrF2(8,5,randomize=FALSE)
  > plan2 <- FrF2(8,5,replications=2, randomize=FALSE)
  > set.seed(98776)
  > plan3 <- FrF2(8,5,replications=2, repeat.only=TRUE)
  > fp1 <- fold.design(plan1)
  Error in `contrasts<-`(`*tmp*`, value = contr.FrF2(2)) : 
    contrasts apply only to factors
  Calls: fold.design -> contrasts<-
  Execution halted