design.alpha: Alpha design type (0,1)

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

View source: R/design.alpha.R

Description

Creates alpha designs starting from the alpha design fixing under the 4 series formulated by Patterson and Williams.

Usage

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

Arguments

trt

Treatments

k

size block

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

Parameters for the alpha design: I. r=2, k <= s; II. r=3, s odd, k <= s; III.r=3, s even, k <= s-1; IV. r=4, s odd but not a multiple of 3, k<=s

r= replications s=number of blocks k=size of block Number of treatment is equal to k*s

Value

parameters

list

statistics

dataframe

sketch

list

book

dataframe

Author(s)

Felipe de Mendiburu

References

H.D. Patterson and E.R. Williams. Biometrika (1976) A new class of resolvable incomplete block designs. printed in Great Britain. Online: http://biomet.oxfordjournals.org/cgi/content/abstract/63/1/83

See Also

design.ab, design.split,design.bib, design.crd , 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
library(agricolae)
#Example one
trt<-1:30
t <- length(trt)
# size block k
k<-3
# Blocks s
s<-t/k
# replications r
r <- 2
outdesign<- design.alpha(trt,k,r,serie=2)
book<-outdesign$book
plots<-book[,1]
dim(plots)<-c(k,s,r)
for (i in 1:r) print(t(plots[,,i]))
outdesign$sketch
# Example two 
trt<-letters[1:12] 
t <- length(trt)
k<-3
r<-3
s<-t/k
outdesign<- design.alpha(trt,k,r,serie=2)
book<-outdesign$book
plots<-book[,1]
dim(plots)<-c(k,s,r)
for (i in 1:r) print(t(plots[,,i]))
outdesign$sketch

Example output

alpha design (0,1) - Serie  I 

Parameters Alpha design
=======================
treatmeans : 30
Block size : 3
Blocks     : 10
Replication: 2 

Efficiency factor
(E ) 0.6170213 

<<< Book >>>
      [,1] [,2] [,3]
 [1,]  101  102  103
 [2,]  104  105  106
 [3,]  107  108  109
 [4,]  110  111  112
 [5,]  113  114  115
 [6,]  116  117  118
 [7,]  119  120  121
 [8,]  122  123  124
 [9,]  125  126  127
[10,]  128  129  130
      [,1] [,2] [,3]
 [1,]  201  202  203
 [2,]  204  205  206
 [3,]  207  208  209
 [4,]  210  211  212
 [5,]  213  214  215
 [6,]  216  217  218
 [7,]  219  220  221
 [8,]  222  223  224
 [9,]  225  226  227
[10,]  228  229  230
$rep1
      [,1] [,2] [,3]
 [1,] "10" "21" "11"
 [2,] "25" "6"  "9" 
 [3,] "22" "4"  "27"
 [4,] "1"  "16" "14"
 [5,] "17" "26" "23"
 [6,] "29" "2"  "19"
 [7,] "3"  "18" "5" 
 [8,] "12" "8"  "28"
 [9,] "13" "20" "24"
[10,] "15" "30" "7" 

$rep2
      [,1] [,2] [,3]
 [1,] "26" "20" "11"
 [2,] "5"  "27" "16"
 [3,] "12" "6"  "1" 
 [4,] "8"  "15" "29"
 [5,] "2"  "17" "30"
 [6,] "22" "18" "24"
 [7,] "10" "4"  "13"
 [8,] "14" "3"  "25"
 [9,] "7"  "21" "23"
[10,] "19" "9"  "28"


alpha design (0,1) - Serie  III 

Parameters Alpha design
=======================
treatmeans : 12
Block size : 3
Blocks     : 4
Replication: 3 

Efficiency factor
(E ) 0.7096774 

<<< Book >>>
     [,1] [,2] [,3]
[1,]  101  102  103
[2,]  104  105  106
[3,]  107  108  109
[4,]  110  111  112
     [,1] [,2] [,3]
[1,]  201  202  203
[2,]  204  205  206
[3,]  207  208  209
[4,]  210  211  212
     [,1] [,2] [,3]
[1,]  301  302  303
[2,]  304  305  306
[3,]  307  308  309
[4,]  310  311  312
$rep1
     [,1] [,2] [,3]
[1,] "h"  "j"  "a" 
[2,] "f"  "k"  "i" 
[3,] "d"  "c"  "e" 
[4,] "l"  "b"  "g" 

$rep2
     [,1] [,2] [,3]
[1,] "c"  "g"  "h" 
[2,] "i"  "b"  "e" 
[3,] "a"  "d"  "f" 
[4,] "j"  "l"  "k" 

$rep3
     [,1] [,2] [,3]
[1,] "d"  "i"  "j" 
[2,] "e"  "l"  "h" 
[3,] "c"  "b"  "f" 
[4,] "k"  "a"  "g" 

agricolae documentation built on Aug. 5, 2017, 5:02 p.m.