From 2b0ed34888482a6e6d5c5bd97d4c8eece94301aa Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Sat, 13 Aug 2016 21:14:35 -0300
Subject: [PATCH] =?UTF-8?q?Remove=20R/Costa*.R=20que=20n=C3=A3o=20haviam?=
 =?UTF-8?q?=20sido=20removidos.=20Adic=20Rd.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/CostaEx5.7.2.R    | 34 ----------------------------
 R/CostaEx5.7.3.R    | 35 -----------------------------
 R/CostaTb4.R        | 38 -------------------------------
 R/CostaTb6.R        | 43 ------------------------------------
 R/CostaTb7.R        | 51 ------------------------------------------
 R/CostaTb8.R        | 54 ---------------------------------------------
 man/CostaEx5.7.2.Rd | 22 +-----------------
 man/CostaEx5.7.3.Rd | 22 +-----------------
 man/CostaTb4.Rd     | 23 +------------------
 man/CostaTb6.Rd     | 26 +---------------------
 man/CostaTb7.Rd     | 32 +--------------------------
 man/CostaTb8.Rd     | 32 +--------------------------
 12 files changed, 6 insertions(+), 406 deletions(-)
 delete mode 100644 R/CostaEx5.7.2.R
 delete mode 100644 R/CostaEx5.7.3.R
 delete mode 100644 R/CostaTb4.R
 delete mode 100644 R/CostaTb6.R
 delete mode 100644 R/CostaTb7.R
 delete mode 100644 R/CostaTb8.R

