diff --git a/R/AndradeEx8.9.R b/R/AndradeEx8.9.R
new file mode 100644
index 0000000000000000000000000000000000000000..f36fcd071dcd3c60ac49a23ab0fefd1139685a19
--- /dev/null
+++ b/R/AndradeEx8.9.R
@@ -0,0 +1,42 @@
+#' @name AndradeEx8.9
+#' @title Estudo da Quantidade de Proteínas após Operação
+#' @description Estudo sobre a possibilidade da quantidade de proteínas
+#'     totais no plasma, depois de determinada operação em portadores de
+#'     esquistossomose mansônica, ser diferente da quantidade de antes
+#'     da operação.
+#' @format Um \code{data.frame} com 17 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{paciente}}{Fator de 17 níveis qualitativos, que são
+#'     os pacientes sujeitos a operação.}
+#'
+#' \item{\code{periodo}}{Fator de 2 níveis qualitativos, que indica
+#'     o período (antes ou depois) em que foi coletada a quantidade de
+#'     proteínas totais no plasma.}
+#'
+#' \item{\code{prot}}{Quantidade de proteínas totais no plasma.}
+#'
+#' }
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+#'     9, pág. 408)
+#' @examples
+#'
+#' data(AndradeEx8.9)
+#' str(AndradeEx8.9)
+#'
+#' library(lattice)
+#' dotplot(jitter(prot) ~ paciente,
+#'         groups = periodo,
+#'         auto.key = list(title = "Período",
+#'                         cex.title = 1.1,
+#'                         columns = 2),
+#'         type = "o",
+#'         data = AndradeEx8.9,
+#'         xlab = "Paciente",
+#'         ylab = "Quantidade de Proteínas Totais no Plasma")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx8.9.txt b/data-raw/AndradeEx8.9.txt
new file mode 100644
index 0000000000000000000000000000000000000000..b65b9289599c6a862617e1b4d51650cfeb298edf
--- /dev/null
+++ b/data-raw/AndradeEx8.9.txt
@@ -0,0 +1,35 @@
+paciente	periodo	prot
+1	antes	6.9
+2	antes	7.8
+3	antes	6.6
+4	antes	5.9
+5	antes	7.8
+6	antes	6.4
+7	antes	8.8
+8	antes	7.3
+9	antes	8
+10	antes	8.6
+11	antes	7.7
+12	antes	7.9
+13	antes	8.7
+14	antes	5.8
+15	antes	9.2
+16	antes	9.3
+17	antes	8.9
+1	depois	6.9
+2	depois	8.6
+3	depois	8.7
+4	depois	7.3
+5	depois	7.8
+6	depois	8.2
+7	depois	9.3
+8	depois	7.3
+9	depois	7.6
+10	depois	7.8
+11	depois	7.6
+12	depois	7.8
+13	depois	8.1
+14	depois	6.8
+15	depois	8.3
+16	depois	10.2
+17	depois	9.1
diff --git a/data/AndradeEx8.9.rda b/data/AndradeEx8.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1204b570f4923c6ce6b5fa90aa3c08dbb351a872
Binary files /dev/null and b/data/AndradeEx8.9.rda differ
diff --git a/man/AndradeEx8.9.Rd b/man/AndradeEx8.9.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..87ab86034c5594b24e0b7d5a5999ac14a494fa5f
--- /dev/null
+++ b/man/AndradeEx8.9.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx8.9.R
+\name{AndradeEx8.9}
+\alias{AndradeEx8.9}
+\title{Estudo da Quantidade de Proteínas após Operação}
+\format{Um \code{data.frame} com 17 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{paciente}}{Fator de 17 níveis qualitativos, que são
+    os pacientes sujeitos a operação.}
+
+\item{\code{periodo}}{Fator de 2 níveis qualitativos, que indica
+    o período (antes ou depois) em que foi coletada a quantidade de
+    proteínas totais no plasma.}
+
+\item{\code{prot}}{Quantidade de proteínas totais no plasma.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+    9, pág. 408)
+}
+\description{
+Estudo sobre a possibilidade da quantidade de proteínas
+    totais no plasma, depois de determinada operação em portadores de
+    esquistossomose mansônica, ser diferente da quantidade de antes
+    da operação.
+}
+\examples{
+
+data(AndradeEx8.9)
+str(AndradeEx8.9)
+
+library(lattice)
+dotplot(jitter(prot) ~ paciente,
+        groups = periodo,
+        auto.key = list(title = "Período",
+                        cex.title = 1.1,
+                        columns = 2),
+        type = "o",
+        data = AndradeEx8.9,
+        xlab = "Paciente",
+        ylab = "Quantidade de Proteínas Totais no Plasma")
+
+}
+\keyword{AAS}
+