diff --git a/R/PaulinoTb2.1c.R b/R/PaulinoTb2.1c.R index 9188abd343896548a19473f6ea0790755a36eb1e..86b6e873848c3e1050ee142ad6143a34cda43439 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 99f920561fb2bf83e79a897fcac6d310c17e94fe..385141f117ccd1a9043a6aeb1dd9c73df241c70e 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 Binary files a/data/PaulinoTb2.1c.rda and b/data/PaulinoTb2.1c.rda differ diff --git a/man/PaulinoTb2.1c.Rd b/man/PaulinoTb2.1c.Rd index 27ca279d2561cc2a15ae45a0393f90f9337198c0..69acf18b782501b2b794e1a7057c7ea407c4f720 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")