Adiciona Tabela 5 (AndradeTb2.6).

R/AndradeTb2.6.R

+#' @name AndradeTb2.6
+#' @title Experimento de Cultura de Feijão de Vagem
+#' @description Experimento no qual um pesquisador está procurando
+#'     verificar se existe associação entre hábito de crescimento e
+#'     porte na cultura de feijão de vagem.
+#' @format Um \code{data.frame} com 50 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
+#'     crescimento, sendo: 3 = "indeterminado trepador"; 4 =
+#'     "indeterminado prostrado".}
+#'
+#' \item{\code{P}}{Fator de 3 níveis qualitativos que são os portes,
+#'     sendo: Tr = "trepador"; EB = "ereto na base"; Pr = "prostrado".}
+#'
+#' }
+#' @keywords AAS
+#' @source Estatística para as ciências agrárias e biológicas: com
+#'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+#'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+#'     2.6, pág. 74)
+#' @examples
+#'
+#' library(lattice)
+#' library(plyr)
+#'
+#' data(AndradeTb2.6)
+#' str(AndradeTb2.6)
+#'
+#' tb <- xtabs(~H+P, data= AndradeTb2.6)
+#'
+#' barplot(t(tb), names.arg = c("Prostrado", "Trepador"),
+#'         beside=TRUE,
+#'         space = c(0.2,1),
+#'         col = c("darkturquoise","lawngreen","blue"),
+#'         ylim = c(0, 30))
+#'
+#' legend("topleft",
+#'        legend = c("Eb", "Pr", "Tr"),
+#'        col = c("darkturquoise", "lawngreen","blue"),
+#'        pch = 8)
+#'
+NULL
\ No newline at end of file

data-raw/AndradeTb2.6.txt

+H	P
+4	Tr
+4	EB
+3	Pr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+3	EB
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+3	Pr
+3	Pr
+3	EB
+4	EB
+4	EB
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+3	Tr
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+4	Tr
+4	Pr
+4	Tr
+4	Pr
+3	Pr
+4	Tr
+3	Pr
+4	Pr
+3	Pr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+3	Pr
+3	Pr
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+4	Tr

man/AndradeEg2.1.Rd

@@ -16,8 +16,8 @@
 \source{
 Estatística para as ciências agrárias e biológicas: com
     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    1.1, pág. 37)
+    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Exemplo
+    2.1, pág. 60)
 }
 \description{
 Estudo do tipo de relacionamento entre a taxa de

man/AndradeTb1.2.Rd

@@ -20,7 +20,7 @@
 Estatística para as ciências agrárias e biológicas: com
     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    1.1, pág. 37)
+    1.2, pág. 40)
 }
 \description{
 Experimento que tem como objetivo verificar o

man/AndradeTb2.1.Rd

@@ -31,7 +31,7 @@
 Estatística para as ciências agrárias e biológicas: com
     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    1.1, pág. 37)
+    2.1, pág. 62)
 }
 \description{
 Um pesquisador instalou um experimento, na região de

man/AndradeTb2.6.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.6.R
+\name{AndradeTb2.6}
+\alias{AndradeTb2.6}
+\title{Experimento de Cultura de Feijão de Vagem}
+\format{Um \code{data.frame} com 50 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
+    crescimento, sendo: 3 = "indeterminado trepador"; 4 =
+    "indeterminado prostrado".}
+
+\item{\code{P}}{Fator de 3 níveis qualitativos que são os portes,
+    sendo: Tr = "trepador"; EB = "ereto na base"; Pr = "prostrado".}
+
+}}
+\source{
+Estatística para as ciências agrárias e biológicas: com
+    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+    2.6, pág. 74)
+}
+\description{
+Experimento no qual um pesquisador está procurando
+    verificar se existe associação entre hábito de crescimento e
+    porte na cultura de feijão de vagem.
+}
+\examples{
+
+library(lattice)
+library(plyr)
+
+data(AndradeTb2.6)
+str(AndradeTb2.6)
+
+tb <- xtabs(~H+P, data= AndradeTb2.6)
+
+barplot(t(tb), names.arg = c("Prostrado", "Trepador"),
+        beside=TRUE,
+        space = c(0.2,1),
+        col = c("darkturquoise","lawngreen","blue"),
+        ylim = c(0, 30))
+
+legend("topleft",
+       legend = c("Eb", "Pr", "Tr"),
+       col = c("darkturquoise", "lawngreen","blue"),
+       pch = 8)
+
+}
+\keyword{AAS}
+