Merge branch 'walmes9' into devel

DESCRIPTION

@@ -38,6 +38,7 @@ Suggests:
     car,
 	knitr,
 	rmarkdown,
-	shiny
+	shiny,
+    reshape2
 VignetteBuilder: knitr
 RoxygenNote: 5.0.1

R/BanzattoQd5.2.1.R

 #' @name BanzattoQd5.2.1
-#' @title Peneira e densidade de plantio na produção de amendoim
+#' @title Peneira e Densidade de Plantio na Produção de Amendoim
 #' @description Dados de um experimento fatorial que estudou o efeito de
 #'     densidade de plantio e tamanho da peneiras comerciais, de crivos
 #'     circulares, para classificação das sementes da produção de
@@ -12,10 +12,10 @@
 #' \item{\code{densid}}{Densidade de plantio expresso em número de
 #'     plantas por metro linear de cultivo.}
 #'
-#' \item{\code{peneira}}{Diâmetro dos crivos cículares da peneira usada
+#' \item{\code{peneira}}{Diâmetro dos crivos circulares da peneira usada
 #'     para classificar as sementes (18/64, 20/64 e 22/64 polegadas).}
 #'
-#' \item{\code{bloco}}{Fator considerado para garatir controle local.}
+#' \item{\code{bloco}}{Fator considerado para garantir controle local.}
 #'
 #' \item{\code{prod}}{Produção média de amendoim em vagens (g) por
 #'     planta.}
@@ -47,7 +47,7 @@
 #' xyplot(prod ~ densid, data = BanzattoQd5.2.1,
 #'        groups = peneira, type = c("p", "a"),
 #'        auto.key = list(title = "Peneira", cex.title = 1,
-#'                        columns = 1, corner = c(0.95, 0.95)),
+#'                        columns = 1, corner = c(0.05, 0.95)),
 #'        xlab = "Densidade de plantio (plantas/metro linear)",
 #'        ylab = "Produção média de amendoim em vagem (g/planta)")
 #'

R/BanzattoQd5.2.4.R

 #' @name BanzattoQd5.2.4
-#' @title Efeito de recipientes para para duas espécies de Eucalipto
+#' @title Efeito de Recipientes para Duas Espécies de Eucalipto
 #' @description Experimento em esquema fatorial 3 \eqn{\times} 2 para
 #'     estudar o efeito de 3 tipos de recipientes para a produção de
 #'     mudas de duas espécies de Eucalipto. O experimento foi instalado
 #'     em delineamento inteiramente casualizado.
 #' @format Um \code{data.frame} com 24 observações e 4 variáveis, em que
+#'
 #' \describe{
 #'
 #' \item{\code{recipie}}{São os níveis de recipiente estudados: SPP -
-#'     saco plático pequeno, SPG - saco plástico grande e Lam -
+#'     saco plástico pequeno, SPG - saco plástico grande e Lam -
 #'     laminado.}
 #'
 #' \item{\code{especie}}{São as espécies de Eucalipto: \emph{Eucalyptus

R/BanzattoQd5.3.1.R

+#' @name BanzattoQd5.3.1
+#' @title Produção de Café em Função de Adubação NPK
+#' @description Resultados de um experimento em arranjo fatorial triplo
+#'     2 \eqn{\times} 2 \eqn{\times} 2, instalado em delineamento de
+#'     blocos casualizados, para estudar o efeito da combinação de
+#'     nitrogênio, fósforo e potássio na produção de café coco.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#' \describe{
+#'
+#' \item{\code{N}}{Variável numérica que indica ausência (0) ou
+#'     presença (1) de nitrogênio.}
+#'
+#' \item{\code{P}}{Variável numérica que indica ausência (0) ou
+#'     presença (1) de fósforo.}
+#'
+#' \item{\code{K}}{Variável numérica que indica ausência (0) ou
+#'     presença (1) de potássio.}
+#'
+#' \item{\code{bloco}}{Fator de 6 níveis nominais, presente para
+#'     controle local.}
+#'
+#' \item{\code{prod}}{Variável resposta contínua que é a produção de
+#'     café coco (kg ha\eqn{^{-1}}) obtida em cada uma das parcelas para
+#'     cada uma das combinações de N, P e K na adubação.}
+#'
+#' }
+#' @keywords DBC FAT3
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.3.1,
+#'     pág. 113)
+#' @examples
+#'
+#' 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ênio (0 = ausente, 1 = presente)",
+#'        ylab = expression("Produção de café 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ção de café coco"~(kg~ha^{-1})))
+#'
+NULL

