diff --git a/R/PaulinoEx9.30.R b/R/PaulinoEx9.30.R
new file mode 100644
index 0000000000000000000000000000000000000000..300d84f0f68a80339895c5c65b12cba7018e0bfe
--- /dev/null
+++ b/R/PaulinoEx9.30.R
@@ -0,0 +1,51 @@
+#' @name PaulinoEx9.30
+#' @title Avaliação de Políciais Militares
+#' @description Em um estudo sobre a avaliação de políciais militares
+#'     brancos por soldados americanos negros na Segunda Guerra Mundial,
+#'     os soldados do exército foram classificados segundo o nível
+#'     educacional, a atitude face à separação racial, a região de
+#'     naturalidade e a preferência oir missões de combate.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{educ}}{Nível educacional (só grade school, alguma high
+#'     school, high school completa).}
+#'
+#' \item{\code{sep}}{Atitude perante separação racial (não contra ou
+#'     contra).}
+#'
+#' \item{\code{ntur}}{Região de naturalidade (sul, norte).}
+#' 
+#' \item{\code{missao}}{Preferência por missão de combate (sim ou não).}
+#' 
+#' \item{\code{freq}}{Frequências observadas.}
+#'
+#' }
+#' @keywords TC dicotomica
+#' @source PAULINO; SINGER (2006), Exercício 9.30, pág. 344.
+#' @examples
+#' 
+#' data(PaulinoEx9.30)
+#'
+#' str(PaulinoEx9.30)
+#'
+#' xt <- xtabs(freq ~ ., data = PaulinoEx9.30)
+#' ftable(xt)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' useOuterStrips(
+#'     barchart(freq ~ educ | sep + natur, groups = missao,
+#'              horizontal = FALSE,
+#'              data = PaulinoEx9.30,
+#'              auto.key = list(space = "top", columns = 2,
+#'                              cex.title = 1, rectangles = TRUE,
+#'                              points = FALSE,
+#'                              title = "Preferência por missão"),
+#'              xlab = "Nível educacional",
+#'              ylab = "Frequência")
+#' )
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx9.30.txt b/data-raw/PaulinoEx9.30.txt
new file mode 100644
index 0000000000000000000000000000000000000000..28fabee0000fdbef2eec0c0060cd81ceda8385e4
--- /dev/null
+++ b/data-raw/PaulinoEx9.30.txt
@@ -0,0 +1,25 @@
+educ	sep	natur	missao	freq
+grade school	nao contra	sul	sim	2051
+grade school	nao contra	sul	nao	20738
+grade school	nao contra	norte	sim	518
+grade school	nao contra	norte	nao	3182
+grade school	contra	sul	sim	1050
+grade school	contra	sul	nao	7027
+grade school	contra	norte	sim	600
+grade school	contra	norte	nao	2558
+al. high school	nao contra	sul	sim	382
+al. high school	nao contra	sul	nao	2165
+al. high school	nao contra	norte	sim	320
+al. high school	nao contra	norte	nao	960
+al. high school	contra	sul	sim	349
+al. high school	contra	sul	nao	1832
+al. high school	contra	norte	sim	489
+al. high school	contra	norte	nao	1141
+high school com.	nao contra	sul	sim	351
+high school com.	nao contra	sul	nao	1714
+high school com.	nao contra	norte	sim	245
+high school com.	nao contra	norte	nao	630
+high school com.	contra	sul	sim	478
+high school com.	contra	sul	nao	1798
+high school com.	contra	norte	sim	609
+high school com.	contra	norte	nao	1256
diff --git a/data/PaulinoEx9.30.rda b/data/PaulinoEx9.30.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4ccf419581334d57f4c50e3a4fa45c75feee65fa
Binary files /dev/null and b/data/PaulinoEx9.30.rda differ
diff --git a/man/PaulinoEx9.30.Rd b/man/PaulinoEx9.30.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..ac036ec4b5a103a4458e716f0778999aa38f2099
--- /dev/null
+++ b/man/PaulinoEx9.30.Rd
@@ -0,0 +1,60 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx9.30.R
+\name{PaulinoEx9.30}
+\alias{PaulinoEx9.30}
+\title{Avaliação de Políciais Militares}
+\format{Um \code{data.frame} com 24 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{educ}}{Nível educacional (só grade school, alguma high
+    school, high school completa).}
+
+\item{\code{sep}}{Atitude perante separação racial (não contra ou
+    contra).}
+
+\item{\code{ntur}}{Região de naturalidade (sul, norte).}
+
+\item{\code{missao}}{Preferência por missão de combate (sim ou não).}
+
+\item{\code{freq}}{Frequências observadas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 9.30, pág. 344.
+}
+\description{
+Em um estudo sobre a avaliação de políciais militares
+    brancos por soldados americanos negros na Segunda Guerra Mundial,
+    os soldados do exército foram classificados segundo o nível
+    educacional, a atitude face à separação racial, a região de
+    naturalidade e a preferência oir missões de combate.
+}
+\examples{
+
+data(PaulinoEx9.30)
+
+str(PaulinoEx9.30)
+
+xt <- xtabs(freq ~ ., data = PaulinoEx9.30)
+ftable(xt)
+
+library(lattice)
+library(latticeExtra)
+
+useOuterStrips(
+    barchart(freq ~ educ | sep + natur, groups = missao,
+             horizontal = FALSE,
+             data = PaulinoEx9.30,
+             auto.key = list(space = "top", columns = 2,
+                             cex.title = 1, rectangles = TRUE,
+                             points = FALSE,
+                             title = "Preferência por missão"),
+             xlab = "Nível educacional",
+             ylab = "Frequência")
+)
+
+}
+\keyword{TC}
+\keyword{dicotomica}
+