Description

It generates completely a randomized design with equal or different repetition. "Random" uses the methods of number generation in R. The seed is by set.seed(seed, kinds).

Usage

 `1` ```design.crd(trt, r, serie = 2, seed = 0, kinds = "Super-Duper",randomization=TRUE) ```

Arguments

 `trt` Treatments `r` Replications `serie` number plot, 1: 11,12; 2: 101,102; 3: 1001,1002 `seed` seed `kinds` method for to randomize `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

Introduction to Experimental Statistics. Ching Chun Li. McGraw-Hill Book Company, INC, New. York, 1964

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

Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13``` ```library(agricolae) trt <-c("CIP-101","CIP-201","CIP-301","CIP-401","CIP-501") r <-c(4,3,5,4,3) # seed = 12543 outdesign1 <-design.crd(trt,r,serie=2,2543,"Mersenne-Twister") book1<-outdesign1 # no seed outdesign2 <-design.crd(trt,r,serie=3) print(outdesign2\$parameters) book2<-outdesign2 # write to hard disk # write.table(book1,"crd.txt", row.names=FALSE, sep="\t") # file.show("crd.txt") ```

Example output

```\$design
[1] "crd"

\$trt
[1] "CIP-101" "CIP-201" "CIP-301" "CIP-401" "CIP-501"

\$r
[1] 4 3 5 4 3

\$serie
[1] 3

\$seed
[1] -80596508

\$kinds
[1] "Super-Duper"

[[7]]
[1] TRUE
```

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