Corrige os últimos datasets de Zimmermann.

DESCRIPTION

 Package: labestData
 Title: Conjuntos de Dados para Ensino de Estatística
-<<<<<<< HEAD
-Version: 0.0-1
-Date: 2016-04-05
-=======
-Version: 0.0-13.344
-Date: 2016-06-04
->>>>>>> 5568460d33f01093c420278afc63586af550856a
+Version: 0.0-15.387
+Date: 2016-06-19
 Authors@R: as.person(c(
     "PET Estatística UFPR <pet.estatistica.ufpr@gmail.com> [cre]",
     "Altamiro Antonio Basiewics <alfbasiewics@bol.com.br> [ctb]",
@@ -28,7 +23,7 @@ Description: O labestData é um projeto coletivo do PET Estatística UFPR
     do PET Estatística a desenvolver pacote R com versionamento Git e 2)
     contribuir com a comunidade científica ao reunir, organizar, manter
     e disponibilizar conjuntos de dados disponíveis em livros, páginas
-    de internet e arquivos pessoais. Nesta versão o pacote tem 344
+    de internet e arquivos pessoais. Nesta versão o pacote tem 387
     conjuntos de dados.
 License: GPL-3
 URL:
@@ -53,11 +48,7 @@ Suggests:
     reshape2,
     MASS,
     qcc,
-<<<<<<< HEAD
-    multcomp
-=======
     multcomp,
     vcd
->>>>>>> 5568460d33f01093c420278afc63586af550856a
 VignetteBuilder: knitr
 RoxygenNote: 5.0.1

R/ZimmermannTb16.1.R

 #' @name ZimmermannTb16.1
-#' @title Análise de Composição do Solo
-#' @description Dados de análise de solos aluviais, que apresentaram pH abaixo 
-#'     de sete, referentes à associação existente entre teor de matéria 
-#'     orgânica no solo (porcentagem) com disponibilidade de fósforo 
-#'     (mg kg\eqn{^{-1}}). A amostra tem apenas sete observações. 
-#'     
-#' @format Um \code{data.frame} com 7 observações e 7 variáveis
+#' @aliases ZimmermannTb16.2
+#' @title Análise de Composição do Solo Aluviais
+#' @description Dados de análise de solos aluviais, que apresentaram pH
+#'     abaixo de sete, referentes à associação existente entre teor de
+#'     matéria orgânica no solo (porcentagem) com disponibilidade de
+#'     fósforo (mg kg\eqn{^{-1}}). A amostra tem apenas sete
+#'     observações.
+#' @format Um \code{data.frame} com 7 observações e 7 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{origem}}{Fator de níveis nominais. Identifica a origem da
-#'     repetição.}
+#' \item{\code{origem}}{Fator de níveis nominais que identifica o local
+#'     de origem da amostra de solo.}
 #'
-#' \item{\code{MO}}{Variável de níveis numéricos. Identifica a quantidade de
-#'     matéria orgânica no solo (porcentagem).}
+#' \item{\code{mo}}{Matéria orgânica no solo (\%).}
 #'
-#' \item{\code{fosf}}{Variável de níveis numéricos. Identifica a disponibilidade
-#'     de fósforo no solo (mg kg\eqn{^{-1}}).}
+#' \item{\code{fosf}}{Disponibilidade de fósforo no solo (mg
+#'     kg\eqn{^{-1}}).}
 #'
-#' \item{\code{postoMO}}{Posto da váriavel MO.}
+#' \item{\code{pmo}}{Posto da váriavel \code{mo}.}
 #'
-#' \item{\code{postofosf}}{Posto da váriavel fosf.}
+#' \item{\code{pfosf}}{Posto da váriavel \code{fosf}.}
 #'
-#' \item{\code{Nc}}{Indica o número de pares concordantes.}
+#' \item{\code{Nc}}{Indica o número de pares de postos concordantes.}
 #'
-#' \item{\code{Nd}}{Indica o número de pares discordantes.}
+#' \item{\code{Nd}}{Indica o número de pares de postos discordantes.}
 #'
 #' }
 #' @keywords correlacao
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 16.1, pág 327)
+#'     Feijão. (Tabela 16.1, pág. 327)
 #' @examples
 #'
 #' data(ZimmermannTb16.1)
-#'
 #' str(ZimmermannTb16.1)
 #'
-#' mean(ZimmermannTb16.1$MO)
+#' mean(ZimmermannTb16.1$mo)
 #' mean(ZimmermannTb16.1$fosf)
 #'
-#' var(ZimmermannTb16.1$MO)
-#' var(ZimmermannTb16.1$fosf)
+#' with(ZimmermannTb16.1, {
+#'     cbind(pmo = rank(mo), pfosf = rank(fosf))
+#' })
+#'
 NULL

R/ZimmermannTb16.4.R

 #' @name ZimmermannTb16.4
-#' @title Hastes Mortas por Elasmopalpus lignosellus L.
+#' @title Hastes Mortas de Arroz por \emph{Elasmopalpus lignosellus} L.
 #' @description Dados de um experimento em delineamento inteiramente
