PimentelTb7.9.1: Experimento de Aduba<c3><a7><c3><a3>o NPK no Cafeeiro

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

Description

Experimento fatorial 2 \times 2 \times 2 de aduba<c3><a7><c3><a3>o NPK no cafeeiro feito por Malavolta et al. (1958). Foram contados os galhos secos de 4 p<c3><a9>s de caf<c3><a9> por parcela. Dos n<c3><ba>meros obtidos extraiu-se a raiz quadrada, portanto, para ter a vari<c3><a1>vel original de contagem tem-se que elevar aos valores ao quadrado.

Format

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

bloco

Fator de 6 n<c3><ad>veis qualitativos, usado para controle local.

N

Fator de 2 n<c3><ad>veis codificados que representa a dose de nitrog<c3><aa>nio aplicada, sendo que a vari<c3><a1>vel assume 1, quando houver nitrog<c3><aa>nio na composi<c3><a7><c3><a3>o do adubo e -1 caso contr<c3><a1>rio.

P

Fator de 2 n<c3><ad>veis codificados que representa a dose de f<c3><b3>sforo aplicada, sendo que a vari<c3><a1>vel assume 1, quando houver f<c3><b3>sforo na composi<c3><a7><c3><a3>o do adubo e -1 caso contr<c3><a1>rio.

K

Fator de 2 n<c3><ad>veis codificados que representa a dose de pot<c3><a1>ssio aplicada, sendo que a vari<c3><a1>vel assume 1, quando houver pot<c3><a1>ssio na composi<c3><a7><c3><a3>o do adubo e -1 caso contr<c3><a1>rio.

quad

Raiz quadrada do n<c3><ba>mero de galhos secos de 4 p<c3><a9>s de caf<c3><a9> por parcela.

Source

PIMENTEL-GOMES (2009), Tabela 7.9.1, p<c3><a1>g. 137.

Malavolta, E.; Pimentel-Gomes, F.; Coury, T. Estudos sobre a alimenta<c3><a7><c3><a3>o mineral do cafeeiro (Coffea arabica L., Variedade Bourbon Vermelho). Piracicaba, 1958.

Examples

library(lattice)

data(PimentelTb7.9.1)
str(PimentelTb7.9.1)

ftable(xtabs(~N + P + K, data = PimentelTb7.9.1))

xyplot(quad ~ N | factor(P), groups = K, data = PimentelTb7.9.1,
       type = c("p", "a"),
       xlab = "N<c3><ad>vel codificado de nitrog<c3><aa>nio",
       ylab = "Ra<c3><ad>zes quadradas do n<c3><ba>mero de galhos secos",
       auto.key = list(title = "Pot<c3><a1>ssio", cex.title = 1.1,
                       columns = 2),
       strip = strip.custom(strip.names = TRUE,
                            var.name = "F<c3><b3>sforo"))

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