Description Format Source Examples
Grupo de experimentos de competi<c3><a7><c3><a3>o de gen<c3><b3>tipos de cebola realizado por Santos (2003). O delineamento considerado em cada ensaio n<c3><a3>o foi informado.
Um data.frame
com 60 observa<c3><a7><c3><b5>es e 3 vari<c3><a1>veis, em que
exper
Fator de n<c3><ad>veis categ<c3><b3>ricos que representa os experimentos.
genot
Fator de n<c3><ad>veis categ<c3><b3>ricos que representa os gen<c3><b3>tipos de cebola.
prod
Produ<c3><a7><c3><a3>o m<c3><a9>dia de bulbos dos gen<c3><b3>tipos em cada experimento (m<c3><a9>dia das repeti<c3><a7><c3><b5>es), em t ha^{-1}.
BANZATTO; KRONKA (2013), Quadro 8.4.1, p<c3><a1>g. 200.
Santos, G. M. (2003). Adaptabilidade e estabilidade de gen<c3><b3>tipos de cebola. Tese (Doutorado em Gen<c3><a9>tica e Melhoramento de Plantas). Faculdade de Ci<c3><aa>ncias Agr<c3><a1>rias e Veterin<c3><a1>rias, Universidade Estadual Paulista, Jaboticabal: SP.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | library(lattice)
data(BanzattoQd8.4.1)
str(BanzattoQd8.4.1)
with(BanzattoQd8.4.1,
addmargins(tapply(prod, list(genot, exper), FUN = mean)))
xyplot(prod ~ genot, groups = exper, data = BanzattoQd8.4.1,
type = c("p", "a", "g"),
auto.key = list(title = "Experimento",
cex.title = 1, columns = 3),
scales = list(x = list(rot = 90)),
xlab = "Gen<c3><b3>tipos de cebola",
ylab = expression(
"Produ<c3><a7><c3><a3>o m<c3><a9>dia de bulbos"~(t~ha^{-1})))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.