Running examples in ‘blocksdesign-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: blocks
> ### Title: Block designs for unstructured treatment sets
> ### Aliases: blocks
> 
> ### ** Examples
> 
> 
> ## The number of searches in the following examples have been limited for fast execution.  
> ## In practice, the number of searches may need to be increased for optimum results.
> ## Designs should be rebuilt several times to check that a near-optimum design has been found.  
> 
> # 12 treatments x 4 replicates in 4 complete blocks with 4 sub-blocks of size 3
> # rectangular lattice see Plan 10.10 Cochran and Cox 1957.
> 
> # 3 treatments x 2 replicates + 2 treatments x 4 replicates in two complete randomized blocks
> blocks(treatments=list(3,2),replicates=list(2,4),blocks=2,searches=10)
Warning in options(stringsAsFactors = TRUE) :
  'options(stringsAsFactors = TRUE)' is deprecated and will be disabled
$Treatments
  treatments freq
1          1    2
2          2    2
3          3    2
4          4    4
5          5    4

$Blocks_model
    Level Blocks D-Efficiency A-Efficiency A-Bound
1 Level_0      0            1            1    <NA>

$Design
    Level_0 plots treatments
1  Blocks_1     1          1
2  Blocks_1     2          4
3  Blocks_1     3          5
4  Blocks_1     4          2
5  Blocks_1     5          4
6  Blocks_1     6          3
7  Blocks_1     7          5
8  Blocks_2     8          5
9  Blocks_2     9          2
10 Blocks_2    10          3
11 Blocks_2    11          4
12 Blocks_2    12          1
13 Blocks_2    13          4
14 Blocks_2    14          5

$Plan
   Level_0 Blocks.Plots: 1 2 3 4 5 6 7
1 Blocks_1               1 4 5 2 4 3 5
2 Blocks_2               5 2 3 4 1 4 5

$seed
NULL

$searches
[1] 10

$jumps
[1] 1

> 
> # 50 treatments x 4 replicates with 4 main blocks and 5 nested sub-blocks in each main block
> 
> # as above but with 20 additional single replicate treatments, one single treatment per sub-block
> 
> # 6 replicates of 6 treatments in 4 blocks of size 9 (non-binary block design)
> blocks(treatments=6,replicates=6,blocks=4)
Error in if (nunits%%nlevels(Design[, i]) == 0) bounds[i] = A_bound(nunits,  : 
  missing value where TRUE/FALSE needed
Calls: blocks -> BlockEfficiencies
Execution halted