-#'     casualizado para testar cultivares de arroz, em casa de vegetação,
-#'     três das quais (A, B e C) estão presentes na tabela. Os dados são
-#'     referentes ao número de hastes mortas por \emph{Elasmopalpus lignosellus}
-#'     por parcela. Cada cultivar foi repetida três vezes. 
-#'     
+#'     casualizado que estudou cultivares de arroz, em casa de
+#'     vegetação. Os dados são referentes ao número de hastes mortas por
+#'     \emph{Elasmopalpus lignosellus} por parcela. Cada cultivar foi
+#'     repetida três vezes.
 #' @format Um \code{data.frame} com 9 observações e 3 variáveis
 #'
 #' \describe{
 #'
-#' \item{\code{classe}}{Fator de níveis nominais. Identifica a cultivar da
-#'     repetição.}
+#' \item{\code{cult}}{Fator categórico que identifica as cultivares de
+#'     arroz.}
 #'
-#' \item{\code{mortas}}{número de hastes mortas por \emph{Elasmopalpus 
+#' \item{\code{nmort}}{Número de hastes mortas por \emph{Elasmopalpus
 #'     lignosellus} por parcela.}
 #'
-#' \item{\code{posto}}{Posto da váriavel mortas.}
+#' \item{\code{posto}}{Posto da váriavel \code{nmort}.}
 #'
 #' }
-#' @keywords DIC
+#' @keywords DIC contagem
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 16.4, pág 341)
+#'     Feijão. (Tabela 16.4, pág. 341)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb16.4)
-#'
 #' str(ZimmermannTb16.4)
 #'
-#' xyplot(mortas ~ classe, data = ZimmermannTb16.4,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Cultivar da Planta",
-#'        ylab = "Número de Hastes Mortas",
-#'        main = "Hastes Mortas por Elasmopalpus",
-#'        scales = list(x = list(rot = 90)))
+#' xyplot(nmort ~ cult, data = ZimmermannTb16.4,
+#'        xlab = "Cultivar",
+#'        ylab = "Número de hastes mortas")
+#'
+#' rank(ZimmermannTb16.4$nmort)
 #'
-#' aggregate(mortas ~ classe, data = ZimmermannTb16.4,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 NULL

R/ZimmermannTb3.5.R

 #' @name ZimmermannTb3.5
-#' @title Produção de Grãos de Arroz Irrigado 
-#' @description Dados de um estudo sobre adubação nitrogenada na cultura de 
-#'     arroz irrigado. Foram testadas quatros formas de aplicação do adubo:
-#'     1 = 80 kg/ha no plantio; 2 = 40 kg/ha 40 dias no plantio após a 
-#'     emergência (DAE); 3 = 13.2 kg/ha no plantio e 66.8 kg/ha aos 40 DAE; 
-#'     e 4 = 13.2 kg/ha no plantio e 33.4 kg/ha aos 40 e 60 DAE. O experimento
-#'     teve oito repetições.    
+#' @title Fracionamento da Adubação na Produção de Grãos de Arroz
+#'     Irrigado
+#' @description Dados de um estudo sobre adubação nitrogenada na cultura
+#'     do arroz irrigado. Foram testadas quatros formas de aplicação do
+#'     adubo fazendo o fracionamento das quantidades em diferentes
+#'     épocas. O experimento foi instalado em delineamento inteiramente
+#'     casualizado com 8 repetições.
 #' @format Um \code{data.frame} com 32 observações e 3 variáveis
 #'
 #' \describe{
 #'
-#' \item{\code{rept}}{Fator de níveis numericos. Identifica a repetição da
-#'    observação.}
+#' \item{\code{trat}}{Fator de níveis categóricos que representa as
+#'     formas de adubação: 1 = 80 kg/ha no plantio, 2 = 40 kg/ha 40 dias
+#'     no plantio após a emergência (DAE), 3 = 13.2 kg/ha no plantio e
+#'     66.8 kg/ha aos 40 DAE, e 4 = 13.2 kg/ha no plantio e 33.4 kg/ha
+#'     aos 40 e 60 DAE.}
 #'
-#' \item{\code{trat}}{Fator de níveis numéricos. Identifica o tratamento 
-#'     aplicado.}
+#' \item{\code{rept}}{Inteiro que identifica as repretições de uma forma
+#'     de adubação.}
 #'
-#' \item{\code{prod}}{Produção de grãos de arroz irrigado (ka ha\eqn{^{-1}}).}
+#' \item{\code{prod}}{Produção de grãos de arroz irrigado (ka
+#'     ha\eqn{^{-1}}).}
 #'
 #' }
 #' @keywords DIC
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 3.5, pág 55)
+#'     Feijão. (Tabela 3.5, pág. 54)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb3.5)
-#'
 #' str(ZimmermannTb3.5)
 #'
-#' xyplot(prod ~ rept | trat, data = ZimmermannTb3.5,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Repetições",
-#'        ylab = expression("Grãos de Arroz"~(kg~ha^{-1})),
-#'        main = "Produção de Grãos de Arroz",
-#'        scales = list(x = list(rot = 90)))
+#' # Quantidade[época].
+#' adub <- expression(80[0],
+#'                    40[0] + 40[40],
+#'                    13.2[0] + 66.8[40],
+#'                    13.2[0] + 33.4[40] + 33.4[60])
+#' xyplot(prod ~ adub, data = ZimmermannTb3.5,
+#'        type = c("p", "a"), jitter.x = TRUE,
+#'        xlab = "Formas de adubação",
+#'        ylab = expression("Produção de arroz"~(kg~ha^{-1})),
+#'        scales = list(x = list(labels = adub)))
+#'
+#' aggregate(prod ~ adub, data = ZimmermannTb3.5,
+#'           FUN = function(x) { c(mean = mean(x), sd = sd(x)) })
 #'
