diff --git a/R/PaulinoTb2.1a.R b/R/PaulinoTb2.1a.R
index 5174d3fe00eba30c1f14ce30095e155d001fe61e..5c98004a02d9bfa00d5b6a62501fe3aedf4128fb 100644
--- a/R/PaulinoTb2.1a.R
+++ b/R/PaulinoTb2.1a.R
@@ -28,10 +28,14 @@
 #'     (Tabela 2.1a, pág. 20)
 #' @examples
 #' 
+#' data(PaulinoTb2.1a)
+#' 
+#' str(PaulinoTb2.1a)
+#' 
 #' xt <- xtabs(freq ~ opin + faixa, data = PaulinoTb2.1a)
 #' 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.1a.txt b/data-raw/PaulinoTb2.1a.txt
index 4f790221a3a32fd601511714ac12724104c651b4..7b8b3bfae9ce06ae2173e012a9d3eb8f80db0dd5 100644
--- a/data-raw/PaulinoTb2.1a.txt
+++ b/data-raw/PaulinoTb2.1a.txt
@@ -1,5 +1,5 @@
 opin	faixa	freq
-favoravel	< 40	43
-favoravel	> 39	25
-desfavoravel	< 40	41
-desfavoravel	> 39	70
+favorável	< 40	43
+favorável	> 39	25
+desfavorável	< 40	41
+desfavorável	> 39	70
diff --git a/data/PaulinoTb2.1a.rda b/data/PaulinoTb2.1a.rda
index a3cfab68d794a09342f0ea390c03433baf37f458..c7b2de4c778217c07cbc884814292bcad045ec1b 100644
Binary files a/data/PaulinoTb2.1a.rda and b/data/PaulinoTb2.1a.rda differ
diff --git a/man/PaulinoTb2.1a.Rd b/man/PaulinoTb2.1a.Rd
index 49bfbde198002f163d479450b6d5f81a5b33787e..1bed4a0031b69bcb6a2543b9bbac0fb818954b92 100644
--- a/man/PaulinoTb2.1a.Rd
+++ b/man/PaulinoTb2.1a.Rd
@@ -34,10 +34,14 @@ Dados hipotéticos provenientes da realização de sondagem
 }
 \examples{
 
+data(PaulinoTb2.1a)
+
+str(PaulinoTb2.1a)
+
 xt <- xtabs(freq ~ opin + faixa, data = PaulinoTb2.1a)
 xt
 
-mosaicplot(xt, main = NULL,
+mosaicplot(xt, main = NULL, cex.axis = 0.9,
            xlab = "Opinião",
            ylab = "Faixa etária")