auugmentdesign: Randomization of augmented block design

In plantbreeding: Analysis and visualization of data from plant breeding and genetics experiments

Description

Generating randomized augumented block design

Usage

auugmentdesign(checks, newtrt, block.size = block.size, r, seed = 999)

Arguments

checks	vector with name of checks (replicated)
newtrt	vector for names of new treatments (unreplicated)
block.size	block size
r	replications
seed	random seed

Note

block.size and r can not be zero or NA. Total of block size should be equal to number of checks x r + number of new treatments.

Author(s)

Umesh Rosyara

References

Mead, R. 1997. Design of plant breeding trials. In Statistical Methods for Plant Variety Evaluation. eds. Kempton and Fox. Chapman and Hall. London.

Examples

## example 1 
ntrt = paste ("EL", 1:60, sep= "")
checks = c("A", "B", "C", "D", "E", "F")
bsize = c(20, 12, 16, 16, 10, 22)
ado <- adesign (checks = checks, newtrt = ntrt, block.size = bsize, r = 6,  seed = 3246)
print(ado)

# example 2
checks1 = c("Rampur", "Elice", "Lansing", "Glover")

newtrt1 = c("SD101", "SD102", "SD302", "MN102", "MI6789", "KS2034","SD134",
 "SD402", "SD4342", "MN232", "MI69", "KS234",
 "SD451", "SD892", "SD212", "MN344", "MI649", "KS336","SD345",
  "SD425", "SD5662", "MN892", "MI902", "KS4",
"SD333", "SD1212", "SD021", "MN223L", "MI69n", "KS2123","SD145", "SDJ1",
 "SD4234", "MN90", "MI4567", "KS956","SD9901", "SD6602", "SD2202", "MN4402", 
 "MI892", "KS2421","SD400", "SD4029", "SD987", "MN2333", "MI690", "KS214")
r1 = 4                           
block.size1 = c(16, 16, 16, 16)
print(EX2 <- auugmentdesign (checks = checks1, newtrt = newtrt1, 
block.size = block.size1, r = r1,  seed = 124)) 

plantbreeding documentation built on May 2, 2019, 4:54 p.m.