Adiciona tabela 6 de Costa.

R/CostaTb4.R

@@ -20,7 +20,7 @@
 #' }
 #' @keywords DIC
 #' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
-#'     ciências agrárias (Documentos 163). Seropédica: Embrapa
+#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
 #'     Agrobiologia. (pág. 58)
 #' @examples
 #'

R/CostaTb6.R

+#' @name CostaTb6
+#' @title Efeito da Cobertura Morta no Peso Seco de Bró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
+#'     expontâ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 brocólis.}
+#'
+#' }
+#' @keywords DBC
+#' @source Costa, J. R. (2003). Técnicas experimentais aplicadas às
+#'     ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
+#'     Agrobiologia. (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

data-raw/CostaTb6.txt

+cobert	bloco	peso
+sorgo	1	72.8
+crotalária	1	69
+milheto	1	45.3
+espontânea	1	66.5
+sorgo	2	58.3
+crotalária	2	64.1
+milheto	2	60.9
+espontânea	2	67.4
+sorgo	3	50.4
+crotalária	3	72.1
+milheto	3	67.2
+espontânea	3	59.3
+sorgo	4	51.6
+crotalária	4	73.6
+milheto	4	66.2
+espontânea	4	27.4
+sorgo	5	59
+crotalária	5	65
+milheto	5	52
+espontânea	5	39

man/CostaTb4.Rd

-% Generated by roxygen2: do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/CostaTb4.R
 \name{CostaTb4}
 \alias{CostaTb4}
@@ -19,7 +19,7 @@
 }}
 \source{
 Costa, J. R. (2003). Técnicas experimentais aplicadas às
-    ciências agrárias (Documentos 163). Seropédica: Embrapa
+    ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
     Agrobiologia. (pág. 58)
 }
 \description{
@@ -29,7 +29,6 @@ Resultados de um experimento conduzido em casa de
     unidade experimental (parcela) era um vaso com 3 plantas.
 }
 \examples{
-
 library(lattice)
 
 data(CostaTb4)
@@ -40,7 +39,6 @@ aggregate(mspa ~ varied,  data = CostaTb4,
 xyplot(mspa ~ varied, data = CostaTb4,
        xlab = "Variedade de cana-de-açúcar",
        ylab = expression(Massa~seca~de~parte~aérea~(g~parcela^{-1})))
-
 }
 \keyword{DIC}
 

man/CostaTb6.Rd

+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/CostaTb6.R
+\name{CostaTb6}
+\alias{CostaTb6}
+\title{Efeito da 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
+    expontâ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 brocólis.}
+
+}}
+\source{
+Costa, J. R. (2003). Técnicas experimentais aplicadas às
+    ciências agrárias (Documentos 163). Seropédica, RJ: Embrapa
+    Agrobiologia. (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.
+}
+\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))
+}
+\keyword{DBC}
+