R/BanzattoQd5.3.7.R

+#' @name BanzattoQd5.3.7
+#' @title Eficiência na Utilização de P por Cultivares de trigo
+#' @description Experimento em delineamento inteiramente casualizado que
+#'     avaliou o efeito a eficiência na utilização de fósforo por três
+#'     cultivares de trigo cultivadas em solo com e sem calagem.
+#' @format Um \code{data.frame} com 48 observações e 5 variáveis.
+#' \describe{
+#'
+#' \item{\code{cult}}{Cultivares de trigo usadas no experimento: BR 20
+#'     Guató - tolerante ao alumínio, BR 36 Ianomami - sensível ao
+#'     alumínio, BR 40 Tuiúca - moderadamente sensível ao alumínio.}
+#'
+#' \item{\code{calag}}{Quantidade aplicada de calcário feita para
+#'     correção da acidez do solo (calagem): 0 e 4,4 ton ha\eqn{^{-1}}.}
+#'
+#' \item{\code{P}}{Quantidade aplicada de fósforo: 0 e 87 mg de P por kg
+#'     de solo.}
+#'
+#' \item{\code{rept}}{Identifica a repetição de cada cela experimental.}
+#'
+#' \item{\code{efic}}{Variável resposta que a eficiência na utilização
+#'     do fósforo, dado pelo quociente da massa seca da parte aérea
+#'     produzida pela quantidade de fósforo absorvida pelas plantas.}
+#'
+#' }
+#' @keywords DIC FAT3
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.3.7,
+#'     pág. 120)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd5.3.7)
+#'
+#' addmargins(with(BanzattoQd5.3.7,
+#'                 tapply(X = efic,
+#'                        INDEX = list(interaction(cult, calag, P),
+#'                                     rept),
+#'                        FUN = sum)))
+#'
+#' xyplot(efic ~ factor(P) | cult, data = BanzattoQd5.3.7,
+#'        groups = calag, type = c("p", "a"),
+#'        layout = c(NA, 1), jitter.x = TRUE,
+#'        auto.key = list(title = expression("Calagem"~(ton~ha^{-1})),
+#'                        cex.title = 1, columns = 2),
+#'        xlab = expression("Fósforo"~(mg~kg^{-1}~de~solo)),
+#'        ylab = expression("Eficiência no uso do Fósforo"))
+#'
+NULL

R/BanzattoQd5.5.1.R

+#' @name BanzattoQd5.5.1
+#' @title Adubação Mineral no Milho com Uso de Confundimento
+#' @description Experimento realizado em Jaboticabal - SP por Vilalta
+#'     (1972) que, com um arranjo fatorial triplo, estudou a combinação
+#'     de nitrogênio, fósforo e potássio, cada um com 3 níveis (27
+#'     combinações ao todo), sobre a produção de grãos de milho. Como o
+#'     número de tratamentos é 27, não seria viável, em termos de
+#'     controle local, ter blocos desse tamanho. Portanto, usou-se a
+#'     técnica de confundimento para distribuir os 27 tratamentos em 3
+#'     blocos de tamanho 9. A técnica foi usada para confundir dois
+#'     graus de liberdade da interação tripla com o efeito dos blocos. O
+#'     grupo de confundimento adotado foi o W.
+#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
+#'     \describe{
+#'
+#' \item{\code{N}}{Níveis codificados de nitrogênio (N) que representam
+#'     0, 30 e 60 kg ha\eqn{^{-1}}. A fonte do N é o sulfato de amônio
+#'     (20\% de N).}
+#'
+#' \item{\code{P}}{Níveis codificados de fósforo (P) que representam 0,
+#'     30 e 60 kg ha\eqn{^{-1}}. A fonte do P é o superfosfato simples
+#'     (18\% de P\eqn{_{2}}O\eqn{_{5}}).}
+#'
+#' \item{\code{K}}{Níveis codificados de potássio (K) que representam 0,
+#'     30 e 60 kg ha\eqn{^{-1}}. A fonte do K é o cloreto de potássio
+#'     (60\% de K\eqn{_{2}}O).}
+#'
+#' \item{\code{bloc}}{Fator de níveis nominais que identifica os
+#'     blocos.}
+#'
+#' \item{\code{prod}}{Variável resposta observada que é a produção de
+#'     grãos de milho (kg ha\eqn{^{-1}}).}
+#'
+#' }
+#'
+#' Cada parcela foi constituída de 6 linhas de plantio com 10 metros de
+#' comprimento, num total de 60 m\eqn{^{2}} e, como área útil, foram
+#' consideradas as 4 linhas centrais com 8 metros de comprimento (por
+#' desconsiderar 1 m em cada extremidade), perfazendo 32 m\eqn{^{2}}. O
+#' híbrido de milho utilizado foi o HMD-7974.
+#'
+#' @keywords DBC FAT3 confundimento
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.5.1,
+#'     pág. 131)
+#'
+#' Vilalta, O. A. (1972). Avaliação da produção de milho (\emph{Zea
+#'     mays} L.) em função da adubação NPK em um latossolo
+#'     vermelho-escuro -- fase arenosa. Trabalho de Conclusão de Curso
+#'     (Graduação em Agronomia). Faculdade de Ciências Agrárias e
+#'     Veterinárias, Universidade Estadual Paulista, Jaboticabal, SP.
+#'
+#' @examples
+#'
+#' 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ássio (K)", cex.title = 1,
+#'                        columns = 3),
+#'        strip = strip.custom(strip.names = TRUE,
+#'                             var.name = "Fósforo (P)"),
+#'        xlab = "Nitrogênio (N)",
+#'        ylab = expression("Produção de grãos de milho"~(ka~ha^{-1})))
+#'
+NULL

