diff --git a/.RData b/.RData
index b714bb07a77b4970c561afb2e538c6f5770ff71f..45cd2f855d373e395745763e033f564b649aeb41 100644
Binary files a/.RData and b/.RData differ
diff --git a/R/AndradeTb2.11.R b/R/AndradeTb2.11.R
new file mode 100644
index 0000000000000000000000000000000000000000..3826cd53af5adf10e90ed6f0ee85219e044bcb7f
--- /dev/null
+++ b/R/AndradeTb2.11.R
@@ -0,0 +1,42 @@
+#' @name AndradeTb2.11
+#' @title Experimento de Contagem de Plantas
+#' @description Experimento que tem por objetivo verificar se os
+#'     caracteres ciclo e virescência, de uma progênie da espécie "X",
+#'     segregam de forma independente.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ciclo}}{Fator de 2 níveis qualitativos que indica o
+#'     caractere ciclo (Tardio e Precoce).}
+#'
+#' \item{\code{vir}}{Fator de 3 níveis qualitativos que indica o
+#'     caractere virescência (Normal e Virescente).}
+#'
+#' \item{\code{cont}}{Contagem de plantas segregando para dois
+#'     caracteres numa progênie da espécie "X".}
+#'
+#' }
+#' @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.11, pág. 80)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.11)
+#' str(AndradeTb2.11)
+#'
+#' tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11)
+#'
+#' barplot(t(tb),
+#'         beside = TRUE,
+#'         legend.text = TRUE,
+#'         col = c("darkturquoise", "lawngreen"),
+#'         ylim = c(0, 3500),
+#'         xlab = "Ciclo",
+#'         ylab = "Contagem de Plantas")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.11.txt b/data-raw/AndradeTb2.11.txt
new file mode 100644
index 0000000000000000000000000000000000000000..def8b5c60c0c2d038b3ac46f4b2b45b07f8d2e07
--- /dev/null
+++ b/data-raw/AndradeTb2.11.txt
@@ -0,0 +1,5 @@
+ciclo	vir	cont
+tardio	normal	3470
+precoce	normal	1030
+tardio	virescente	910
+precoce	virescente	290
diff --git a/data/AndradeTb2.11.rda b/data/AndradeTb2.11.rda
new file mode 100644
index 0000000000000000000000000000000000000000..808977c5d404f6bdf6b966841d6cdd73e5833eb5
Binary files /dev/null and b/data/AndradeTb2.11.rda differ
diff --git a/man/AndradeTb2.11.Rd b/man/AndradeTb2.11.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..e51d7f375154496ac729dbf7c2443376a25b957c
--- /dev/null
+++ b/man/AndradeTb2.11.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.11.R
+\name{AndradeTb2.11}
+\alias{AndradeTb2.11}
+\title{Experimento de Contagem de Plantas}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{ciclo}}{Fator de 2 níveis qualitativos que indica o
+    caractere ciclo (Tardio e Precoce).}
+
+\item{\code{vir}}{Fator de 3 níveis qualitativos que indica o
+    caractere virescência (Normal e Virescente).}
+
+\item{\code{cont}}{Contagem de plantas segregando para dois
+    caracteres numa progênie da espécie "X".}
+
+}}
+\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.11, pág. 80)
+}
+\description{
+Experimento que tem por objetivo verificar se os
+    caracteres ciclo e virescência, de uma progênie da espécie "X",
+    segregam de forma independente.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeTb2.11)
+str(AndradeTb2.11)
+
+tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11)
+
+barplot(t(tb),
+        beside = TRUE,
+        legend.text = TRUE,
+        col = c("darkturquoise", "lawngreen"),
+        ylim = c(0, 3500),
+        xlab = "Ciclo",
+        ylab = "Contagem de Plantas")
+
+}
+\keyword{AAS}
+