From 64c3e4a00bf625761b76c8ffd124bc39135aa526 Mon Sep 17 00:00:00 2001
From: Jhenifer <jhenicaet@gmail.com>
Date: Fri, 3 Feb 2017 12:15:25 -0200
Subject: [PATCH] =?UTF-8?q?Realiza=20corre=C3=A7=C3=B5es?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/PaulinoTb2.1c.R | 31 ++++++++++++++++++-------------
data-raw/PaulinoTb2.1c.txt | 8 ++++----
data/PaulinoTb2.1c.rda | Bin 249 -> 255 bytes
man/PaulinoTb2.1c.Rd | 31 ++++++++++++++++++-------------
4 files changed, 40 insertions(+), 30 deletions(-)
diff --git a/R/PaulinoTb2.1c.R b/R/PaulinoTb2.1c.R
index 9188abd3..86b6e873 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 99f92056..385141f1 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
GIT binary patch
literal 255
zcmZ>Y%CIzaj8qGbJm&Ux2Lr>F`YZp9JQy7qYgJhpLLBVX{~vH*P+;I-U|`+AaAU%i
zOvNpi18y~|`LgwUWL(Zl4lrD}Z~?R80tN;KCKs=)WEZ)~OgxSY4oOM}ab*2Cc6!pY
z&--JXc1MZ5D~Q(JK7HM8i=6WPIV=$;4{vG}Kewkoq*v^e)9OVGzRd|){Z;QiWQHhg
z<XqCYaLbE}!HP}d!TFD4w0IfMU7NynZ0F>si{x&xcC2a-PySH2YC+KJP3%@L4}H1!
zS*L079yR&uXUC1+iXHjlkiN|5)=Fn)^^Qk@jVwk^l1Cc;oNQV*cbB)1`j@sxPbUA<
Od(u^~P_d`?b^!psgmg#%
literal 249
zcmZ>Y%CIzaj8qGb%rdwq!oaY#{=k1T4@L*ZT2)qt5C?np{|6ix7+5zj+?a5Mi{Dp$
z#jVCyxxQ>|%~zzan%rt*cF160_GN3xV0M@&6ny3KSC*<?wl<E8DrbkP3C^JsH&gb6
zX!j`=Uh%&F%V3)E`dNGa7*uT7Ay}-gK9@^Bcjx;hWq-XKmbR|po%lN1!eF&dS%;pd
zA$R8zCuyIMlr1gmZ*#dZS8rGJ*}wYwvxEJcU4mm(Q&NBQ#;|Z*<zeW4s;n5Rtjjq0
zj#${cWq*7-zM4#0>{+}xT24lmvrn#|T=j~ANdRAp(Vgl4Uh_UVY5(Y*$8s(qUN`AO
F4FJ=5W>5eC
diff --git a/man/PaulinoTb2.1c.Rd b/man/PaulinoTb2.1c.Rd
index 27ca279d..69acf18b 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")
--
GitLab