In these designs, some treatments (checks) are replicate r times and other treatments (new) are replicated once.

1 2 | ```
design.dau(trt1, trt2, r, serie = 2, seed = 0, kinds = "Super-Duper", name="trt"
,randomization=TRUE)
``` |

`trt1` |
checks |

`trt2` |
new |

`r` |
Replications or blocks |

`serie` |
number plot, 1: 11,12; 2: 101,102; 3: 1001,1002 |

`seed` |
seed |

`kinds` |
method for to randomize |

`name` |
name of treatments |

`randomization` |
TRUE or FALSE - randomize |

kinds <- c("Wichmann-Hill", "Marsaglia-Multicarry", "Super-Duper", "Mersenne-Twister", "Knuth-TAOCP", "user-supplied", "Knuth-TAOCP-2002", "default" )

`parameters ` |
list |

`book ` |
dataframe |

Felipe de Mendiburu

1. Augmented (or Hoonuiaku) Design. Federer, W.T. (1956), Hawaii Plr. rec., 55: 191-208. 2. In Augmented Designs. Federer, W.T and Raghavarao, D. (1975). Bometrics, vol. 31, No. 1 (mar.., 1975), pp. 29-35

`design.ab`

, `design.alpha`

,`design.bib`

,
`design.crd `

, `design.cyclic `

, `design.split `

,
`design.graeco`

, `design.lattice`

, `design.lsd`

,
`design.rcbd`

, `design.strip`

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ```
library(agricolae)
# 4 treatments and 5 blocks
T1<-c("A","B","C","D")
T2<-letters[20:26]
outdesign <-design.dau(T1,T2, r=5,serie=2)
# field book
book<-outdesign$book
by(book,book[2],function(x) paste(x[,1],"-",as.character(x[,3])))
# write in hard disk
# write.table(book,"dau.txt", row.names=FALSE, sep="\t")
# file.show("dau.txt")
# Augmented designs in Completely Randomized Design
trt<-c(T1,T2)
r<-c(4,4,4,4,1,1,1,1,1,1,1)
outdesign <- design.crd(trt,r)
outdesign$book
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.