-#' aggregate(prod ~ trat, data = ZimmermannTb3.5,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 NULL

R/ZimmermannTb7.4.R

 #' @name ZimmermannTb7.4
 #' @title Produção de Grãos de Arroz em Ensaio Reticulado Retangular
-#' @description Dados de um estudo sobre competição de cultivares de arroz 
-#'     irrigado. O experimento foi conduzido em ensaio em reticulado retangular
-#'     5x6, com três repetições e três blocos (X, Y e Z). A unidade de 
-#'     medida é kg/ha. 
-#' @format Um \code{data.frame} com 90 observações e 3 variáveis
+#' @description Dados de um estudo sobre competição de cultivares e
+#'     linhagens de arroz irrigado quanto a produtividade. O experimento
+#'     foi conduzido em ensaio em reticulado retangular 5 \eqn{\times} 6
+#'     (blocos de tamanho 5, 6 blocos por repetição), com três
+#'     repetições.
+#' @format Um \code{data.frame} com 90 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{rept}}{Fator de níveis numericos. Identifica a repetição da
-#'    observação.}
+#' \item{\code{rept}}{Fator categórico que representa as repetições do
+#'     experimento. Cada repetições tem 6 blocos de tamanho 3,
+#'     perfazendo 30 parcelas, uma para cada uma das
+#'     cultivares/linhagens estudadas.}
 #'
-#' \item{\code{bloco}}{Fator de níveis nominais. Identifica o bloco da 
-#'     repetição.}
+#' \item{\code{bloco}}{Fator categórico que indentifica os blocos.}
 #'
-#' \item{\code{prod}}{Produção de grãos de arroz irrigado (ka ha\eqn{^{-1}}).}
+#' \item{\code{cult}}{Fator categórico que identifica as
+#'     cultivares/linhagens em competição.}
+#'
+#' \item{\code{prod}}{Produção de grãos de arroz irrigado (ka
+#'     ha\eqn{^{-1}}).}
 #'
 #' }
 #' @keywords reticulado
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 7.4, pág 140)
+#'     Feijão. (Tabela 7.4, pág. 140)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb7.4)
-#'
 #' str(ZimmermannTb7.4)
 #'
-#' xyplot(prod ~ rept, groups = bloco, data = ZimmermannTb7.4,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Repetições",
-#'        ylab = expression("Grãos de Arroz"~(kg~ha^{-1})),
-#'        main = "Reticulado Retangular 5x6",
-#'        scales = list(x = list(rot = 90)))
+#' xtabs(~bloc + rept, data = ZimmermannTb7.4)
+#' xtabs(~cult + rept, data = ZimmermannTb7.4)
+#'
+#' xyplot(prod ~ reorder(cult, prod),
+#'        data = ZimmermannTb7.4, type = c("p", "a"),
+#'        xlab = "Cultiavres",
+#'        ylab = expression("Produção de grãos de arroz"~(kg~ha^{-1})))
 #'
-#' aggregate(prod ~ bloco, data = ZimmermannTb7.4,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 NULL

R/ZimmermannTb8.5.R

 #' @name ZimmermannTb8.5
-#' @title Produção de Grãos de Feijão em BAF
-#' @description Dados de um estudo em desenho de blocos aumentados de Federer, 
-#'     com dezoito blocos, cada um com quatro testemunhas, tratamentos 1 a 4 e 
-#'     12 linhagens, resultando num total de 216 linhagens. Os dados 
-#'     referem-se a produção de grãos de feijão em kg/ha.
-#'     
-#' @format Um \code{data.frame} com 90 observações e 3 variáveis
+#' @title Produção de Grãos de Feijão em Delineamento de Blocos Aumentos
+#'     de Federer
+#' @description Dados de um estudo em desenho de blocos aumentados de
+#'     Federer, com total de dezoito blocos, cada um com quatro
+#'     testemunhas (1 a 4), e 12 linhagens, num total de 216
+#'     linhagens. Os dados são de apenas 10 dos blocos, contendo 9
+#'     parcelas em cada um, 4 delas sendo testemunhas e as 5 restantes
+#'     são linhagens. A resposta medida foi a produção de grãos de
+#'     feijão em kg ha\eqn{^{-1}}.
+#' @format Um \code{data.frame} com 90 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{bloco}}{Fator de níveis numéricos. Identifica o bloco da 
-#'     repetição.}
+#' \item{\code{bloc}}{Fator categórico que identifica os blocos do
+#'     experimento. Cada bloco tem tamanho 9.}
 #'