R/Dinorah.R

+#' @name Dinorah
+#' @title Produção de Milho com Adubação Orgânica com Cama de Frango
+#' @description Experimento instalado e conduzido por Walmes M. Zeviani,
+#'     estudante do 4 ano de Agronomia da UFGD na época, na Fazenda
+#'     Dinorah em Jateí - MS na safra de inverno de 2006. No experimento
+#'     foram avaliadas doses de cama de frango como fonte de adubação
+#'     orgânica na cultura do milho. Três fatores foram estudados: forma
+#'     de aplicação da cama de frango, quantidade aplicada e
+#'     complementação com adubação mineral (NPK). Os três fatores
+#'     combinados resultam em um arranjo fatorial incompleto devido a
+#'     ausência de uma cela experimental que não era de interesse. O
+#'     experimento foi instalado em blocos para controlar para o efeito
+#'     da declividade do terreno.
+#'
+#' \if{html}{\figure{dinorah.jpg}{options: width="800px"}}
+#' \if{latex}{\figure{dinorah.jpg}{options: width=5.4in}}
+#'
+#' Na figura acima tem-se a delimitação entre algumas parcelas (contorno
+#' linhas retas brancas com vértices nas estacas).
+#'
+#' @format Um \code{data.frame} com 60 observações e 11 variáveis.
+#'     \describe{
+#'
+#' \item{\code{aplic}}{Forma de aplicação da cama de frango: incorporada
+#'     ao solo com uma grade niveladora leve e semi aberta ou à lanço na
+#'     superfície sem incorporação.}
+#'
+#' \item{\code{npk}}{Quantidade de adubo mineral (NPK, kg ha\eqn{^{-1}})
+#'     aplicado na linha quando feita a semeadura.}
+#'
+#' \item{\code{cama}}{Quantidade aplicada de cama de frango (ton
+#'     ha\eqn{^{-1}}) como fonte orgânica de adubação.}
+#'
+#' \item{\code{bloco}}{Identifica os blocos do experimento que foram
+#'     utilizados para controlar principalmente a declividade do terreno
+#'     onde foram demarcadas as parcelas.}
+#'
+#' \item{\code{altes}}{Altura das espigas (cm) em relação ao nível do
+#'     solo, obtida com a média da medida em 5 plantas ao acaso dentro
+#'     da área útil da parcela.}
+#'
+#' \item{\code{altpl}}{Altura das plantas (cm) em relação ao nível do
+#'     solo, obtida com a média da medida em 5 plantas ao acaso dentro
+#'     da área útil da parcela.}
+#'
+#' \item{\code{maspl}}{Massa fresca média de uma planta, obtida com a
+#'     média da medida em 5 plantas ao acaso dentro da área útil da
+#'     parcela.}
+#'
+#' \item{\code{mases}}{Massa de espiga com casca (g), obtida com a média
+#'     da medida de todas as espigas colhidas na área útil da parcela.}
+#'
+#' \item{\code{masgr}}{Massa de grãos por espiga (g), obtida ao debulhar
+#'     a espiga pesar os grãos, também corresponde à média da medida de
+#'     todas as espigas colhidas na área útil da parcela.}
+#'
+#' \item{\code{prod}}{Produção de grãos de milho (kg ha\eqn{^{-1}}).}
+#'
+#' \item{\code{p100}}{Peso de 100 grãos (g).}
+#'
+#' }
+#' @keywords DBC FAT3 incompleto
+#' @source Arquivo pessoal de Walmes M. Zeviani.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(Dinorah)
+#'
+#' xyplot(prod ~ cama | aplic, data = Dinorah,
+#'        groups = npk, type = c("p", "a"),
+#'        layout = c(NA, 1),
+#'        auto.key = list(title = expression("NPK"~(kg~ha^{-1})),
+#'                        cex.title = 1, columns = 2),
+#'        strip = strip.custom(strip.names = TRUE, var.name = "Aplicação"),
+#'        xlab = expression("Adubação com cama de frango"~(ton~ha^{-1})),
+#'        ylab = expression("Produção milho"~(ka~ha^{-1})))
+#'
+#' ftable(xtabs(~aplic + cama + npk, data = Dinorah))
+#'
+#' library(reshape2)
+#'
+#' din <- melt(data = Dinorah,
+#'             id.vars = names(Dinorah)[1:4],
+#'             measure.vars = names(Dinorah)[-(1:4)],
+#'             value.name = "valor",
+#'             variable.name = "resp")
+#' str(din)
+#'
+#' xyplot(valor ~ cama | resp, data = din,
+#'        groups = interaction(aplic, npk, sep = " : "),
+#'        type = c("p", "a"), as.table = TRUE,
+#'        auto.key = list(title = expression(
+#'                            "Forma de aplicação : NPK"~(kg~ha^{-1})),
+#'                        cex.title = 1, columns = 2),
+#'        scales = list(y = "free"),
+#'        xlab = expression(
+#'            "Adubação com cama de frango"~(ton~ha^{-1})),
+#'        ylab = "Valor observado")
+#'
+NULL

