diff --git a/R/PaulinoEx10.1.R b/R/PaulinoEx10.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..b3c071f1dc1a2f6f8f94946f73a621513f76f47b
--- /dev/null
+++ b/R/PaulinoEx10.1.R
@@ -0,0 +1,38 @@
+#' @name PaulinoEx10.1
+#' @title Efeito da Radiação Gama na Formação de Múltiplos Micronúcleos
+#' @description Estudo em que o objetivo é avaliar o efeito da dose de
+#'     radiação gama (em centigrays) na formação de múltiplos
+#'     micronúcleos em células de indivíduos normais.
+#' @format Um \code{data.frame} com 8 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{dose}}{Dose de radiação gama (cGy).}
+#'
+#' \item{\code{freq}}{Frequência de células com múltiplos micronúcleos.}
+#'
+#' \item{\code{total}}{Total de células examinaddas.}
+#'
+#' }
+#' @keywords binomial
+#' @source PAULINO; SINGER (2006), Exercício 10.1, pág. 367.
+#' @examples
+#'
+#' data(PaulinoEx10.1)
+#'
+#' str(PaulinoEx10.1)
+#'
+#' barplot(PaulinoEx10.1$freq,
+#'         col = "darkturquoise",
+#'         names.arg = PaulinoEx10.1$dose,
+#'         ylim = c(0, 300),
+#'         xlab = "Dose de radiação",
+#'         ylab = "Frequência")
+#'
+#' library(lattice)
+#'
+#' xyplot(freq/total ~ dose, data = PaulinoEx10.1,
+#'        xlab = "Dose de radiação",
+#'        ylab = "Proporção de células")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx10.1.txt b/data-raw/PaulinoEx10.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..dc737dd964be403d684072afe385d6b493be6a69
--- /dev/null
+++ b/data-raw/PaulinoEx10.1.txt
@@ -0,0 +1,9 @@
+dose	freq	total
+0	1	2373
+20	6	2662
+50	25	1991
+100	47	2047
+200	82	2611
+300	207	2442
+400	254	2398
+500	285	1746
diff --git a/data/PaulinoEx10.1.rda b/data/PaulinoEx10.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..fe1ccb89e22110edabc259f775fd3c06068db422
Binary files /dev/null and b/data/PaulinoEx10.1.rda differ
diff --git a/man/PaulinoEx10.1.Rd b/man/PaulinoEx10.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..33257984d44d873efe23f597be2d480fcef80b57
--- /dev/null
+++ b/man/PaulinoEx10.1.Rd
@@ -0,0 +1,46 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx10.1.R
+\name{PaulinoEx10.1}
+\alias{PaulinoEx10.1}
+\title{Efeito da Radiação Gama na Formação de Múltiplos Micronúcleos}
+\format{Um \code{data.frame} com 8 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{dose}}{Dose de radiação gama (cGy).}
+
+\item{\code{freq}}{Frequência de células com múltiplos micronúcleos.}
+
+\item{\code{total}}{Total de células examinaddas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 10.1, pág. 367.
+}
+\description{
+Estudo em que o objetivo é avaliar o efeito da dose de
+    radiação gama (em centigrays) na formação de múltiplos
+    micronúcleos em células de indivíduos normais.
+}
+\examples{
+
+data(PaulinoEx10.1)
+
+str(PaulinoEx10.1)
+
+barplot(PaulinoEx10.1$freq,
+        col = "darkturquoise",
+        names.arg = PaulinoEx10.1$dose,
+        ylim = c(0, 300),
+        xlab = "Dose de radiação",
+        ylab = "Frequência")
+
+library(lattice)
+
+xyplot(freq/total ~ dose, data = PaulinoEx10.1,
+       xlab = "Dose de radiação",
+       ylab = "Proporção de células")
+
+}
+\keyword{binomial}
+