diff --git a/R/PaulinoTb2.1c.R b/R/PaulinoTb2.1c.R
index 9188abd343896548a19473f6ea0790755a36eb1e..86b6e873848c3e1050ee142ad6143a34cda43439 100644
--- a/R/PaulinoTb2.1c.R
+++ b/R/PaulinoTb2.1c.R
@@ -1,13 +1,13 @@
 #' @name PaulinoTb2.1c
-#' @title Força Eleitoral com Número de Entrevistas para Cada Faixa
-#'     Etária Fixo
-#' @description Dados provenientes da realização de uma sondagem numa
-#'     determinada região a fim de se ter uma ideia da força eleitoral
-#'     de um determinado candidato presidencial nesse meio. Em
-#'     particular, pretendia-se saber se a atitude de apoio ao candidato
-#'     está ou não relacionada com a faixa etária da população dessa
-#'     região. Uma estratégia possível para tal sondagem é fixar
-#'     antecipadamente o número N de indivíduos de cada faixa etária.
+#' @title Desempenho Eleitoral do Candidato com Número de Entrevistas
+#'     para Cada Faixa Etária Fixo
+#' @description Dados hipotéticos provenientes da realização de sondagem
+#'     numa determinada região a fim de se ter ideia da força eleitoral
+#'     de determinado candidato presidencial. Em particular,
+#'     pretendia-se saber se a atitude de apoio ao condidato esteve ou
+#'     não relacionada com a faixa etária da população dessa região. Foi
+#'     considerado para tal sondagem, fixar antecipadamente o número de
+#'     indivíduos de cada faixa etária.
 #' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
 #'
 #' \describe{
@@ -15,10 +15,11 @@
 #' \item{\code{opin}}{Opinião do entrevistado em relação ao candidato
 #'     (favorável, desfavorável).}
 #'
-#' \item{\code{faixa}}{Faixa etária do entrevistado.}
+#' \item{\code{faixa}}{Faixa etária do entrevistado (< 40 anos e > 39
+#'     anos).}
 #'
-#' \item{\code{freq}}{Frequências hipotéticas dos resultados do número
-#'     de entrevistas fixado para cada faixa etária.}
+#' \item{\code{freq}}{Frequências de entrevistas realizadas para cada
+#'     faixa etária.}
 #'
 #' }
 #' @keywords contingência nj-fixo
@@ -27,10 +28,14 @@
 #'     (Tabela 2.1c, pág. 22)
 #' @examples
 #' 
+#' data(PaulinoTb2.1c)
+#' 
+#' str(PaulinoTb2.1c)
+#' 
 #' xt <- xtabs(freq ~ opin + faixa, data = PaulinoTb2.1c)
 #' xt
 #'
-#' mosaicplot(xt, main = NULL,
+#' mosaicplot(xt, main = NULL, cex.axis = 0.9,
 #'            xlab = "Opinião",
 #'            ylab = "Faixa etária")
 #'
diff --git a/data-raw/PaulinoTb2.1c.txt b/data-raw/PaulinoTb2.1c.txt
index 99f920561fb2bf83e79a897fcac6d310c17e94fe..385141f117ccd1a9043a6aeb1dd9c73df241c70e 100644
--- a/data-raw/PaulinoTb2.1c.txt
+++ b/data-raw/PaulinoTb2.1c.txt
@@ -1,5 +1,5 @@
 opin	faixa	freq
-favoravel	< 40	54
-favoravel	> 39	30
-desfavoravel	< 40	46
-desfavoravel	> 39	70
+favorável	< 40	54
+favorável	> 39	30
+desfavorável	< 40	46
+desfavorável	> 39	70
diff --git a/data/PaulinoTb2.1c.rda b/data/PaulinoTb2.1c.rda
index 2b02e5b8609a3df1895041cb1b9fb717cca24769..31c6439b1e604fb260df1bb24ca354e06fadb1f7 100644
Binary files a/data/PaulinoTb2.1c.rda and b/data/PaulinoTb2.1c.rda differ
diff --git a/man/PaulinoTb2.1c.Rd b/man/PaulinoTb2.1c.Rd
index 27ca279d2561cc2a15ae45a0393f90f9337198c0..69acf18b782501b2b794e1a7057c7ea407c4f720 100644
--- a/man/PaulinoTb2.1c.Rd
+++ b/man/PaulinoTb2.1c.Rd
@@ -2,8 +2,8 @@
 % Please edit documentation in R/PaulinoTb2.1c.R
 \name{PaulinoTb2.1c}
 \alias{PaulinoTb2.1c}
-\title{Força Eleitoral com Número de Entrevistas para Cada Faixa
-    Etária Fixo}
+\title{Desempenho Eleitoral do Candidato com Número de Entrevistas
+    para Cada Faixa Etária Fixo}
 \format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
 
 \describe{
@@ -11,10 +11,11 @@
 \item{\code{opin}}{Opinião do entrevistado em relação ao candidato
     (favorável, desfavorável).}
 
-\item{\code{faixa}}{Faixa etária do entrevistado.}
+\item{\code{faixa}}{Faixa etária do entrevistado (< 40 anos e > 39
+    anos).}
 
-\item{\code{freq}}{Frequências hipotéticas dos resultados do número
-    de entrevistas fixado para cada faixa etária.}
+\item{\code{freq}}{Frequências de entrevistas realizadas para cada
+    faixa etária.}
 
 }}
 \source{
@@ -23,20 +24,24 @@ Paulino, C. D., Singer, J. M. (2006). Análise de Dados
     (Tabela 2.1c, pág. 22)
 }
 \description{
-Dados provenientes da realização de uma sondagem numa
-    determinada região a fim de se ter uma ideia da força eleitoral
-    de um determinado candidato presidencial nesse meio. Em
-    particular, pretendia-se saber se a atitude de apoio ao condidato
-    está ou não relacionada com a faixa etária da população dessa
-    região. Uma estratégia possível para tal sondagem é fixar
-    antecipadamente o número N de indivíduos de cada faixa etária.
+Dados hipotéticos provenientes da realização de sondagem
+    numa determinada região a fim de se ter ideia da força eleitoral
+    de determinado candidato presidencial. Em particular,
+    pretendia-se saber se a atitude de apoio ao condidato esteve ou
+    não relacionada com a faixa etária da população dessa região. Foi
+    considerado para tal sondagem, fixar antecipadamente o número de
+    indivíduos de cada faixa etária.
 }
 \examples{
 
+data(PaulinoTb2.1c)
+
+str(PaulinoTb2.1c)
+
 xt <- xtabs(freq ~ opin + faixa, data = PaulinoTb2.1c)
 xt
 
-mosaicplot(xt, main = NULL,
+mosaicplot(xt, main = NULL, cex.axis = 0.9,
            xlab = "Opinião",
            ylab = "Faixa etária")