data-raw/BanzattoQd5.3.1.txt

+N	P	K	bloco	prod
+0	0	0	1	3.029
+0	0	0	2	3.857
+0	0	0	3	2.448
+0	0	0	4	2.448
+0	0	0	5	3.543
+0	0	0	6	4.314
+0	0	1	1	2.438
+0	0	1	2	3.086
+0	0	1	3	3.771
+0	0	1	4	4.657
+0	0	1	5	1.962
+0	0	1	6	3.21
+0	1	0	1	3.448
+0	1	0	2	3.6
+0	1	0	3	3.895
+0	1	0	4	4.267
+0	1	0	5	3.086
+0	1	0	6	3.657
+0	1	1	1	3.533
+0	1	1	2	5.048
+0	1	1	3	3.467
+0	1	1	4	4.095
+0	1	1	5	1.876
+0	1	1	6	2.895
+1	0	0	1	3.362
+1	0	0	2	3.714
+1	0	0	3	3.429
+1	0	0	4	3.19
+1	0	0	5	2.686
+1	0	0	6	4.038
+1	0	1	1	4.905
+1	0	1	2	6.295
+1	0	1	3	4.924
+1	0	1	4	4.952
+1	0	1	5	5.381
+1	0	1	6	5.543
+1	1	0	1	4.171
+1	1	0	2	3.114
+1	1	0	3	4.124
+1	1	0	4	3.981
+1	1	0	5	3.038
+1	1	0	6	3.59
+1	1	1	1	4.476
+1	1	1	2	4.752
+1	1	1	3	4.848
+1	1	1	4	4.676
+1	1	1	5	6.829
+1	1	1	6	3.771

data-raw/BanzattoQd5.3.7.txt

