design.dau: Augmented block design

Description Usage Arguments Details Value Author(s) References See Also Examples

View source: R/design.dau.R

Description

These are designs for two types of treatments: the control treatments (common) and the increased treatments. The common treatments are applied in complete randomized blocks, and the increased treatments, at random. Each treatment should be applied in any block once only. It is understood that the common treatments are of a greater interest; the standard error of the difference is much smaller than when between two increased ones in different blocks.

Usage

1
2
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

Design parameters

book

Fieldbook

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

 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

Example output

block: 1
[1] "101 - v" "102 - B" "103 - A" "104 - u" "105 - D" "106 - C"
------------------------------------------------------------ 
block: 2
[1] "201 - A" "202 - C" "203 - t" "204 - z" "205 - D" "206 - B"
------------------------------------------------------------ 
block: 3
[1] "301 - A" "302 - w" "303 - B" "304 - C" "305 - D"
------------------------------------------------------------ 
block: 4
[1] "401 - D" "402 - A" "403 - C" "404 - y" "405 - B"
------------------------------------------------------------ 
block: 5
[1] "501 - x" "502 - C" "503 - B" "504 - D" "505 - A"
   plots r trt
1    101 1   v
2    102 1   D
3    103 1   x
4    104 1   C
5    105 1   y
6    106 1   B
7    107 1   z
8    108 2   B
9    109 2   D
10   110 3   B
11   111 2   C
12   112 1   A
13   113 1   w
14   114 2   A
15   115 3   C
16   116 4   B
17   117 1   t
18   118 3   D
19   119 3   A
20   120 1   u
21   121 4   A
22   122 4   D
23   123 4   C

agricolae documentation built on Sept. 13, 2017, 1:03 a.m.