Realiza pequena correções nos dados e nos exemplos

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")
 #'

data-raw/PaulinoTb2.1a.txt

 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

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")