Completely Randomized Design

Share:

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

list

book

dataframe

Author(s)

Felipe de Mendiburu

References

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

See Also

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")

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.