From d7d5ff52b0815c9a9c8df7ca4197e9354ecd68b5 Mon Sep 17 00:00:00 2001
From: Jhenifer <jhenicaet@gmail.com>
Date: Fri, 3 Feb 2017 12:01:53 -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.1b.R | 28 +++++++++++++++-------------
data-raw/PaulinoTb2.1b.txt | 8 ++++----
data/PaulinoTb2.1b.rda | Bin 247 -> 257 bytes
man/PaulinoTb2.1b.Rd | 30 ++++++++++++++++--------------
4 files changed, 35 insertions(+), 31 deletions(-)
diff --git a/R/PaulinoTb2.1b.R b/R/PaulinoTb2.1b.R
index 090fe85a..5c39134b 100644
--- a/R/PaulinoTb2.1b.R
+++ b/R/PaulinoTb2.1b.R
@@ -1,13 +1,13 @@
#' @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")
#'
diff --git a/data-raw/PaulinoTb2.1b.txt b/data-raw/PaulinoTb2.1b.txt
index f5604ca6..cba94a46 100644
--- a/data-raw/PaulinoTb2.1b.txt
+++ b/data-raw/PaulinoTb2.1b.txt
@@ -1,5 +1,5 @@
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
diff --git a/data/PaulinoTb2.1b.rda b/data/PaulinoTb2.1b.rda
index 63f8e2e1c81b59513420a6439c9659a9e8315c4e..f60da9985008231953f5020d56971f44813d9ab2 100644
GIT binary patch
literal 257
zcmZ>Y%CIzaj8qGbe7Nb-PX>l9^;iBIc?dW#)~K?uggDr%|3BcspuoVvz`(kJ;l_+C
zQ;w?46}gU!uVhGjT(~uF@#O%imCF|}fPs)ou&)v4WMP3r27-$PzACh>lDL`W7cLum
zL@V3r$G@hNX7}v5{#50a+Z!?&8ij8=GwbPk^(&9wPVxweZV*nmA+@-*<V$9N!l9N+
z4i|0}XDpm>kefNb&mvfgdG6Y&7QVSHy<yzN+#8FMZ<i!|F218(y^Qb6GuHH<!WvB(
z-vlT9{cUh;^%3=+NwYK-Y+bfs!#2OdfJRPnPo6~+>KW~uLr*2X2q<$fW)l#8SgsP>
L%E>3Kt3Lq%*}H0^
literal 247
zcmZ>Y%CIzaj8qGb6n|vBf`MUc{ek~x9s&-GHL5HuArAKH{|`7YFtBc5xG~{MRwlo%
z`ifhP%dRlK%D7Om*p$b_<N~t;;{parUM3e$|6u<s!Yqs}w#vRzY*(73RvbI6`e0#<
zA@{sR@iL2kCYwB6*Jr**{25DH%A;Ma;=H@cFB$wj<*>AM4e!La(H0w4>y&jEEt%1J
z=8_`sGA*Mhr|2(E6C3VcSB&t_?zD>0jo2-&yRr1rKDB2TZtP_$_))VVwf&`}im3mE
z8TPF+lH(WF3e9Ajl&Rab#=vlkOjtpgZb5Wb|;9ee+8V`oa4|FK*pxRsN!PI*@Y
E0G;}0RsaA1
diff --git a/man/PaulinoTb2.1b.Rd b/man/PaulinoTb2.1b.Rd
index 8411c252..cd91099e 100644
--- a/man/PaulinoTb2.1b.Rd
+++ b/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")
--
GitLab