R: Augmented block design

design.dau {agricolae} | R Documentation

## Augmented block design

### Description

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

### Usage

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

### Arguments

`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

### Details

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

### Value

`parameters` | list
`book` | dataframe

### Author(s)

Felipe de Mendiburu

### References

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

### See Also

`design.ab`, `design.alpha`,`design.bib`, `design.crd` , `design.cyclic` , `design.split` , `design.graeco`, `design.lattice`, `design.lsd`, `design.rcbd`, `design.strip`

### Examples

    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

[Package agricolae version 1.2-6 Index]