-#' \item{\code{trat}}{Fator de níveis numericos. Identifica o tratamento 
-#'     aplicado.}
+#' \item{\code{linh}}{Fator categórico que identifica as linhagens do
+#'     experimento. A linhagens identificas de 1 a 4 são as
+#'     testemunhas.}
 #'
 #' \item{\code{prod}}{Produção de grãos de feijão (ka ha\eqn{^{-1}}).}
 #'
@@ -21,22 +25,19 @@
 #' @keywords BAF
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 8.5, pág 158)
+#'     Feijão. (Tabela 8.5, pág. 158)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb8.5)
-#'
 #' str(ZimmermannTb8.5)
 #'
-#' xyplot(prod ~ bloco, data = ZimmermannTb8.5,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Blocos",
-#'        ylab = expression("Grãos de Feijão"~(kg~ha^{-1})),
-#'        main = "Blocos Aumentados de Federer",
-#'        scales = list(x = list(rot = 90)))
+#' xtabs(~linh, data = ZimmermannTb8.5)
+#' xtabs(~bloc, data = ZimmermannTb8.5)
+#'
+#' xyplot(prod ~ reorder(linh, prod), data = ZimmermannTb8.5,
+#'        xlab = "Linhagens (ordenadas)",
+#'        ylab = expression("Produção de grãos de feijão"~(kg~ha^{-1})))
 #'
-#' aggregate(prod ~ bloco, data = ZimmermannTb8.5,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 NULL

R/ZimmermannTb9.13.R

 #' @name ZimmermannTb9.13
 #' @title Matéria Seca de Feijão em Fatorial 3x3
-#' @description Dados de um estudo em ensaio fatorial 3x3, considerando 
-#'     três doses de densidade de solo e uma dose intermediária de 
-#'     microelementos de 1 grama por vaso de FTE-BR-12. Cada vaso continha três
-#'     plantas de arroz e, adicionalmente aos microelementos , foi feita 
-#'     adubação com 4g por vaso de formulado 5-30-15. Os dados são de matéria
-#'     seca de feijão, sem unidade de medida. 
-#'     
-#' @format Um \code{data.frame} com 27 observações e 4 variáveis
+#' @description Dados de um estudo em ensaio fatorial 3 \eqn{times} 3,
+#'     considerando três níveis de densidade de solo e três doses
+#'     microelementos. Cada vaso continha três plantas de arroz e,
+#'     adicionalmente aos microelementos, foi feita adubação com 4 g por
+#'     vaso de formulado 5-30-15. Os dados são de matéria seca de
+#'     feijão, em escala logarítmica. O experimento foi instalado em
+#'     delineamento de blocos casualizados.
+#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{rept}}{Fator de níveis numéricos. Identifica a repetição da 
-#'     observação.}
+#' \item{\code{micro}}{Fator de níveis métricos que são as doses de
+#'     microelementos (FTE-BR-12) aplicado ao solo (g vaso\eqn{^{-1}}).}
 #'
-#' \item{\code{micro}}{Fator de níveis numericos. Identifica os microelementos
-#'     presentes.}
+#' \item{\code{dens}}{Fator de níveis métricos que é densidade do solo
+#'     na qual foram cultivadas as plantas (g dm\eqn{^{-1}}).}
 #'
-#' \item{\code{dens}}{Fator de níveis numericos. Identifica a densidade do solo.}
+#' \item{\code{rept}}{Inteiro que identifica as repetições de cada cela
+#'     experimental.}
 #'
-#' \item{\code{imseca}}{Matéria seca de feijão.}
+#' \item{\code{imseca}}{Logaritimo decimal da matéria seca das plantas
+#'     de feijão.}
 #'
 #' }
 #' @keywords FAT fatorial
@@ -31,19 +33,16 @@
 #' library(lattice)
 #'
 #' data(ZimmermannTb9.13)
-#'
 #' str(ZimmermannTb9.13)
 #'
-#' xyplot(imseca ~ rept, data = ZimmermannTb9.13,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Repetições",
-#'        ylab = expression("Matéria Seca de Feijão"),
-#'        main = "Ensaio Fatorial 3x3",
-#'        scales = list(x = list(rot = 90)))
+#' xtabs(~micro + dens, data = ZimmermannTb9.13)
 #'
-#' aggregate(imseca ~ dens, data = ZimmermannTb9.13,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#' xyplot(lms ~ dens, data = ZimmermannTb9.13,
+#'        groups = micro, type = c("p", "a"),
+#'        auto.key = list(
+#'            title = expression("Microelementos"~(g~vaso^{-1})),
+#'            cex.title = 1.1, columns = 3),
+#'        xlab = expression("Densidade do solo"~(g~cm^{-3})),
+#'        ylab = "log da matéria seca")
 #'
-#' aggregate(imseca ~ micro, data = ZimmermannTb9.13,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 NULL

R/ZimmermannTb9.17.R

 #' @name ZimmermannTb9.17