diff --git a/R/CostaEx5.7.2.R b/R/CostaEx5.7.2.R
deleted file mode 100644
index e798758d..00000000
--- a/R/CostaEx5.7.2.R
+++ /dev/null
@@ -1,34 +0,0 @@
-#' @name CostaEx5.7.2
-#' @title Densidade do Solo ao Longo do Perfil em Zonas de Compacta\enc{çã}{ca}o
-#' @description Os dados são resultados de um estudo feito em zonas de
-#'     compactação e referem-se a valores de densidade do solo em
-#'     amostras retiradas de diferentes profundidades no perfil do solo.
-#' @format Um \code{data.frame} com 10 observações e 2 variáveis.
-#'
-#' \describe{
-#'
-#' \item{\code{prof}}{Variável métrica que representa a profundidade
-#'     (cm), no perfil do solo, de onde a amostra de solo foi retirada.}
-#'
-#' \item{\code{dens}}{Densidade do solo (g cm\eqn{^{-3}}) determinada na
-#'     amostra retirada do perfil do solo.}
-#'
-#' }
-#' @keywords TODO
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Exemplo 5.7.2.1, pág. 90)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(CostaEx5.7.2)
-#'
-#' str(CostaEx5.7.2)
-#'
-#' xyplot(dens ~ prof, data = CostaEx5.7.2,
-#'        type = c("p", "smooth", "g"),
-#'        xlab = expression("Profundidade"~(cm)),
-#'        ylab = expression("Densidade do solo"~(g~cm^{-3})))
-#'
-NULL
diff --git a/R/CostaEx5.7.3.R b/R/CostaEx5.7.3.R
deleted file mode 100644
index d145fcd8..00000000
--- a/R/CostaEx5.7.3.R
+++ /dev/null
@@ -1,35 +0,0 @@
-#' @name CostaEx5.7.3
-#' @title Efeito de Aduba\enc{çã}{ca}o Nitrogenada na Cultura do Milho
-#' @description Experimento instalado em delineamento inteiramente
-#'     casualizado que mediu o efeito da adubação nitrogenada na
-#'     produção de milho.
-#' @format Um \code{data.frame} com 15 observações e 3 variáveis.
-#'
-#' \describe{
-#'
-#' \item{\code{dose}}{Quantidade aplicada de adubação nitrogenada (kg
-#'     ha\eqn{^{-1}})}
-#'
-#' \item{\code{rept}}{Identifica as repetições de cada dose.}
-#'
-#' \item{\code{prod}}{Produção de milho (ton ha\eqn{^{-1}}).}
-#'
-#' }
-#' @keywords DIC RegSeg
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Exemplo 5.7.3.1, pág. 95)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(CostaEx5.7.3)
-#'
-#' str(CostaEx5.7.3)
-#'
-#' xyplot(prod ~ dose, data = CostaEx5.7.3,
-#'        type = c("p", "smooth", "g"),
-#'        xlab = expression("Dose de nitrogênio"~(kg~ha^{-1})),
-#'        ylab = expression("Produção de milho"~(ton~ha^{-1})))
-#'
-NULL
diff --git a/R/CostaTb4.R b/R/CostaTb4.R
deleted file mode 100644
index 933ca5be..00000000
--- a/R/CostaTb4.R
+++ /dev/null
@@ -1,38 +0,0 @@
-#' @name CostaTb4
-#' @title Massa Seca de Parte A\enc{é}{e}rea em Cana-de-a\enc{çú}{cu}car
-#' @description Resultados de um experimento conduzido em casa de
-#'     vegetação em delineamento inteiramente casualizado para avaliar a
-#'     massa seca de parte aérea de variedades de cana-de-açúcar. A
-#'     unidade experimental (parcela) era um vaso com 3 plantas.
-#' @format Um \code{data.frame} com 24 observações e 3 variáveis.
-#'
-#' \describe{
-#'
-#' \item{\code{varied}}{Fator nominal. Variedades de cana-de-açúcar.}
-#'
-#' \item{\code{rept}}{Inteiro que representa a unidade experimental em
-#'     cada variedade.}
-#'
-#' \item{\code{mspa}}{Variável resposta observada (contínua) que é a
-#'     massa seca de parte aérea de cada unidade experimental (g
-#'     parcela\eqn{^{-1}})}
-#'
-#' }
-#' @keywords DIC
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Tabela 4, pág. 58)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(CostaTb4)
-#'
-#' aggregate(mspa ~ varied,  data = CostaTb4,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
-#'
-#' xyplot(mspa ~ varied, data = CostaTb4,
-#'        xlab = "Variedade de cana-de-açúcar",
-#'        ylab = expression(Massa~seca~de~parte~aérea~(g~parcela^{-1})))
-#'
-NULL
diff --git a/R/CostaTb6.R b/R/CostaTb6.R
deleted file mode 100644
index c47096d8..00000000
--- a/R/CostaTb6.R
+++ /dev/null
@@ -1,43 +0,0 @@
-#' @name CostaTb6
-#' @title Efeito da Cobertura Morta no Peso Seco de Br\enc{ó}{o}colis
-#' @description Experimento instalado em delineamento de blocos
-#'     casualizados para estudar o efeito de tipos de cobertura morta no
-#'     peso seco de brócolis.
-#' @format Um \code{data.frame} com 20 observações e 3 variáveis.
-#' \describe{
-#'
-#' \item{\code{cobert}}{Fator nominal com níveis de cobertura morta
-#'     aplicada sobre o solo onde foi cultivado o brócolis: cobertura
-#'     com sorgo, com crotalária, com milheto e com a vegetação
-#'     espontânea.}
-#'
-#' \item{\code{bloco}}{Fator de níveis nominais considerado para
-#'     controle local, possivelmente os canteiros da horta, com 5
-#'     níveis.}
-#'
-#' \item{\code{peso}}{Variável resposta contínua, peso seco (g
-#'     parcela\eqn{^{-1}}) de brócolis.}
-#'
-#' }
-#' @keywords DBC
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Tabela 6 pág. 63)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(CostaTb6)
-#'
-#' with(CostaTb6, addmargins(tapply(X = peso,
-#'                                  INDEX = list(bloco, cobert),
-#'                                  FUN = sum)))
-#'
-#' xyplot(peso ~ cobert, data = CostaTb6,
-#'        groups = bloco, type = "b",
-#'        xlab = "Tipos de cobertura do solo",
-#'        ylab = expression("Peso seco de brócolis"~(g~parcela^{-1})),
-#'        auto.key = list(corner = c(0.1, 0.1), columns = 2,
-#'                        title = "Blocos", cex.title = 1))
-#'
-NULL
diff --git a/R/CostaTb7.R b/R/CostaTb7.R
deleted file mode 100644
index 573b145d..00000000
--- a/R/CostaTb7.R
+++ /dev/null
@@ -1,51 +0,0 @@
-#' @name CostaTb7
-#' @title Tipos de Inoculantes em Variedades de Cana-de-a\enc{çú}{cu}car
-#' @description Experimento fatorial que avaliou o peso do colmo de duas
-#'     variedades de cana-de-açúcar em resposta a três inoculantes
-#'     aplicados.
-#' @format Um \code{data.frame} com 24 observações e 4 variáveis.
-#'
-#' \describe{
-#'
-#' \item{\code{varied}}{Fator de níveis nominais que representa as
-#'     cultivares de cana-de-açúcar.}
-#'
-#' \item{\code{inocu}}{Fator de níveis nominais que representa os
-#'     inoculantes aplicados. Possivelmente são inóculos de bactérias
-#'     para fixação de nitrogênio.}
-#'
-#' \item{\code{bloco}}{Fator de níveis nominais que são os blocos do
-#'     experimento.}
-#'
-#' \item{\code{peso}}{Variável resposta contínua que é o peso de colmos,
-#'     em ton ha^{^{-1}}.}
-#'
-#' }
-#' @keywords DBC FAT2
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Tabela 7, pág. 68)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(CostaTb7)
-#'
-#' str(CostaTb7)
-#'
-#' ftable(with(CostaTb7,
-#'             tapply(peso,
-#'                    list(varied = varied,
-#'                         inocu = inocu,
-#'                         bloco = bloco),
-#'                    FUN = mean)))
-#'
-#' xyplot(peso ~ inocu, groups = varied, data = CostaTb7,
-#'        as.table = TRUE, layout = c(NA, 1),
-#'        jitter.x = TRUE, type = c("p", "a"),
-#'        auto.key = list(title = "Variedade de cana-de-açúcar",
-#'                        cex.title = 1, columns = 2),
-#'        xlab = "Tipo de inoculante",
-#'        ylab = expression("Peso de colmo"~(ton~ha^{-1})))
-#'
-NULL
diff --git a/R/CostaTb8.R b/R/CostaTb8.R
deleted file mode 100644
index f53b694f..00000000
--- a/R/CostaTb8.R
+++ /dev/null
@@ -1,54 +0,0 @@
-#' @name CostaTb8
-#' @title Irriga\enc{çã}{ca}o no Tamanho de Frutos de Variedades de Banana
-#' @description Experimento em parcelas subdivididas que estudou o
-#'     comprimento de frutos de variedades de banana em função do nível
-#'     de irrigação fornecido.
-#' @format Um \code{data.frame} com 32 observações e 4 variáveis.
-#'
-#' \describe{
-#'
-#' \item{\code{varied}}{Fator de níveis nominais que representa as
-#'     variedades de banana. As variedade de banana é o fator com níveis
-#'     casualizados nas parcelas dentro dos blocos.}
-#'
-#' \item{\code{irrig}}{Fator de níveis número que indica o número de
-#'     linhas de irrigação recebidas pelas plantas, 1 ou 2 linhas. A
-#'     irrigação é o fator casualizado depois das variedades e dentro
-#'     das parcelas que são de alguma das variedades. Portato, é o fator
-#'     com níveis nas subparcelas.}
-#'
-#' \item{\code{bloco}}{Fator de níveis nominais que representam os
-#'     blocos do experimento.}
-#'
-#' \item{\code{comp}}{Comprimento (cm) do fruto central da terceira
-#'     penca do cacho de bananas.}
-#'
-#' }
-#' @keywords DBC PS
-#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-#'     Agrobiologia. (Tabela 8, pág. 76)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(CostaTb8)
-#'
-#' str(CostaTb8)
-#'
-#' ftable(with(CostaTb8,
-#'             tapply(comp,
-#'                    list(varied = varied,
-#'                         irrig = irrig,
-#'                         bloco = bloco),
-#'                    FUN = mean)))
-#'
-#' xyplot(comp ~ varied, groups = irrig, data = CostaTb8,
-#'        as.table = TRUE, layout = c(NA, 1),
-#'        jitter.x = TRUE, type = c("p", "a"),
-#'        auto.key = list(title = "Linhas de irrigação",
-#'                        cex.title = 1, columns = 2),
-#'        xlab = "Variedade de banana",
-#'        ylab = expression("Comprimento do fruto"~(cm)))
-#'
-NULL
diff --git a/man/CostaEx5.7.2.Rd b/man/CostaEx5.7.2.Rd
index 8f219b72..4ab2a807 100644
--- a/man/CostaEx5.7.2.Rd
+++ b/man/CostaEx5.7.2.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Costa.R, R/CostaEx5.7.2.R
+% Please edit documentation in R/Costa.R
 \name{CostaEx5.7.2}
 \alias{CostaEx5.7.2}
 \title{Densidade do Solo ao Longo do Perfil em Zonas de Compacta\enc{çã}{ca}o}
