labestData: Biblioteca de Dados para Aprendizado de Estatística

Description Format Source Examples

Resultados de um experimento em arranjo fatorial triplo 2 \times 2 \times 2, instalado em delineamento de blocos casualizados, para estudar o efeito da combina<c3><a7><c3><a3>o de nitrog<c3><aa>nio, f<c3><b3>sforo e pot<c3><a1>ssio na produ<c3><a7><c3><a3>o de caf<c3><a9> coco.

Um data.frame com 48 observa<c3><a7><c3><b5>es e 5 vari<c3><a1>veis, em que

N: Vari<c3><a1>vel num<c3><a9>rica que indica aus<c3><aa>ncia (0) ou presen<c3><a7>a (1) de nitrog<c3><aa>nio.
P: Vari<c3><a1>vel num<c3><a9>rica que indica aus<c3><aa>ncia (0) ou presen<c3><a7>a (1) de f<c3><b3>sforo.
K: Vari<c3><a1>vel num<c3><a9>rica que indica aus<c3><aa>ncia (0) ou presen<c3><a7>a (1) de pot<c3><a1>ssio.
bloco: Fator de 6 n<c3><ad>veis nominais, presente para controle local.
prod: Vari<c3><a1>vel resposta cont<c3><ad>nua que <c3><a9> a produ<c3><a7><c3><a3>o de caf<c3><a9> coco (kg ha^{-1}) obtida em cada uma das parcelas para cada uma das combina<c3><a7><c3><b5>es de N, P e K na aduba<c3><a7><c3><a3>o.

BANZATTO; KRONKA (2013), Quadro 5.3.1, p<c3><a1>g. 113.

library(lattice)

data(BanzattoQd5.3.1)

addmargins(with(BanzattoQd5.3.1,
                tapply(X = prod,
                       INDEX = list(interaction(N, P, K), bloco),
                       FUN = sum)))

xyplot(prod ~ N, data = BanzattoQd5.3.1,
       groups = interaction(P, K, sep = ":"), type = c("p", "a"),
       auto.key = list(title = "P:K", cex.title = 1,
                       columns = 1, corner = c(0.05, 0.95)),
       xlab = "Nitrog<c3><aa>nio (0 = ausente, 1 = presente)",
       ylab = expression("Produ<c3><a7><c3><a3>o de caf<c3><a9> coco"~(kg~ha^{-1})))

xyplot(prod ~ interaction(N, P, K, sep = ":"),
       data = BanzattoQd5.3.1,
       xlab = "N:P:K (0 = ausente, 1 = presente)",
       ylab = expression("Produ<c3><a7><c3><a3>o de caf<c3><a9> coco"~(kg~ha^{-1})))