Running ‘HM2.R’ [1s/2s]
  Comparing ‘HM2.Rout’ to ‘HM2.Rout.save’ ...6c6
< Loaded planor 1.3.9
---
> Loaded planor 1.3.8
  Running ‘Kobi0.R’ [1s/2s]
  Comparing ‘Kobi0.Rout’ to ‘Kobi0.Rout.save’ ...4c4
< Loaded planor 1.3.9
---
> Loaded planor 1.3.8
  Running ‘Kobi1.R’ [1s/2s]
  Comparing ‘Kobi1.Rout’ to ‘Kobi1.Rout.save’ ...4c4
< Loaded planor 1.3.9
---
> Loaded planor 1.3.8
  Running ‘Kobi2.R’ [1s/1s]
  Comparing ‘Kobi2.Rout’ to ‘Kobi2.Rout.save’ ...4c4
< Loaded planor 1.3.9
---
> Loaded planor 1.3.8
  Running ‘Kobi3.R’ [2s/3s]
  Comparing ‘Kobi3.Rout’ to ‘Kobi3.Rout.save’ ...4c4
< Loaded planor 1.3.9
---
> Loaded planor 1.3.8
  Running ‘KobiRecursive.R’ [1s/2s]
  Comparing ‘KobiRecursive.Rout’ to ‘KobiRecursive.Rout.save’ ...4c4
< Loaded planor 1.3.9
---
> Loaded planor 1.3.8
  Running ‘NewKobi1.R’ [1s/2s]
Running the tests in ‘tests/NewKobi1.R’ failed.
Complete output:
  > library("planor")
  Loaded planor 1.3.9
  
  > 
  > #---------------------------------------------------------------------------
  > # EXAMPLES FROM THE PLANOR MANUAL
  > #---------------------------------------------------------------------------
  > # Exemple 1 page 7 : SEARCH FOR ALL SOLUTIONS
  > #---------------------------------------------------------------------------
  > cat("\n")
  
  > cat("***************** EXEMPLE 1 PAGE 7 *****************\n")
  ***************** EXEMPLE 1 PAGE 7 *****************
  > cat("\n")
  
  > cat("Four 3-level treatment factors and one 3-level block factor\n")
  Four 3-level treatment factors and one 3-level block factor
  > cat("Model: bloc+(A+B+C+D)^2\n")
  Model: bloc+(A+B+C+D)^2
  > cat("Estimate: A+B+C+D\n")
  Estimate: A+B+C+D
  > cat("N=3^3\n")
  N=3^3
  > cat("\n")
  
  > # 
  > cat("*** RUN ***\n")
  *** RUN ***
  > cat("\n")
  
  > F1 <- planor.factors( factors=c(LETTERS[1:4], "Bl"),
  +                      nlevels=rep(3,5),
  +                      block=~Bl )
  > M1 <- planor.model( model=~Bl+(A+B+C+D)^2, estimate=~A+B+C+D )
  > K1 <- planor.designkey(factors=F1, model=M1, nunits=3^3,
  +                        base=~A+B+C, max.sol=Inf, verbose=TRUE)
  Preliminary step 1 : processing the model specifications
  Preliminary step 2 : performing prime decompositions on the factors
  *** Main step for prime p = 3 : key-matrix search
    => search for columns 4 to 5 
        first visit to column 4
        first visit to column 5
      ---    col. 5 ( j = 2) 18 selected candidates
      ---    col. 5 ( j = 2) 18 selected candidates
  The search is closed: 144 solution(s) found 
  Warning message:
  In planor.designkey.basep(p = p.k, r = r.k, b.ineligible = b.P.ineligible[pseudos.k,  :
    When max.sol is Inf, a maximum of 5000 solutions are returned
  > 
  > summary(K1[1])
  
  ********** Prime  3  design **********
  
  DESIGN KEY MATRIX
    A B C D Bl
  A 1 0 0 1  1
  B 0 1 0 1  1
  C 0 0 1 1  0
  
  TREATMENT EFFECTS CONFOUNDED WITH THE MEAN
  1 = A^2  B^2  C^2  D
  
  BLOCK-and-TREATMENT EFFECTS CONFOUNDED WITH THE MEAN
  1 = A^2  B^2  Bl
  1 = C^2  D Bl^2 
  1 = A B C^2  D Bl
  
  WEIGHT PROFILES
  Treatment effects confounded with the mean: 4^1 
  Treatment effects confounded with block effects: 2^2 4^1 
  Treatment pseudo-effects confounded with the mean: 4^1 
  Treatment pseudo-effects confounded with block effects: 2^2 4^1 
  
  > alias(K1[1])
  Error in UseMethod("alias") : 
    no applicable method for 'alias' applied to an object of class "c('designkey', 'list', 'vector')"
  Calls: alias
  Execution halted