PimentelTb7.6.1: Experimento Fatorial Com Confunfimento de...

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

Description

Experimento fatorial, de 3^{3}, de aduba<c3><a7><c3><a3>o de cana com NPK, feito por Strauss (1951), com confundimento (grupo W) de dois graus de liberdade da intera<c3><a7><c3><a3>o tripla N \times P \times K. Foi usado o confundimento correspondente aos blocos, e foram feitas duas repeti<c3><a7><c3><b5>es para os 27 tratamentos.

Format

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

bloco

Fator de 3 n<c3><ad>veis qualitativos, usado para controle local e acomodar o confundimento de dois graus de liberdade.

rept

Inteiro com 2 n<c3><ad>veis que indica as duas repeti<c3><a7><c3><b5>es realizadas de cada tratamento dentro de cada bloco.

N

Fator de 3 n<c3><ad>veis codificados que representa a dose de nitrog<c3><aa>nio usada na aduba<c3><a7><c3><a3>o.

P

Fator de 3 n<c3><ad>veis codificados que representa a dose de fo<c5><9b>foro usada na aduba<c3><a7><c3><a3>o.

K

Fator de 3 n<c3><ad>veis codificados que representa a dose de pot<c3><a1>ssio usada na aduba<c3><a7><c3><a3>o.

prod

Produ<c3><a7><c3><a3>o de cana-de-a<c3><a7><c3><ba>car, em t.ha^{-1}.

Details

Foi constatado que o livro tem um erro de tipografia na tabela com os dados pois no bloco W1 existem duas ocorr<c3><aa>ncias do tratamento 202 sendo que a <c3><ba>ltima deveria ser 220. Foi feita a inclus<c3><a3>o desses dados no pacote com essa corre<c3><a7><c3><a3>o.

Source

PIMENTEL-GOMES (2009), Tabela 7.6.1, p<c3><a1>g. 126.

Straus, F. Esperimentos de aduba<c3><a7><c3><a3>o na zona canavieira de Pernambuco. In: Terceira Reuni<c3><a3>o Brasileira de Ci<c3><aa>ncia do Solo. Anais... t.1 p.336-443, 1951.

Examples

library(lattice)

data(PimentelTb7.6.1)
str(PimentelTb7.6.1)

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

xyplot(prod ~ N | factor(P), groups = K, data = PimentelTb7.6.1,
       type = c("p", "a"), as.table = TRUE,
       xlab = "N<c3><ad>vel codificado de nitrog<c3><aa>nio",
       ylab = "Produ<c3><a7><c3><a3>o de cana-de-a<c3><a7><c3><ba>car (t/ha)",
       auto.key = list(title = "Pot<c3><a1>ssio", cex.title = 1.1,
                       columns = 3),
       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.