Description Format Source Examples
Ensaio 2 de um experimento em delineamento quadrado latino, que avaliou a resist<c3><aa>ncia a insetos em seis cultivares de arroz, sendo uma delas comum ao ensaio 1. Os dados s<c3><a3>o de produtividade de espiguetas, em gramas.
Um data.frame
com 36 observa<c3><a7><c3><b5>es e 4 vari<c3><a1>veis
Fator de n<c3><ad>veis nominais. Indica em que linha do quadrado latino a unidade experimental est<c3><a1>.
Fator de n<c3><ad>veis nominais. Indica em que coluna do quadrado latino a unidade experimental est<c3><a1>.
Fator de n<c3><ad>veis nominais que representam as cultivares de arroz.
Produ<c3><a7><c3><a3>o de espiguetas, em gramas.
ZIMMERMANN (2004), Tabela 12.27, p<c3><a1>g.262.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | library(lattice)
library(reshape)
data(ZimmermannTb12.27)
str(ZimmermannTb12.27)
cast(ZimmermannTb12.27, linha ~ coluna, value = "cult")
cast(ZimmermannTb12.27, linha ~ coluna, value = "prod")
levelplot(prod ~ linha + coluna,
data = ZimmermannTb12.27, aspect = "iso",
panel = function(x, y, z, subscripts, ...) {
panel.levelplot(x, y, z, subscripts = subscripts, ...)
panel.text(x, y, ZimmermannTb12.27$cult[subscripts],
cex = 0.8)
panel.text(x, y, z, pos = 1)
})
xyplot(prod ~ cult, data = ZimmermannTb12.27, type = c("p", "a"),
xlab = "Cultivares",
ylab = expression("Produtividade de espiguetas"~(g)))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.