strip_plot {FielDHub} | R Documentation |
Strip Plot Design
Description
It randomly generates a strip plot design across locations.
Usage
strip_plot(
Hplots = NULL,
Vplots = NULL,
b = 1,
l = 1,
plotNumber = NULL,
planter = "serpentine",
locationNames = NULL,
seed = NULL,
factorLabels = TRUE,
data = NULL
)
Arguments
Hplots |
Number of horizontal factors, as an integer or a vector. |
Vplots |
Number of vertical factors, as an integer or a vector. |
b |
Number of blocks (full replicates). |
l |
Number of locations. By default |
plotNumber |
Numeric vector with the starting plot number for each location. By default |
planter |
Option for |
locationNames |
(optional) Names for each location. |
seed |
(optional) Real number that specifies the starting seed to obtain reproducible designs. |
factorLabels |
(optional) If |
data |
(optional) data frame with the labels of vertical and hirizontal plots. |
Value
A list with four elements.
-
infoDesign
is a list with information on the design parameters. -
stripsBlockLoc
is a list with the strip blocks for each location. -
plotLayouts
is a list with the layout plot numbers for each location. -
fieldBook
is a data frame with the strip plot field book.
Author(s)
Didier Murillo [aut], Salvador Gezan [aut], Ana Heilman [ctb], Thomas Walk [ctb], Johan Aparicio [ctb], Richard Horsley [ctb]
References
Federer, W. T. (1955). Experimental Design. Theory and Application. New York, USA. The Macmillan Company.
Examples
# Example 1: Generates a strip plot design with 5 vertical strips and 4 horizontal strips,
# with 3 reps in one location.
H <- paste("H", 1:4, sep = "")
V <- paste("V", 1:5, sep = "")
strip1 <- strip_plot(Hplots = H,
Vplots = V,
b = 3,
l = 1,
plotNumber = 101,
planter = "serpentine",
locationNames = "A",
seed = 333)
strip1$infoDesign
strip1$stripsBlockLoc
strip1$plotLayouts
head(strip1$fieldBook,12)
# Example 2: Generates a strip plot design with 5 vertical strips and 5 horizontal strips,
# with 6 reps across to 3 locations. In this case, we show how to use the option data.
Hplots <- LETTERS[1:5]
Vplots <- LETTERS[1:4]
strip_data <- data.frame(list(HPLOTS = Hplots, VPLOTS = c(Vplots, NA)))
head(strip_data)
strip2 <- strip_plot(Hplots = 5,
Vplots = 5,
b = 6,
l = 3,
plotNumber = c(101,1001,2001),
planter = "cartesian",
locationNames = c("A", "B", "C"),
seed = 222,
data = strip_data)
strip2$infoDesign
strip2$stripsBlockLoc
strip2$plotLayouts
head(strip2$fieldBook,12)