-#' @title Produção de Grãos de Arroz em Fatorial 3x3
-#' @description Dados de um estudo em ensaio fatorial 3x3, referentes à 
-#'     produção de grãos de arroz, em kg/ha. O delineamento é o de blocos 
-#'     completos ao acaso, com três repetições. Foram testados os efeitos 
-#'     do nitrogênio, potássio e épocas de aplicação destes elementos na 
-#'     produtividade da soca do arroz irrigado. 
-#'     
-#' @format Um \code{data.frame} com 81 observações e 5 variáveis
+#' @title Época de Aplicação de NK na Produção de Grãos de Arroz
+#' @description Dados de um estudo em ensaio fatorial 3 \eqn{\times} 3,
+#'     referentes à produção de grãos de arroz, em kg ha\eqn{^{-1}}. O
+#'     delineamento é o de blocos completos ao acaso, com três
+#'     repetições. Foram testados os efeitos do nitrogênio, potássio e
+#'     épocas de aplicação destes elementos na produtividade da soca do
+#'     arroz irrigado.
+#' @format Um \code{data.frame} com 81 observações e 5 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{epoca}}{Fator de níveis numéricos. Identifica a época da 
-#'     observação.}
+#' \item{\code{epoc}}{Fator categórico que representa a época de
+#'     aplicação dos nutrientes.}
 #'
-#' \item{\code{pota}}{Fator de níveis numericos. Identifica o nível de 
-#'     potássio.}
+#' \item{\code{pota}}{Fator categórico que representa a dose de potássio
+#'     aplicada.}
 #'
-#' \item{\code{nitr}}{Fator de níveis numericos. Identifica o nível de 
-#'     nitrogênio.}
+#' \item{\code{nitr}}{Fator categórico que representa a dose de
+#'     nitrogênio aplicada.}
 #'
-#' \item{\code{rept}}{Fator de níveis numericos. Identifica a repetição da
-#'     observação.}
+#' \item{\code{bloc}}{Fator categórico que representa os blocos do
+#'     experimento. Os blocos tinham tamanho \eqn{3^3 = 27}.}
 #'
-#' \item{\code{prod}}{Produção de grão de arroz em (ka ha\eqn{^{-1}}).}
+#' \item{\code{prod}}{Produção de grão de arroz em (kg ha\eqn{^{-1}}).}
 #'
 #' }
-#' @keywords FAT fatorial
+#' @keywords FAT3
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 9.17, pág 182)
+#'     Feijão. (Tabela 9.17, pág. 182)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb9.17)
-#'
 #' str(ZimmermannTb9.17)
 #'
-#' xyplot(prod ~ rept, data = ZimmermannTb9.17,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Repetições",
-#'        ylab = expression("Grãos de Arroz"~(kg~ha^{-1})),
-#'        main = "Produção de Grãos de Arroz",
-#'        scales = list(x = list(rot = 90)))
+#' ftable(xtabs(~nitr + pota + epoc, data = ZimmermannTb9.17))
+#'
+#' xyplot(prod ~ nitr | epoc, data = ZimmermannTb9.17,
+#'        groups = pota, type = c("p", "a"),
+#'        as.table = TRUE,
+#'        auto.key = list(title = "Potássio", cex.title = 1.1,
+#'                        columns = 3),
+#'        strip = strip.custom(strip.names = TRUE,
+#'                             var.name = "Época",
+#'                             sep = " : "),
+#'        xlab = "Nitrogênio",
+#'        ylab = expression("Produção de grãos de arroz"~(kg~ha^{-1})))
 #'
-#' aggregate(prod ~ rept, data = ZimmermannTb9.17,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 NULL

R/ZimmermannTb9.26.R

 #' @name ZimmermannTb9.26
-#' @title Altura de Plantas em Fatorial 3x3x3
-#' @description Dados de um estudo em fatorial 3x3x3, sobre adubação 
+#' @title Época de Aplicação de NK na Altura de Plantas
+#' @description Dados de um estudo em fatorial \eqn{3^3}, sobre adubação
 #'     nitrogenada e potássica e suas épocas de aplicação. Os dados são
-#'     referentes a altura de plantas no cultivo da soca de arroz irrigado. 
-#'     Foi realizada apenas uma repetição. 
-#'     
-#' @format Um \code{data.frame} com 27 observações e 4 variáveis
+#'     referentes a altura de plantas no cultivo da soca de arroz
+#'     irrigado. Dados referen-se apenas aos valores do primeiro
+#'     bloco. Veja \code{\link{ZimmermannTb9.17}}.
+#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{epoca}}{Fator de níveis numéricos. Identifica a epoca da
-#'     repetição.}
+#' \item{\code{epoc}}{Fator categórico que representa a época de
+#'     aplicação dos nutrientes.}
 #'
-#' \item{\code{pota}}{Fator de níveis numéricos. Identifica o nível de potássio 
-#'     aplicado.}
+#' \item{\code{pota}}{Fator categórico que representa a dose de potássio
+#'     aplicada.}
 #'
-#' \item{\code{nitr}}{Fator de níveis numéricos. Identifica o nível de
-#'     nitrogênio aplicado.}
+#' \item{\code{nitr}}{Fator categórico que representa a dose de
+#'     nitrogênio aplicada.}
 #'
-#' \item{\code{altura}}{Alturas observadas das plantas.}
+#' \item{\code{alt}}{Altura das plantas (cm).}
 #'
 #' }
-#' @keywords FAT fatorial
+#' @keywords FAT3
 #' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
 #'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 9.26, pág 190)
+#'     Feijão. (Tabela 9.26, pág. 190)
 #' @examples
 #'
 #' library(lattice)
