DiasEx10.4.7: Aduba<c3><a7><c3><a3>o NPK na Cultura do Cafeeiro

In pet-estatistica/labestData: Biblioteca de Dados para Aprendizado de Estatística

Description

Em um experimento em delineamento inteiramente casualizado foi estudado efeito da aduba<c3><a7><c3><a3>o NPK na produ<c3><a7><c3><a3>o da do cafeeiro por meio de um experimento fatorial 2^3 com 6 repeti<c3><a7><c3><b5>es.

Format

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

N

Inteiro que indica o n<c3><ad>vel do fator nitrog<c3><aa>nio: 0 - n<c3><ad>vel baixo, 1 - n<c3><ad>vel alto.

P

Inteiro que indica o n<c3><ad>vel do fator f<c3><b3>sforo: 0 - n<c3><ad>vel baixo, 1 - n<c3><ad>vel alto.

K

Inteiro que indica o n<c3><ad>vel do fator pot<c3><a1>ssio: 0 - n<c3><ad>vel baixo, 1 - n<c3><ad>vel alto.

rept

Inteiro que indica as repeti<c3><a7><c3><b5>es das celas experimentais.

prod

Produ<c3><a7><c3><a3>o de caf<c3><a9>, em kg por parcela de 90 m^2 (30 covas de espa<c3><a7>amento 3 \times 1).

Source

BARROS; DIAS (2009), Exerc<c3><ad>cio 7, Cap. 10, p<c3><a1>g. 295.

Examples

library(lattice)

data(DiasEx10.4.7)
str(DiasEx10.4.7)

ftable(xtabs(~N + P + K, data = DiasEx10.4.7))

xyplot(prod ~ factor(N) | factor(P), groups = K, data = DiasEx10.4.7,
       type = c("p", "a"),
       xlab = "Nitrog<c3><aa>nio", ylab = "Produ<c3><a7><c3><a3>o (kg/parcela)",
       auto.key = list(title = "Pot<c3><a1>ssio", cex.title = 1.1,
                       columns = 2),
       strip = strip.custom(strip.name = TRUE,
                            var.name = "F<c3><b3>sforo"))

pet-estatistica/labestData documentation built on May 25, 2019, 12:47 a.m.