+cult	calag	P	rept	efic
+BR 20 Guató	0	0	1	1255
+BR 20 Guató	0	0	2	1250
+BR 20 Guató	0	0	3	908
+BR 20 Guató	0	0	4	1431
+BR 20 Guató	0	87	1	556
+BR 20 Guató	0	87	2	476
+BR 20 Guató	0	87	3	588
+BR 20 Guató	0	87	4	500
+BR 20 Guató	4.4	0	1	714
+BR 20 Guató	4.4	0	2	770
+BR 20 Guató	4.4	0	3	667
+BR 20 Guató	4.4	0	4	667
+BR 20 Guató	4.4	87	1	417
+BR 20 Guató	4.4	87	2	454
+BR 20 Guató	4.4	87	3	454
+BR 20 Guató	4.4	87	4	385
+BR 36 Ianomami	0	0	1	1428
+BR 36 Ianomami	0	0	2	1444
+BR 36 Ianomami	0	0	3	1667
+BR 36 Ianomami	0	0	4	1428
+BR 36 Ianomami	0	87	1	625
+BR 36 Ianomami	0	87	2	526
+BR 36 Ianomami	0	87	3	667
+BR 36 Ianomami	0	87	4	526
+BR 36 Ianomami	4.4	0	1	769
+BR 36 Ianomami	4.4	0	2	911
+BR 36 Ianomami	4.4	0	3	1000
+BR 36 Ianomami	4.4	0	4	1254
+BR 36 Ianomami	4.4	87	1	370
+BR 36 Ianomami	4.4	87	2	476
+BR 36 Ianomami	4.4	87	3	417
+BR 36 Ianomami	4.4	87	4	357
+BR 40 Tuiúca	0	0	1	1660
+BR 40 Tuiúca	0	0	2	1662
+BR 40 Tuiúca	0	0	3	1667
+BR 40 Tuiúca	0	0	4	1667
+BR 40 Tuiúca	0	87	1	526
+BR 40 Tuiúca	0	87	2	714
+BR 40 Tuiúca	0	87	3	588
+BR 40 Tuiúca	0	87	4	714
+BR 40 Tuiúca	4.4	0	1	625
+BR 40 Tuiúca	4.4	0	2	909
+BR 40 Tuiúca	4.4	0	3	909
+BR 40 Tuiúca	4.4	0	4	667
+BR 40 Tuiúca	4.4	87	1	526
+BR 40 Tuiúca	4.4	87	2	556
+BR 40 Tuiúca	4.4	87	3	400
+BR 40 Tuiúca	4.4	87	4	476

data-raw/BanzattoQd5.5.1.txt

+N	P	K	prod
+0	0	0	5.719
+0	1	2	5.188
+0	2	1	7.062
+1	0	1	4.812
+1	1	0	5.656
+1	2	2	5.969
+2	0	2	5.938
+2	1	1	5.375
+2	2	0	6.031
+0	0	1	6.406
+0	1	0	6.719
+0	2	2	6.875
+1	0	2	5.812
+1	1	1	6.062
+1	2	0	6.594
+2	0	0	6.031
+2	1	2	6.844
+2	2	1	6.719
+0	0	2	4.781
+0	1	1	6.094
+0	2	0	6.875
+1	0	0	3.5
+1	1	2	7.656
+1	2	1	6.062
+2	0	1	6.812
+2	1	0	5.547
+2	2	2	6.781

data-raw/Dinorah.txt

