labestData: Biblioteca de Dados para Aprendizado de Estatística

Description Format Source Examples

Experimento realizado em Jaboticabal - SP por Vilalta (1972) que, com um arranjo fatorial triplo, estudou a combina<c3><a7><c3><a3>o de nitrog<c3><aa>nio, f<c3><b3>sforo e pot<c3><a1>ssio, cada um com 3 n<c3><ad>veis (27 combina<c3><a7><c3><b5>es ao todo), sobre a produ<c3><a7><c3><a3>o de gr<c3><a3>os de milho. Como o n<c3><ba>mero de tratamentos <c3><a9> 27, n<c3><a3>o seria vi<c3><a1>vel, em termos de controle local, ter blocos desse tamanho. Portanto, usou-se a t<c3><a9>cnica de confundimento para distribuir os 27 tratamentos em 3 blocos de tamanho 9. A t<c3><a9>cnica foi usada para confundir dois graus de liberdade da intera<c3><a7><c3><a3>o tripla com o efeito dos blocos. O grupo de confundimento adotado foi o W.

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

N: N<c3><ad>veis codificados de nitrog<c3><aa>nio (N) que representam 0, 30 e 60 kg ha^{-1}. A fonte do N <c3><a9> o sulfato de am<c3><b4>nio (20% de N).
P: N<c3><ad>veis codificados de f<c3><b3>sforo (P) que representam 0, 30 e 60 kg ha^{-1}. A fonte do P <c3><a9> o superfosfato simples (18% de P_{2}O_{5}).
K: N<c3><ad>veis codificados de pot<c3><a1>ssio (K) que representam 0, 30 e 60 kg ha^{-1}. A fonte do K <c3><a9> o cloreto de pot<c3><a1>ssio (60% de K_{2}O).
bloc: Fator de n<c3><ad>veis nominais que identifica os blocos.
prod: Vari<c3><a1>vel resposta observada que <c3><a9> a produ<c3><a7><c3><a3>o de gr<c3><a3>os de milho (kg ha^{-1}).

Cada parcela foi constitu<c3><ad>da de 6 linhas de plantio com 10 metros de comprimento, num total de 60 m^{2} e, como <c3><a1>rea <c3><ba>til, foram consideradas as 4 linhas centrais com 8 metros de comprimento (por desconsiderar 1 m em cada extremidade), perfazendo 32 m^{2}. O h<c3><ad>brido de milho utilizado foi o HMD-7974.

BANZATTO; KRONKA (2013), Quadro 5.5.1, p<c3><a1>g. 131.

Vilalta, O. A. (1972). Avalia<c3><a7><c3><a3>o da produ<c3><a7><c3><a3>o de milho (Zea mays L.) em fun<c3><a7><c3><a3>o da aduba<c3><a7><c3><a3>o NPK em um latossolo vermelho-escuro – fase arenosa. Trabalho de Conclus<c3><a3>o de Curso (Gradua<c3><a7><c3><a3>o em Agronomia). Faculdade de Ci<c3><aa>ncias Agr<c3><a1>rias e Veterin<c3><a1>rias, Universidade Estadual Paulista, Jaboticabal, SP.

library(lattice)

data(BanzattoQd5.5.1)

a <- with(BanzattoQd5.5.1,
          tapply(X = prod, INDEX = list(N, P, K), FUN = sum))
addmargins(apply(a, MARGIN = c(1, 2), FUN = sum))
addmargins(apply(a, MARGIN = c(1, 3), FUN = sum))
addmargins(apply(a, MARGIN = c(2, 3), FUN = sum))

xyplot(prod ~ factor(N) | factor(P), data = BanzattoQd5.5.1,
       groups = K, type = c("p", "a"), layout = c(NA, 1),
       auto.key = list(title = "Pot<c3><a1>ssio (K)", cex.title = 1,
                       columns = 3),
       strip = strip.custom(strip.names = TRUE,
                            var.name = "F<c3><b3>sforo (P)"),
       xlab = "Nitrog<c3><aa>nio (N)",
       ylab = expression("Produ<c3><a7><c3><a3>o de gr<c3><a3>os de milho"~(ka~ha^{-1})))