+#' library(latticeExtra)
 #'
 #' data(ZimmermannTb9.26)
-#'
 #' str(ZimmermannTb9.26)
 #'
-#' xyplot(altura ~ epoca, data = ZimmermannTb9.26,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Época",
-#'        ylab = "Altura das Plantas",
-#'        main = "Experimento Fatorial 3x3x3",
-#'        scales = list(x = list(rot = 90)))
+#' ftable(xtabs(~epoc + nitr + pota, data = ZimmermannTb9.26))
 #'
-#' aggregate(altura ~ pota, data = ZimmermannTb9.26,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#' useOuterStrips(xyplot(alt ~ nitr + pota | epoc, outer = TRUE,
+#'                       data = ZimmermannTb9.26,
+#'                       type = c("p", "a"),
+#'                       xlab = "Níveis de nitrogênio/potássio",
+#'                       ylab = "Altura das plantas (cm)"),
+#'                strip = strip.custom(
+#'                    strip.name = TRUE, var.name = "Época"),
+#'                strip.left = strip.custom(
+#'                    factor.levels = c("Nitrogênio", "Potássio")))
 #'
-#' aggregate(altura ~ nitr, data = ZimmermannTb9.26,
-#'         FUN = function(x) { c(mean = mean(x), var = var(x)) })
 NULL

data-raw/.~lock.PimentelTb8.3.1.csv#

-,petest,petest-G31M-ES2C,19.05.2016 17:04,file:///home/petest/.config/libreoffice/4;
\ No newline at end of file

data-raw/.~lock.PimentelTb9.3.1.csv#

-,petest,petest-G31M-ES2C,24.05.2016 15:19,file:///home/petest/.config/libreoffice/4;
\ No newline at end of file

data-raw/ZimmermannTb16.1.txt

-origem	MO	fosf	postoMO	postofosf	Nc	Nd
+origem	mo	fosf	pmo	pfosf	Nc	Nd
 picos	0.6	2	1	1	6	0
 luzi	0.9	16.6	2	4	3	2
 parn	1.1	3.4	3	2	4	0

data-raw/ZimmermannTb16.3.txt

-MO	tipo
-0.6	A
-0.7	B
-0.9	A
-0.9	B
-1.1	A
-1.2	A
-1.3	A
-1.4	A
-1.5	A
-1.5	B
-2.2	B
-3.7	B
-10.5	B
-16.8	B
+solo	mo
+A	0.6
+B	0.7
+A	0.9
+B	0.9
+A	1.1
+A	1.2
+A	1.3
+A	1.4
+A	1.5
+B	1.5
+B	2.2
+B	3.7
+B	10.5
+B	16.8

data-raw/ZimmermannTb16.4.txt

-classe	mortas	posto
+cult	nmort	porto
 A	12	4
 A	13	5
 A	15	7

data-raw/ZimmermannTb3.5.txt

-rept	trat	prod
+adub	rept	prod
 1	1	6276
-2	1	6035
-3	1	6086
-4	1	5594
-5	1	6321
-6	1	6746
-7	1	5751
-8	1	6191
-1	2	7199
+1	2	6035
+1	3	6086
+1	4	5594
+1	5	6321
+1	6	6746
+1	7	5751
+1	8	6191
+2	1	7199
 2	2	6890
-3	2	6586
-4	2	7149
-5	2	6657
-6	2	6210
-7	2	6128
-8	2	6393
-1	3	6457
-2	3	6174
+2	3	6586
+2	4	7149
+2	5	6657
+2	6	6210
+2	7	6128
+2	8	6393
+3	1	6457
+3	2	6174
 3	3	6612
-4	3	6087
-5	3	5797
-6	3	5865
-7	3	6498
-8	3	6486
-1	4	7202
-2	4	7173
-3	4	7169
+3	4	6087
+3	5	5797
+3	6	5865
+3	7	6498
+3	8	6486
+4	1	7202
+4	2	7173
+4	3	7169
 4	4	6590
-5	4	6444
-6	4	6740
-7	4	6370
-8	4	7270
+4	5	6444
+4	6	6740
+4	7	6370
+4	8	7270

data-raw/ZimmermannTb7.4.txt