+aplic	npk	cama	bloco	altes	altpl	maspl	mases	masgr	prod	p100
+incorporado	0	0	1	38.4	109.2	53.6	95.417	60.833	570.313	25
+incorporado	0	0	2	69.8	131.4	72.6	111.5	73.375	2292.969	24.194
+incorporado	0	0	3	52.8	103.8	83.6	95.714	58.571	960.938	28.571
+incorporado	0	0	4	39.2	86.8	55.6	67.188	35	437.5	25.21
+incorporado	0	2	1	60	126	97.6	96.818	60.909	1046.875	26.087
+incorporado	0	2	2	54.6	109.6	60.6	87.308	58.59	1785.156	28.302
+incorporado	0	2	3	55.2	114.8	72.6	80.714	44.643	488.281	23.81
+incorporado	0	2	4	50.8	95.8	81.6	73.438	45.313	566.406	27.027
+incorporado	0	4	1	62.6	130.8	88.6	96.571	59.286	1621.094	26.087
+incorporado	0	4	2	54	120.6	82.6	116.136	75.682	2601.563	25.862
+incorporado	0	4	3	63.8	129.8	94.6	85.641	52.436	1597.656	26.087
+incorporado	0	4	4	57	101.6	72.6	66.389	39.444	554.688	22.222
+incorporado	0	8	1	63.6	130.6	81.6	99.744	67.949	2070.313	25.862
+incorporado	0	8	2	59.31	111.75	75.75	78.063	49.421	1085.156	23.496
+incorporado	0	8	3	61.29	120.45	78.45	88.069	57.972	1539.844	24.588
+incorporado	0	8	4	76.2	143	103.6	107.027	79.324	2292.969	24.39
+incorporado	0	16	1	77.8	146.4	87.6	133.902	90.244	2890.625	27.523
+incorporado	0	16	2	71.763	136.617	89.883	109.666	75.847	2241.146	25.5
+incorporado	0	16	3	60.8	116	66.6	83.571	49.286	808.594	24.59
+incorporado	0	16	4	85.2	169	85.6	119.574	80.319	2949.219	NA
+incorporado	120	0	1	72	136.6	59.6	87.982	57.982	2582.031	23.256
+incorporado	120	0	2	72.667	140.533	70.6	97.043	62.529	2113.281	NA
+incorporado	120	0	3	67.2	138.2	65.6	98.725	67.451	2687.5	26.549
+incorporado	120	0	4	57	119.2	86.6	61.042	41.563	1558.594	26.786
+incorporado	120	2	1	67.8	135	91.6	90.625	74.063	2777.344	27.273
+incorporado	120	2	2	64	130.8	81.267	83.464	61.025	2341.146	26.869
+incorporado	120	2	3	61.2	107.4	59.6	56.8	29.2	570.313	24.194
+incorporado	120	2	4	62.4	117	61.6	101.216	62.838	1816.406	25
+incorporado	120	4	1	78	140.2	61.6	84.375	57.125	1785.156	24
+incorporado	120	4	2	50	108.4	52.6	82.568	71.892	2078.125	24.793
+incorporado	120	4	3	74.2	139.8	60.6	105.972	74.583	2097.656	25.641
+incorporado	120	4	4	60.8	115.8	68.6	88	53.25	832.031	28.037
+incorporado	120	8	1	69	140	105.6	98.214	63.333	2078.125	25.424
+incorporado	120	8	2	75.2	147.6	65.6	97.347	67.449	2582.031	22.901
+incorporado	120	8	3	58.8	119.6	59.6	99.375	60.75	1898.438	25.21
+incorporado	120	8	4	65	121.2	101.6	67.333	33.333	390.625	23.256
+incorporado	120	16	1	62	122.6	88.6	100.303	70.758	1824.219	24.59
+incorporado	120	16	2	53	94	80.6	78.125	48.7	1521.875	27.027
+incorporado	120	16	3	79.6	134.6	78.6	107.556	67.222	2363.281	25.424
+incorporado	120	16	4	71.6	135.6	84.6	90.417	51.806	1457.031	26.316
+não incorp.	120	0	1	66	139.2	77.6	116.222	52.578	1848.438	26.087
+não incorp.	120	0	2	72.4	136.467	80.267	104.731	57.202	1889.583	25.942
+não incorp.	120	0	3	30.8	71.4	59.6	139.583	89.167	835.938	26.549
+não incorp.	120	0	4	38.8	86.8	53.6	39.091	19.091	164.063	23.077
+não incorp.	120	2	1	59.2	124.8	108.6	105.806	69.032	1671.875	26.316
+não incorp.	120	2	2	58.4	131.8	63.6	115.345	74.828	1695.313	25.862
+não incorp.	120	2	3	49.8	97	45.6	70	44.375	554.688	21.739
+não incorp.	120	2	4	32.6	67	71.6	40	16.25	50.781	25
+não incorp.	120	4	1	65.2	124.8	101.6	90	55.926	1179.688	24.59
+não incorp.	120	4	2	54	117.6	115.6	113	77.875	2433.594	23.077
+não incorp.	120	4	3	57.2	113	58.6	81.667	47.381	777.344	28.037
+não incorp.	120	4	4	52.8	100.6	79.6	78.846	51.154	519.531	26.316
+não incorp.	120	8	1	60.2	113.6	84.6	87.941	54.265	1441.406	25
+não incorp.	120	8	2	62.2	121.6	92.6	101.143	66.571	1820.313	24.53
+não incorp.	120	8	3	53.8	116.8	86.6	135	85.143	2328.125	24
+não incorp.	120	8	4	59.8	115.6	64.6	99.032	66.129	1601.563	24.59
+não incorp.	120	16	1	82	150.2	94.6	121.455	88.182	3789.063	22.901
+não incorp.	120	16	2	64.2	121.6	74.6	77.708	60.833	1140.625	25.21
+não incorp.	120	16	3	76.8	148.2	57.6	128.085	88.511	3250	23.256
+não incorp.	120	16	4	72.4	153	68.6	110.66	74.717	3093.75	26.087

man/BanzattoQd5.2.1.Rd

@@ -2,7 +2,7 @@
 % Please edit documentation in R/BanzattoQd5.2.1.R
 \name{BanzattoQd5.2.1}
 \alias{BanzattoQd5.2.1}
