Description Format Source Examples
Experimento instalado em delineamento de blocos casualizados para estudar o efeito de tipos de cobertura morta no peso seco de br<c3><b3>colis.
Um data.frame
com 20 observa<c3><a7><c3><b5>es e 3 vari<c3><a1>veis, em que
cobert
Fator nominal com n<c3><ad>veis de cobertura morta aplicada sobre o solo onde foi cultivado o br<c3><b3>colis: cobertura com sorgo, com crotal<c3><a1>ria, com milheto e com a vegeta<c3><a7><c3><a3>o espont<c3><a2>nea.
bloco
Fator de n<c3><ad>veis nominais considerado para controle local, possivelmente os canteiros da horta, com 5 n<c3><ad>veis.
peso
Vari<c3><a1>vel resposta cont<c3><ad>nua, peso seco (g parcela^{-1}) de br<c3><b3>colis.
Costa (2013), Tabela 6 p<c3><a1>g. 63.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | library(lattice)
data(CostaTb6)
str(CostaTb6)
with(CostaTb6, addmargins(tapply(X = peso,
INDEX = list(bloco, cobert),
FUN = sum)))
# Ordenar para evitar o efeito espaguete no gr<c3><a1>fico.
CostaTb6 <- CostaTb6[with(CostaTb6, order(cobert, bloco)), ]
xyplot(peso ~ cobert, data = CostaTb6,
groups = bloco, type = "b",
xlab = "Tipos de cobertura do solo",
ylab = expression("Peso seco de br<c3><b3>colis"~(g~parcela^{-1})),
auto.key = list(corner = c(0.1, 0.1), columns = 2,
title = "Blocos", cex.title = 1))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.