diff --git a/R/PaulinoTb14.14.R b/R/PaulinoTb14.14.R
new file mode 100644
index 0000000000000000000000000000000000000000..1ae3c4513597c91efb1fdb15d0aedcf95b737e80
--- /dev/null
+++ b/R/PaulinoTb14.14.R
@@ -0,0 +1,45 @@
+#' @name PaulinoTb14.14
+#' @title Frequências de aprovação/reprovação de estudantes.
+#' @description Em uma avaliação do desempenho de 203 estudantes 
+#'     universitários a uma disciplina introdutória de Álgebra e 
+#'     Cálculo, os estudantes, agrupados segundo os quatro cursos em 
+#'     que estavam matriculados, foram alatoriamente dividios 
+#'     em dois grupos por curso, a cada um dos quais foi atribuído um 
+#'     de dois professores que leccionaram a mesma matéria, e submetidos 
+#'     ás mesmas provas de avaliação classificadas por um núcleo comum 
+#'     de examinadores. 
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{curso}}{Curso na qual os estudantes estavam matriculados.}
+#'
+#' \item{\code{prof}}{Professor que leccionou a matéria e foi designado 
+#'     a um dos grupos (A ou B).}
+#' 
+#' \item{\code{des}}{Desempenho na avaliação.}
+#' 
+#' \item{\code{freq}}{Frequência com os valores obtidos.}
+#'
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 14.7, pág. 508.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PaulinoTb14.14)
+#' 
+#' dados <- xtabs(freq ~ curso + prof + des, data = PaulinoTb14.14)
+#' barchart(dados, horizontal = FALSE,
+#'    stack = FALSE,
+#'    scales = list(x = list(labels = c("Bioquímica", 
+#'    "Ciências Biológicas", "Ciências Químicas", 
+#'    "Química Farmacêutica"))),
+#'    ylab = "Frequência",
+#'    xlab = "Grupos",
+#'    main = "Frequências de aprovação/reprovação de estudantes.",
+#'    auto.key = list(corner = c(0.96, 0.90), 
+#'    text = c("Aprovado", "Reprovado")))
+#'
+NULL
diff --git a/data-raw/PaulinoTb14.14.txt b/data-raw/PaulinoTb14.14.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e3177c66634ecce297c70d7822a5a31dfcd8d7e8
--- /dev/null
+++ b/data-raw/PaulinoTb14.14.txt
@@ -0,0 +1,17 @@
+curso	prof	des	freq
+Ciencias Quimicas	A	aprovado	8
+Ciencias Quimicas	A	reprovado	11
+Ciencias Quimicas	B	aprovado	11
+Ciencias Quimicas	B	reprovado	13
+Quimica farmaceutica	A	aprovado	10
+Quimica farmaceutica	A	reprovado	14
+Quimica farmaceutica	B	aprovado	13
+Quimica farmaceutica	B	reprovado	9
+Ciencias Biologicas	A	aprovado	19
+Ciencias Biologicas	A	reprovado	25
+Ciencias Biologicas	B	aprovado	20
+Ciencias Biologicas	B	reprovado	18
+Bioquimica	A	aprovado	14
+Bioquimica	A	reprovado	2
+Bioquimica	B	aprovado	12
+Bioquimica	B	reprovado	4
diff --git a/data/PaulinoTb14.14.rda b/data/PaulinoTb14.14.rda
new file mode 100644
index 0000000000000000000000000000000000000000..890d1c8b5d05ca3509eea972936ee5cb8d61bfb9
Binary files /dev/null and b/data/PaulinoTb14.14.rda differ
diff --git a/man/PaulinoTb14.14.Rd b/man/PaulinoTb14.14.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..564a4923ffb2d3c9805216b85f8348b8877a43a6
--- /dev/null
+++ b/man/PaulinoTb14.14.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb14.14.R
+\name{PaulinoTb14.14}
+\alias{PaulinoTb14.14}
+\title{Frequências de aprovação/reprovação de estudantes.}
+\format{Um \code{data.frame} com 16 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{curso}}{Curso na qual os estudantes estavam matriculados.}
+
+\item{\code{prof}}{Professor que leccionou a matéria e foi designado 
+    a um dos grupos (A ou B).}
+
+\item{\code{des}}{Desempenho na avaliação.}
+
+\item{\code{freq}}{Frequência com os valores obtidos.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 14.7, pág. 508.
+}
+\description{
+Em uma avaliação do desempenho de 203 estudantes 
+    universitários a uma disciplina introdutória de Álgebra e 
+    Cálculo, os estudantes, agrupados segundo os quatro cursos em 
+    que estavam matriculados, foram alatoriamente dividios 
+    em dois grupos por curso, a cada um dos quais foi atribuído um 
+    de dois professores que leccionaram a mesma matéria, e submetidos 
+    ás mesmas provas de avaliação classificadas por um núcleo comum 
+    de examinadores.
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoTb14.14)
+
+dados <- xtabs(freq ~ curso + prof + des, data = PaulinoTb14.14)
+barchart(dados, horizontal = FALSE,
+   stack = FALSE,
+   scales = list(x = list(labels = c("Bioquímica", 
+   "Ciências Biológicas", "Ciências Químicas", 
+   "Química Farmacêutica"))),
+   ylab = "Frequência",
+   xlab = "Grupos",
+   main = "Frequências de aprovação/reprovação de estudantes.",
+   auto.key = list(corner = c(0.96, 0.90), 
+   text = c("Aprovado", "Reprovado")))
+
+}
+\keyword{TC}
+