-rept	bloco	prod
-5	X1	4256.32
-1	X1	4628.45
-4	X1	4889.94
-3	X1	3713.22
-2	X1	4602.3
-10	X2	5710.34
-9	X2	5974.71
-6	X2	4236.21
-8	X2	5622.13
-7	X2	5386.78
-15	X3	7164.94
-13	X3	4150.57
-12	X3	4994.54
-11	X3	5543.68
-14	X3	5017.24
-20	X4	4916.09
-17	X4	6439.66
-16	X4	5517.53
-18	X4	5517.53
-19	X4	5256.03
-21	X5	5612.07
-25	X5	5177.59
-23	X5	4758.62
-24	X5	5595.98
-22	X5	5151.44
-30	X6	6929.6
-29	X6	4445.4
-28	X6	7243.39
-26	X6	3516.09
-27	X6	4393.1
-21	Y1	5181.61
-11	Y1	4968.39
-26	Y1	4445.4
-6	Y1	5445.98
-16	Y1	5962.07
-1	Y2	4573.56
-22	Y2	5181.61
-12	Y2	5657.47
-17	Y2	6529.89
-27	Y2	4785.34
-7	Y3	6197.41
-28	Y3	7217.24
-23	Y3	4520.69
-2	Y3	5334.48
-18	Y3	5525.29
-24	Y4	6275.86
-8	Y4	5710.34
-3	Y4	5287.36
-29	Y4	5909.77
-13	Y4	6344.83
-14	Y5	6066.67
-30	Y5	7086.49
-19	Y5	6397.7
-4	Y5	3739.37
-9	Y5	5419.54
-10	Y6	5419.54
-25	Y6	5049.43
-15	Y6	5419.54
-5	Y6	3859.77
-20	Y6	5948.28
-7	Z1	5282.18
-27	Z1	5177.59
-13	Z1	4445.4
-25	Z1	6249.71
-19	Z1	6537.36
-29	Z2	5831.32
-14	Z2	5099.14
-16	Z2	6589.66
-23	Z2	4629.31
-5	Z2	4282.76
-1	Z3	6223.56
-21	Z3	5726.72
-30	Z3	6979.31
-8	Z3	6118.97
-20	Z3	5700.57
-22	Z4	4229.89
-2	Z4	4994.54
-26	Z4	3164.08
-15	Z4	6825
-9	Z4	5445.98
-3	Z5	3556.32
-11	Z5	4441.38
-17	Z5	5075.86
-10	Z5	4236.21
-28	Z5	7687.93
-12	Z6	5525.29
-6	Z6	5831.32
-24	Z6	5818.97
-18	Z6	5974.71
-4	Z6	4863.79
+rept	bloc	cult	prod
+X	X1	5	4256.32
+X	X1	1	4628.45
+X	X1	4	4889.94
+X	X1	3	3713.22
+X	X1	2	4602.3
+X	X2	10	5710.34
+X	X2	9	5974.71
+X	X2	6	4236.21
+X	X2	8	5622.13
+X	X2	7	5386.78
+X	X3	15	7164.94
+X	X3	13	4150.57
+X	X3	12	4994.54
+X	X3	11	5543.68
+X	X3	14	5017.24
+X	X4	20	4916.09
+X	X4	17	6439.66
+X	X4	16	5517.53
+X	X4	18	5517.53
+X	X4	19	5256.03
+X	X5	21	5612.07
+X	X5	25	5177.59
+X	X5	23	4758.62
+X	X5	24	5595.98
+X	X5	22	5151.44
+X	X6	30	6929.6
+X	X6	29	4445.4
+X	X6	28	7243.39
+X	X6	26	3516.09
+X	X6	27	4393.1
+Y	Y1	21	5181.61
+Y	Y1	11	4968.39
+Y	Y1	26	4445.4
+Y	Y1	6	5445.98
+Y	Y1	16	5962.07
+Y	Y2	1	4573.56
+Y	Y2	22	5181.61
+Y	Y2	12	5657.47
+Y	Y2	17	6529.89
+Y	Y2	27	4785.34
+Y	Y3	7	6197.41
+Y	Y3	28	7217.24
+Y	Y3	23	4520.69
+Y	Y3	2	5334.48
+Y	Y3	18	5525.29
+Y	Y4	24	6275.86
+Y	Y4	8	5710.34
+Y	Y4	3	5287.36
+Y	Y4	29	5909.77
+Y	Y4	13	6344.83
+Y	Y5	14	6066.67
+Y	Y5	30	7086.49
+Y	Y5	19	6397.7
+Y	Y5	4	3739.37
+Y	Y5	9	5419.54
+Y	Y6	10	5419.54
+Y	Y6	25	5049.43
+Y	Y6	15	5419.54
+Y	Y6	5	3859.77
+Y	Y6	20	5948.28
+Z	Z1	7	5282.18
+Z	Z1	27	5177.59
+Z	Z1	13	4445.4
+Z	Z1	25	6249.71
+Z	Z1	19	6537.36
+Z	Z2	29	5831.32
+Z	Z2	14	5099.14
+Z	Z2	16	6589.66
+Z	Z2	23	4629.31
+Z	Z2	5	4282.76
+Z	Z3	1	6223.56
+Z	Z3	21	5726.72
+Z	Z3	30	6979.31
+Z	Z3	8	6118.97
+Z	Z3	20	5700.57
+Z	Z4	22	4229.89
+Z	Z4	2	4994.54
+Z	Z4	26	3164.08
+Z	Z4	15	6825
+Z	Z4	9	5445.98
+Z	Z5	3	3556.32
+Z	Z5	11	4441.38
+Z	Z5	17	5075.86
+Z	Z5	10	4236.21
+Z	Z5	28	7687.93
+Z	Z6	12	5525.29
+Z	Z6	6	5831.32
+Z	Z6	24	5818.97
+Z	Z6	18	5974.71
+Z	Z6	4	4863.79

data-raw/ZimmermannTb8.5.txt

-bloco	trat	prod
+bloc	linh	prod
 1	9	761
-2	21	1536
-3	30	1052
-4	2	1113
-5	3	1959
-6	67	1414
-7	80	2213
-8	90	1145
-9	3	1894
-10	115	2356
 1	5	1516
