Running examples in 'blockTools-Ex.R' failed
The error most likely occurred in:

> ### Name: blockTools-package
> ### Title: Block, Randomly Assign, and Diagnose Potential Interference in
> ###   Randomized Experiments
> ### Aliases: blockTools-package blockTools
> ### Keywords: package
> 
> ### ** Examples
> 
> data(x100)
> 
> ## block
> out <- block(x100, groups = "g", n.tr = 2, id.vars = c("id"), block.vars
+              = c("b1", "b2"), algorithm="optGreedy", distance =
+              "mahalanobis", level.two = FALSE, valid.var = "b1",
+              valid.range = c(0,500), verbose = TRUE)
Blocking group  b 
Block number is 1 
Block number is 2 
Block number is 3 
Block number is 4 
Block number is 5 
Block number is 6 
Block number is 7 
Block number is 8 
Block number is 9 
Block number is 10 
Block number is 11 
Block number is 12 
Block number is 13 
Block number is 14 
Block number is 15 
Block number is 16 
Block number is 17 
Block number is 18 
Block number is 19 
Block number is 20 
Block number is 21 
Block number is 22 
Block number is 23 
Block number is 24 
Block number is 25 
Block number is 26 
Block number is 27 
Block number is 28 
Block number is 29 
Block number is 30 
Block number is 31 
Block number is 32 
Blocking group  a 
Block number is 1 
Block number is 2 
Block number is 3 
Block number is 4 
Block number is 5 
Block number is 6 
Block number is 7 
Block number is 8 
Block number is 9 
Block number is 10 
Block number is 11 
Block number is 12 
Block number is 13 
Block number is 14 
Block number is 15 
Block number is 16 
Block number is 17 
Block number is 18 
Block number is 19 
Block number is 20 
Block number is 21 
Block number is 22 
Block number is 23 
Block number is 24 
Block number is 25 
Block number is 26 
Block number is 27 
Block number is 28 
Block number is 29 
Block number is 30 
Block number is 31 
Block number is 32 
Block number is 33 
Block number is 34 
Block number is 35 
Block number is 36 
Blocking group  c 
Block number is 1 
Block number is 2 
Block number is 3 
Block number is 4 
Block number is 5 
Block number is 6 
Block number is 7 
Block number is 8 
Block number is 9 
Block number is 10 
Block number is 11 
Block number is 12 
Block number is 13 
Block number is 14 
Block number is 15 
Block number is 16 
Block number is 17 
Block number is 18 
Block number is 19 
Block number is 20 
Block number is 21 
Block number is 22 
Block number is 23 
Block number is 24 
Block number is 25 
Block number is 26 
Block number is 27 
Block number is 28 
Block number is 29 
Block number is 30 
Block number is 31 
Block number is 32 
> ## assign
> assg <- assignment(out, seed = 123)
> ## diagnose
> diag <- diagnose(object = assg, data = x100, id.vars = "id",
+                 suspect.var = "b2", suspect.range = c(0,50))
Error in `[[<-.data.frame`(`*tmp*`, i, value = c(1002L, NA)) : 
  replacement has 2 rows, data has 1
Calls: diagnose ... [<-.data.frame -> xpdrows.data.frame -> [[<- -> [[<-.data.frame
Execution halted