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
experFator de n<c3><ad>veis categ<c3><b3>ricos que representa os experimentos.
genotFator de n<c3><ad>veis categ<c3><b3>ricos que representa os gen<c3><b3>tipos de cebola.
prodProdu<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.