design.youden | R Documentation |

Such designs are referred to as Youden squares since they were introduced by Youden (1937) after Yates (1936) considered the special case of column equal to number treatment minus 1. "Random" uses the methods of number generation in R. The seed is by set.seed(seed, kinds).

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

`trt` |
Treatments |

`r` |
Replications or number of columns |

`serie` |
number plot, 1: 11,12; 2: 101,102; 3: 1001,1002 |

`seed` |
seed |

`kinds` |
method for to randomize |

`first` |
TRUE or FALSE - randomize rep 1 |

`randomization` |
TRUE or FALSE - randomize |

kinds <- c("Wichmann-Hill", "Marsaglia-Multicarry", "Super-Duper", "Mersenne-Twister", "Knuth-TAOCP", "user-supplied", "Knuth-TAOCP-2002", "default" )

`parameters` |
Design parameters |

`sketch` |
Design sketch |

`book` |
Fieldbook |

Felipe de Mendiburu

Design and Analysis of experiment. Hinkelmann, Klaus and Kempthorne, Oscar. Wiley-Interscience. Copyright (2008) by John Wiley and Sons. Inc., Hoboken, new Yersy

`design.ab`

, `design.alpha`

,`design.bib`

,
`design.crd `

, `design.cyclic `

, `design.dau `

,
`design.graeco`

, `design.lattice`

, `design.split`

,
`design.rcbd`

, `design.strip`

, `design.lsd`

```
library(agricolae)
varieties<-c("perricholi","yungay","maria bonita","tomasa")
r<-3
outdesign <-design.youden(varieties,r,serie=2,seed=23)
youden <- outdesign$book
print(outdesign$sketch)
plots <-as.numeric(youden[,1])
print(matrix(plots,byrow=TRUE,ncol=r))
print(youden) # field book.
# Write on hard disk.
# write.table(youden,"youden.txt", row.names=FALSE, sep="\t")
# file.show("youden.txt")
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.