Realiza correções

R/PaulinoTb2.1b.R

 #' @name PaulinoTb2.1b
-#' @title Força Eleitoral de uma Região com Número de Entrevistas 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 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 pessoas a entrevistar e
-#'     selecioná-las de um modo aleatório.
+#' @title Desempenho Eleitoral do Candidato em uma Região com Número de
+#'     Entrevistas 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 N
+#'     de pessoas a entrevistar e selecioná-las de um modo aleatório.
 #' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
 #'
 #' \describe{
@@ -15,10 +15,10 @@
 #' \item{\code{opin}}{Opinião do entrevistado em relação ao candidato
 #'     (favorável ou desfavorável).}
 #'
-#' \item{\code{faixa}}{Fixa etária do entrevistado.}
+#' \item{\code{faixa}}{Fixa etária do entrevistado (< 40 anos e > 39
+#'     anos).}
 #'
-#' \item{\code{freq}}{Frequências hipotéticas dos resultados do número
-#'     fixado de entrevistas.}
+#' \item{\code{freq}}{Frequências de entrevistas realizadas.}
 #'
 #' }
 #' @keywords contingência n-fixo
@@ -27,12 +27,14 @@
 #'     (Tabela 2.1b, pág. 21)
 #' @examples
 #' 
+#' data(PaulinoTb2.1b)
+#' 
 #' str(PaulinoTb2.1b)
 #'
 #' xt <- xtabs(freq ~ opin + faixa, data = PaulinoTb2.1b)
 #' xt
 #'
-#' mosaicplot(xt, main = NULL,
+#' mosaicplot(xt, main = NULL, cex.axis = 0.9,
 #'            xlab = "Opinião",
 #'            ylab = "Faixa etária")
 #'

data-raw/PaulinoTb2.1b.txt

 opin	faixa	freq
-favoravel	< 40	50
-favoravel	> 39	26
-desfavoravel	< 40	48
-desfavoravel	> 39	76
+favorável	< 40	50
+favorável	> 39	26
+desfavorável	< 40	48
+desfavorável	> 39	76

man/PaulinoTb2.1b.Rd

@@ -2,18 +2,19 @@
 % Please edit documentation in R/PaulinoTb2.1b.R
 \name{PaulinoTb2.1b}
 \alias{PaulinoTb2.1b}
-\title{Força Eleitoral de uma Região com Número de Entrevistas Fixo}
+\title{Desempenho Eleitoral do Candidato em uma Região com Número de
+    Entrevistas Fixo}
 \format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
 
 \describe{
 
 \item{\code{opin}}{Opinião do entrevistado em relação ao candidato
-    (favorável, desfavorável).}
+    (favorável ou desfavorável).}
 
-\item{\code{faixa}}{Fixa etária do entrevistado.}
+\item{\code{faixa}}{Fixa etária do entrevistado (< 40 anos e > 39
+    anos).}
 
-\item{\code{freq}}{Frequências hipotéticas dos resultados do número
-    fixado de entrevistas.}
+\item{\code{freq}}{Frequências de entrevistas realizadas.}
 
 }}
 \source{
@@ -22,23 +23,24 @@ Paulino, C. D., Singer, J. M. (2006). Análise de Dados
     (Tabela 2.1b, pág. 21)
 }
 \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 pessoas a entrevistar e
-    selecioná-las de um modo aleatório.
+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 N
+    de pessoas a entrevistar e selecioná-las de um modo aleatório.
 }
 \examples{
 
+data(PaulinoTb2.1b)
+
 str(PaulinoTb2.1b)
 
 xt <- xtabs(freq ~ opin + faixa, data = PaulinoTb2.1b)
 xt
 
-mosaicplot(xt, main = NULL,
+mosaicplot(xt, main = NULL, cex.axis = 0.9,
            xlab = "Opinião",
            ylab = "Faixa etária")