-\title{Peneira e densidade de plantio na produção de amendoim}
+\title{Peneira e Densidade de Plantio na Produção de Amendoim}
 \format{Um \code{data.frame} com 27 observações e 4 variáveis, em que
 
 \describe{
@@ -10,10 +10,10 @@
 \item{\code{densid}}{Densidade de plantio expresso em número de
     plantas por metro linear de cultivo.}
 
-\item{\code{peneira}}{Diâmetro dos crivos cículares da peneira usada
+\item{\code{peneira}}{Diâmetro dos crivos circulares da peneira usada
     para classificar as sementes (18/64, 20/64 e 22/64 polegadas).}
 
-\item{\code{bloco}}{Fator considerado para garatir controle local.}
+\item{\code{bloco}}{Fator considerado para garantir controle local.}
 
 \item{\code{prod}}{Produção média de amendoim em vagens (g) por
     planta.}
@@ -53,7 +53,7 @@ addmargins(with(BanzattoQd5.2.1,
 xyplot(prod ~ densid, data = BanzattoQd5.2.1,
        groups = peneira, type = c("p", "a"),
        auto.key = list(title = "Peneira", cex.title = 1,
-                       columns = 1, corner = c(0.95, 0.95)),
+                       columns = 1, corner = c(0.05, 0.95)),
        xlab = "Densidade de plantio (plantas/metro linear)",
        ylab = "Produção média de amendoim em vagem (g/planta)")
 

man/BanzattoQd5.2.4.Rd

@@ -2,12 +2,13 @@
 % Please edit documentation in R/BanzattoQd5.2.4.R
 \name{BanzattoQd5.2.4}
 \alias{BanzattoQd5.2.4}
-\title{Efeito de recipientes para para duas espécies de Eucalipto}
+\title{Efeito de Recipientes para Duas Espécies de Eucalipto}
 \format{Um \code{data.frame} com 24 observações e 4 variáveis, em que
+
 \describe{
 
 \item{\code{recipie}}{São os níveis de recipiente estudados: SPP -
-    saco plático pequeno, SPG - saco plástico grande e Lam -
+    saco plástico pequeno, SPG - saco plástico grande e Lam -
     laminado.}
 
 \item{\code{especie}}{São as espécies de Eucalipto: \emph{Eucalyptus

man/BanzattoQd5.3.1.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BanzattoQd5.3.1.R
+\name{BanzattoQd5.3.1}
+\alias{BanzattoQd5.3.1}
+\title{Produção de Café em Função de Adubação NPK}
+\format{Um \code{data.frame} com 48 observações e 5 variáveis.
+\describe{
+
+\item{\code{N}}{Variável numérica que indica ausência (0) ou
+    presença (1) de nitrogênio.}
+
+\item{\code{P}}{Variável numérica que indica ausência (0) ou
+    presença (1) de fósforo.}
+
+\item{\code{K}}{Variável numérica que indica ausência (0) ou
+    presença (1) de potássio.}
+
+\item{\code{bloco}}{Fator de 6 níveis nominais, presente para
+    controle local.}
+
+\item{\code{prod}}{Variável resposta contínua que é a produção de
+    café coco (kg ha\eqn{^{-1}}) obtida em cada uma das parcelas para
+    cada uma das combinações de N, P e K na adubação.}
+
+}}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.3.1,
+    pág. 113)
+}
+\description{
+Resultados de um experimento em arranjo fatorial triplo
+    2 \eqn{\times} 2 \eqn{\times} 2, instalado em delineamento de
+    blocos casualizados, para estudar o efeito da combinação de
+    nitrogênio, fósforo e potássio na produção de café coco.
+}
+\examples{
+
+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ênio (0 = ausente, 1 = presente)",
+       ylab = expression("Produção de café 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ção de café coco"~(kg~ha^{-1})))
+
+}
+\keyword{DBC}
+\keyword{FAT3}
+

man/BanzattoQd5.3.7.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BanzattoQd5.3.7.R
+\name{BanzattoQd5.3.7}
+\alias{BanzattoQd5.3.7}
+\title{Eficiência na Utilização de P por Cultivares de trigo}
+\format{Um \code{data.frame} com 48 observações e 5 variáveis.
+\describe{
+
+\item{\code{cult}}{Cultivares de trigo usadas no experimento: BR 20
+    Guató - tolerante ao alumínio, BR 36 Ianomami - sensível ao
+    alumínio, BR 40 Tuiúca - moderadamente sensível ao alumínio.}
+
+\item{\code{calag}}{Quantidade aplicada de calcário feita para
+    correção da acidez do solo (calagem): 0 e 4,4 ton ha\eqn{^{-1}}.}
+
+\item{\code{P}}{Quantidade aplicada de fósforo: 0 e 87 mg de P por kg
+    de solo.}
+
+\item{\code{rept}}{Identifica a repetição de cada cela experimental.}
+
+\item{\code{efic}}{Variável resposta que a eficiência na utilização
+    do fósforo, dado pelo quociente da massa seca da parte aérea
+    produzida pela quantidade de fósforo absorvida pelas plantas.}
+
+}}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.3.7,
+    pág. 120)
+}
+\description{
+Experimento em delineamento inteiramente casualizado que
+    avaliou o efeito a eficiência na utilização de fósforo por três
+    cultivares de trigo cultivadas em solo com e sem calagem.
+}
+\examples{
+
+library(lattice)
+
+data(BanzattoQd5.3.7)
+
+addmargins(with(BanzattoQd5.3.7,
+                tapply(X = efic,
+                       INDEX = list(interaction(cult, calag, P),
+                                    rept),
+                       FUN = sum)))
+
+xyplot(efic ~ factor(P) | cult, data = BanzattoQd5.3.7,
+       groups = calag, type = c("p", "a"),
+       layout = c(NA, 1), jitter.x = TRUE,
+       auto.key = list(title = expression("Calagem"~(ton~ha^{-1})),
+                       cex.title = 1, columns = 2),
+       xlab = expression("Fósforo"~(mg~kg^{-1}~de~solo)),
+       ylab = expression("Eficiência no uso do Fósforo"))
+
+}
+\keyword{DIC}
+\keyword{FAT3}
+

man/BanzattoQd5.5.1.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/BanzattoQd5.5.1.R
+\name{BanzattoQd5.5.1}
+\alias{BanzattoQd5.5.1}
+\title{Adubação Mineral no Milho com Uso de Confundimento}
+\format{Um \code{data.frame} com 27 observações e 4 variáveis, em que
+    \describe{
+
+\item{\code{N}}{Níveis codificados de nitrogênio (N) que representam
+    0, 30 e 60 kg ha\eqn{^{-1}}. A fonte do N é o sulfato de amônio
+    (20\% de N).}
+
+\item{\code{P}}{Níveis codificados de fósforo (P) que representam 0,
+    30 e 60 kg ha\eqn{^{-1}}. A fonte do P é o superfosfato simples
+    (18\% de P\eqn{_{2}}O\eqn{_{5}}).}
+
+\item{\code{K}}{Níveis codificados de potássio (K) que representam 0,
+    30 e 60 kg ha\eqn{^{-1}}. A fonte do K é o cloreto de potássio
+    (60\% de K\eqn{_{2}}O).}
+
+\item{\code{bloc}}{Fator de níveis nominais que identifica os
+    blocos.}
+
+\item{\code{prod}}{Variável resposta observada que é a produção de
+    grãos de milho (kg ha\eqn{^{-1}}).}
+
+}
+
+Cada parcela foi constituída de 6 linhas de plantio com 10 metros de
+comprimento, num total de 60 m\eqn{^{2}} e, como área útil, foram
+consideradas as 4 linhas centrais com 8 metros de comprimento (por
+desconsiderar 1 m em cada extremidade), perfazendo 32 m\eqn{^{2}}. O
+híbrido de milho utilizado foi o HMD-7974.}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.5.1,
+    pág. 131)
+
+Vilalta, O. A. (1972). Avaliação da produção de milho (\emph{Zea
+    mays} L.) em função da adubação NPK em um latossolo
+    vermelho-escuro -- fase arenosa. Trabalho de Conclusão de Curso
+    (Graduação em Agronomia). Faculdade de Ciências Agrárias e
+    Veterinárias, Universidade Estadual Paulista, Jaboticabal, SP.
+}
+\description{
+Experimento realizado em Jaboticabal - SP por Vilalta
+    (1972) que, com um arranjo fatorial triplo, estudou a combinação
+    de nitrogênio, fósforo e potássio, cada um com 3 níveis (27
+    combinações ao todo), sobre a produção de grãos de milho. Como o
+    número de tratamentos é 27, não seria viável, em termos de
+    controle local, ter blocos desse tamanho. Portanto, usou-se a
+    técnica de confundimento para distribuir os 27 tratamentos em 3
+    blocos de tamanho 9. A técnica foi usada para confundir dois
+    graus de liberdade da interação tripla com o efeito dos blocos. O
+    grupo de confundimento adotado foi o W.
+}
+\examples{
+
+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ássio (K)", cex.title = 1,
+                       columns = 3),
+       strip = strip.custom(strip.names = TRUE,
+                            var.name = "Fósforo (P)"),
+       xlab = "Nitrogênio (N)",
+       ylab = expression("Produção de grãos de milho"~(ka~ha^{-1})))
+
+}
+\keyword{DBC}
+\keyword{FAT3}
+\keyword{confundimento}
+