-2	20	1888
-3	1	1695
-4	41	1357
-5	57	1503
-6	65	1279
-7	2	1930
-8	91	1194
-9	1	1695
-10	114	1450
 1	8	1692
-2	2	1838
-3	29	1080
-4	42	1219
-5	1	2085
-6	4	2077
-7	79	2653
-8	89	1920
-9	102	1885
-10	4	2191
 1	3	1563
-2	3	1818
-3	31	1443
-4	45	1135
-5	2	1454
-6	68	1586
-7	3	2054
-8	2	1415
-9	101	1433
-10	117	2351
 1	4	2019
-2	4	2210
-3	2	1472
-4	43	1076
-5	4	1837
-6	1	1846
-7	78	2361
-8	3	1589
-9	105	1803
-10	2	1687
 1	1	2003
-2	1	1866
-3	4	1745
-4	44	1384
-5	53	1873
-6	69	1846
-7	81	2361
-8	92	1589
-9	104	1803
-10	113	1687
 1	2	1671
-2	17	1786
-3	3	1680
-4	3	1516
-5	55	1243
-6	3	1775
-7	1	1849
-8	1	1840
-9	4	1975
-10	1	1757
 1	6	1245
-2	18	1756
-3	32	1123
-4	1	1773
-5	54	1212
-6	2	1728
-7	77	1885
-8	4	2062
-9	103	1879
-10	3	1879
 1	7	1203
+2	21	1536
+2	20	1888
+2	2	1838
+2	3	1818
+2	4	2210
+2	1	1866
+2	17	1786
+2	18	1756
 2	19	2037
+3	30	1052
+3	1	1695
+3	29	1080
+3	31	1443
+3	2	1472
+3	4	1745
+3	3	1680
+3	32	1123
 3	33	1632
+4	2	1113
+4	41	1357
+4	42	1219
+4	45	1135
+4	43	1076
+4	44	1384
+4	3	1516
+4	1	1773
 4	4	1881
+5	3	1959
+5	57	1503
+5	1	2085
+5	2	1454
+5	4	1837
+5	53	1873
+5	55	1243
+5	54	1212
 5	56	1509
+6	67	1414
+6	65	1279
+6	4	2077
+6	68	1586
+6	1	1846
+6	69	1956
+6	3	1775
+6	2	1728
 6	66	1546
+7	80	2213
+7	2	1930
+7	79	2653
+7	3	2054
+7	78	2361
+7	81	1812
+7	1	1849
+7	77	1885
 7	4	1835
+8	90	1145
+8	91	1194
+8	89	1920
+8	2	1415
+8	3	1589
+8	92	1138
+8	1	1840
+8	4	2062
 8	93	1418
+9	3	1894
+9	1	1695
+9	102	1885
+9	101	1433
+9	105	1803
+9	104	1451
+9	4	1975
+9	103	1879
 9	2	1675
+10	115	2356
+10	114	1450
+10	4	2191
+10	117	2351
+10	2	1687
+10	113	2180
+10	1	1757
+10	3	1879
 10	116	1605

data-raw/ZimmermannTb9.13.txt

-rept	micro	dens	imseca
-1	0	0	2.9638
-2	0	0	3.3324
-3	0	0	3.3927
-1	1	0	3.5515
-2	1	0	3.8698
-3	1	0	3.4713
-1	2	0	3.4014
-2	2	0	2.9494
-3	2	0	2.9638
-1	0	1	3.6425
-2	0	1	3.281
-3	0	1	3.7324
-1	1	1	3.4886
-2	1	1	3.4472
-3	1	1	3.5575
-1	2	1	3.2553
-2	2	1	3.7753
-3	2	1	3.8768
-1	0	2	3.6599
-2	0	2	3.8075
-3	0	2	3.9112
-1	1	2	3.7016
-2	1	2	3.5611
-3	1	2	3.1523
-1	2	2	3.6484
-2	2	2	3.5775
-3	2	2	3.659
+micro	dens	rept	lms
+0	1.12	1	2.9638
+0	1.12	2	3.3324
+0	1.12	3	3.3927
+1	1.12	1	3.5515
+1	1.12	2	3.8698
+1	1.12	3	3.4713
+2	1.12	1	3.4014
+2	1.12	2	2.9494
+2	1.12	3	2.9638
+0	1.26	1	3.6425
+0	1.26	2	3.281
+0	1.26	3	3.7324
+1	1.26	1	3.4886
+1	1.26	2	3.4472
+1	1.26	3	3.5575
+2	1.26	1	3.2553
+2	1.26	2	3.7753
+2	1.26	3	3.8768
+0	1.39	1	3.6599
+0	1.39	2	3.8075
+0	1.39	3	3.9112
+1	1.39	1	3.7016
+1	1.39	2	3.5611
+1	1.39	3	3.1523
+2	1.39	1	3.6484
+2	1.39	2	3.5775
+2	1.39	3	3.659

data-raw/ZimmermannTb9.17.txt

-epoca	pota	nitr	rept	prod
+epoc	pota	nitr	bloc	prod
 1	1	1	1	1066.31
 2	1	1	1	1022.19
 3	1	1	1	1137.93