@@ -15,37 +15,17 @@
 
 }}
 \source{
-Costa, J. R. (2003). Técnicas experimentais aplicadas às
-    ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-    Agrobiologia. (Exemplo 5.7.2.1, pág. 90)
-
 Costa, J. R. (2003). Técnicas experimentais aplicadas às
     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
     Agrobiologia. (Exemplo 5.7.2.1, pág. 90)
 }
 \description{
-Os dados são resultados de um estudo feito em zonas de
-    compactação e referem-se a valores de densidade do solo em
-    amostras retiradas de diferentes profundidades no perfil do solo.
-
 Os dados são resultados de um estudo feito em zonas de
     compactação e referem-se a valores de densidade do solo em
     amostras retiradas de diferentes profundidades no perfil do solo.
 }
 \examples{
 
-library(lattice)
-
-data(CostaEx5.7.2)
-
-str(CostaEx5.7.2)
-
-xyplot(dens ~ prof, data = CostaEx5.7.2,
-       type = c("p", "smooth", "g"),
-       xlab = expression("Profundidade"~(cm)),
-       ylab = expression("Densidade do solo"~(g~cm^{-3})))
-
-
 library(lattice)
 
 data(CostaEx5.7.2)
diff --git a/man/CostaEx5.7.3.Rd b/man/CostaEx5.7.3.Rd
index 5770d47c..2d67d759 100644
--- a/man/CostaEx5.7.3.Rd
+++ b/man/CostaEx5.7.3.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Costa.R, R/CostaEx5.7.3.R
+% Please edit documentation in R/Costa.R
 \name{CostaEx5.7.3}
 \alias{CostaEx5.7.3}
 \title{Efeito de Aduba\enc{çã}{ca}o Nitrogenada na Cultura do Milho}
@@ -16,37 +16,17 @@
 
 }}
 \source{
-Costa, J. R. (2003). Técnicas experimentais aplicadas às
-    ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-    Agrobiologia. (Exemplo 5.7.3.1, pág. 95)
-
 Costa, J. R. (2003). Técnicas experimentais aplicadas às
     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
     Agrobiologia. (Exemplo 5.7.3.1, pág. 95)
 }
 \description{
-Experimento instalado em delineamento inteiramente
-    casualizado que mediu o efeito da adubação nitrogenada na
-    produção de milho.
-
 Experimento instalado em delineamento inteiramente
     casualizado que mediu o efeito da adubação nitrogenada na
     produção de milho.
 }
 \examples{
 
-library(lattice)
-
-data(CostaEx5.7.3)
-
-str(CostaEx5.7.3)
-
-xyplot(prod ~ dose, data = CostaEx5.7.3,
-       type = c("p", "smooth", "g"),
-       xlab = expression("Dose de nitrogênio"~(kg~ha^{-1})),
-       ylab = expression("Produção de milho"~(ton~ha^{-1})))
-
-
 library(lattice)
 
 data(CostaEx5.7.3)
diff --git a/man/CostaTb4.Rd b/man/CostaTb4.Rd
index 922e43dc..f29c7d88 100644
--- a/man/CostaTb4.Rd
+++ b/man/CostaTb4.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Costa.R, R/CostaTb4.R
+% Please edit documentation in R/Costa.R
 \name{CostaTb4}
 \alias{CostaTb4}
 \title{Massa Seca de Parte A\enc{é}{e}rea em Cana-de-a\enc{çú}{cu}car}
@@ -18,20 +18,11 @@
 
 }}
 \source{
-Costa, J. R. (2003). Técnicas experimentais aplicadas às
-    ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-    Agrobiologia. (Tabela 4, pág. 58)
-
 Costa, J. R. (2003). Técnicas experimentais aplicadas às
     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
     Agrobiologia. (Tabela 4, pág. 58)
 }
 \description{
-Resultados de um experimento conduzido em casa de
-    vegetação em delineamento inteiramente casualizado para avaliar a
-    massa seca de parte aérea de variedades de cana-de-açúcar. A
-    unidade experimental (parcela) era um vaso com 3 plantas.
-
 Resultados de um experimento conduzido em casa de
     vegetação em delineamento inteiramente casualizado para avaliar a
     massa seca de parte aérea de variedades de cana-de-açúcar. A
@@ -39,18 +30,6 @@ Resultados de um experimento conduzido em casa de
 }
 \examples{
 
-library(lattice)
-
-data(CostaTb4)
-
-aggregate(mspa ~ varied,  data = CostaTb4,
-          FUN = function(x) { c(mean = mean(x), var = var(x)) })
-
-xyplot(mspa ~ varied, data = CostaTb4,
-       xlab = "Variedade de cana-de-açúcar",
-       ylab = expression(Massa~seca~de~parte~aérea~(g~parcela^{-1})))
-
-
 library(lattice)
 
 data(CostaTb4)
diff --git a/man/CostaTb6.Rd b/man/CostaTb6.Rd
index 856ef9ee..ecc865f2 100644
--- a/man/CostaTb6.Rd
+++ b/man/CostaTb6.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Costa.R, R/CostaTb6.R
+% Please edit documentation in R/Costa.R
 \name{CostaTb6}
 \alias{CostaTb6}
 \title{Efeito da Cobertura Morta no Peso Seco de Br\enc{ó}{o}colis}
@@ -20,41 +20,17 @@
 
 }}
 \source{
-Costa, J. R. (2003). Técnicas experimentais aplicadas às
-    ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-    Agrobiologia. (Tabela 6 pág. 63)
-
 Costa, J. R. (2003). Técnicas experimentais aplicadas às
     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
     Agrobiologia. (Tabela 6 pág. 63)
 }
 \description{
-Experimento instalado em delineamento de blocos
-    casualizados para estudar o efeito de tipos de cobertura morta no
-    peso seco de brócolis.
-
 Experimento instalado em delineamento de blocos
     casualizados para estudar o efeito de tipos de cobertura morta no
     peso seco de brócolis.
 }
 \examples{
 
-library(lattice)
-
-data(CostaTb6)
-
-with(CostaTb6, addmargins(tapply(X = peso,
-                                 INDEX = list(bloco, cobert),
-                                 FUN = sum)))
-
-xyplot(peso ~ cobert, data = CostaTb6,
-       groups = bloco, type = "b",
-       xlab = "Tipos de cobertura do solo",
-       ylab = expression("Peso seco de brócolis"~(g~parcela^{-1})),
-       auto.key = list(corner = c(0.1, 0.1), columns = 2,
-                       title = "Blocos", cex.title = 1))
-
-
 library(lattice)
 
 data(CostaTb6)
diff --git a/man/CostaTb7.Rd b/man/CostaTb7.Rd
index 40468987..1b3c53f4 100644
--- a/man/CostaTb7.Rd
+++ b/man/CostaTb7.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Costa.R, R/CostaTb7.R
+% Please edit documentation in R/Costa.R
 \name{CostaTb7}
 \alias{CostaTb7}
 \title{Tipos de Inoculantes em Variedades de Cana-de-a\enc{çú}{cu}car}
@@ -22,47 +22,17 @@
 
 }}
 \source{
-Costa, J. R. (2003). Técnicas experimentais aplicadas às
-    ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-    Agrobiologia. (Tabela 7, pág. 68)
-
 Costa, J. R. (2003). Técnicas experimentais aplicadas às
     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
     Agrobiologia. (Tabela 7, pág. 68)
 }
 \description{
-Experimento fatorial que avaliou o peso do colmo de duas
-    variedades de cana-de-açúcar em resposta a três inoculantes
-    aplicados.
-
 Experimento fatorial que avaliou o peso do colmo de duas
     variedades de cana-de-açúcar em resposta a três inoculantes
     aplicados.
 }
 \examples{
 
-library(lattice)
-
-data(CostaTb7)
-
-str(CostaTb7)
-
-ftable(with(CostaTb7,
-            tapply(peso,
-                   list(varied = varied,
-                        inocu = inocu,
-                        bloco = bloco),
-                   FUN = mean)))
-
-xyplot(peso ~ inocu, groups = varied, data = CostaTb7,
-       as.table = TRUE, layout = c(NA, 1),
-       jitter.x = TRUE, type = c("p", "a"),
-       auto.key = list(title = "Variedade de cana-de-açúcar",
-                       cex.title = 1, columns = 2),
-       xlab = "Tipo de inoculante",
-       ylab = expression("Peso de colmo"~(ton~ha^{-1})))
-
-
 library(lattice)
 
 data(CostaTb7)
diff --git a/man/CostaTb8.Rd b/man/CostaTb8.Rd
index 4e6213f0..2755356e 100644
--- a/man/CostaTb8.Rd
+++ b/man/CostaTb8.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/Costa.R, R/CostaTb8.R
+% Please edit documentation in R/Costa.R
 \name{CostaTb8}
 \alias{CostaTb8}
 \title{Irriga\enc{çã}{ca}o no Tamanho de Frutos de Variedades de Banana}
@@ -25,47 +25,17 @@
 
 }}
 \source{
-Costa, J. R. (2003). Técnicas experimentais aplicadas às
-    ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
-    Agrobiologia. (Tabela 8, pág. 76)
-
 Costa, J. R. (2003). Técnicas experimentais aplicadas às
     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
     Agrobiologia. (Tabela 8, pág. 76)
 }
 \description{
-Experimento em parcelas subdivididas que estudou o
-    comprimento de frutos de variedades de banana em função do nível
-    de irrigação fornecido.
-
 Experimento em parcelas subdivididas que estudou o
     comprimento de frutos de variedades de banana em função do nível
     de irrigação fornecido.
 }
 \examples{
 
-library(lattice)
-
-data(CostaTb8)
-
-str(CostaTb8)
-
-ftable(with(CostaTb8,
-            tapply(comp,
-                   list(varied = varied,
-                        irrig = irrig,
-                        bloco = bloco),
-                   FUN = mean)))
-
-xyplot(comp ~ varied, groups = irrig, data = CostaTb8,
-       as.table = TRUE, layout = c(NA, 1),
-       jitter.x = TRUE, type = c("p", "a"),
-       auto.key = list(title = "Linhas de irrigação",
-                       cex.title = 1, columns = 2),
-       xlab = "Variedade de banana",
-       ylab = expression("Comprimento do fruto"~(cm)))
-
-
 library(lattice)
 
 data(CostaTb8)
-- 
GitLab