From df592ca9d9d55f0cc2e1cf5a7ac441a811b72862 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 10 Oct 2016 16:12:43 -0300
Subject: [PATCH] Adiciona tabela 13.18 livro categoricos
---
R/PaulinoEx13.18.R | 41 +++++++++++++++++++++++++++++
data-raw/PaulinoEx13.18.txt | 51 ++++++++++++++++++++++++++++++++++++
data/PaulinoEx13.18.rda | Bin 0 -> 443 bytes
man/PaulinoEx13.18.Rd | 51 ++++++++++++++++++++++++++++++++++++
4 files changed, 143 insertions(+)
create mode 100644 R/PaulinoEx13.18.R
create mode 100644 data-raw/PaulinoEx13.18.txt
create mode 100644 data/PaulinoEx13.18.rda
create mode 100644 man/PaulinoEx13.18.Rd
diff --git a/R/PaulinoEx13.18.R b/R/PaulinoEx13.18.R
new file mode 100644
index 00000000..131c7a9c
--- /dev/null
+++ b/R/PaulinoEx13.18.R
@@ -0,0 +1,41 @@
+#' @name PaulinoEx13.18
+#' @title Frequências observadas numa sondagem eleitoral britânica.
+#' @description Os dados apresentados dizem respeito a concretização do
+#' presente cenário relacionada com dados de um sondagem eleitoral na
+#' Grã-Bretanha (apresentados em Foster e Smith - 1998), onde para
+#' cada entrevistado A, B e C representam o sexo, grupo social e
+#' intenção de voto categorizados.
+#' @format Um \code{data.frame} com 50 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{sex}}{Sexo do entrevistado.}
+#'
+#' \item{\code{gs}}{Grupo social do entrevistado.}
+#'
+#' \item{\code{iv}}{Intenção de voto do candidato.}
+#'
+#' \item{\code{freq}}{Frequências com os valores.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.18, pág. 489.
+#' @references Foster, J. J. e Smith, W. F. (1998). Model-based inference
+#' for categorical survey data subject to non-ignorable non-response,
+#' Journal of the Royal Statistical Society, B 60:57-70.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PaulinoEx13.18)
+#'
+#' dados <- xtabs(freq ~ sex + gs + iv, data = PaulinoEx13.18)
+#' barchart(dados, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("F", "M"))),
+#' ylab = "Frequência",
+#' main = "Frequências observadas numa sondagem eleitoral britânica.",
+#' auto.key = list(corner = c(0.90, 0.95),
+#' text = c("conservador", "democracia", "desconhecido", "outro",
+#' "trabalhista")))
+#'
+NULL
diff --git a/data-raw/PaulinoEx13.18.txt b/data-raw/PaulinoEx13.18.txt
new file mode 100644
index 00000000..09d7da2f
--- /dev/null
+++ b/data-raw/PaulinoEx13.18.txt
@@ -0,0 +1,51 @@
+sex gs iv freq
+M profissional liberal conservador 26
+M profissional liberal trabalhista 8
+M profissional liberal democracia 7
+M profissional liberal outro 0
+M profissional liberal desconhecido 11
+M profissional tecnico conservador 87
+M profissional tecnico trabalhista 37
+M profissional tecnico democracia 30
+M profissional tecnico outro 6
+M profissional tecnico desconhecido 64
+M trabalho qualificado conservador 66
+M trabalho qualificado trabalhista 77
+M trabalho qualificado democracia 23
+M trabalho qualificado outro 8
+M trabalho qualificado desconhecido 77
+M trabalho pouco qualificado conservador 14
+M trabalho pouco qualificado trabalhista 25
+M trabalho pouco qualificado democracia 15
+M trabalho pouco qualificado outro 1
+M trabalho pouco qualificado desconhecido 12
+M sem trabalho conservador 6
+M sem trabalho trabalhista 6
+M sem trabalho democracia 2
+M sem trabalho outro 0
+M sem trabalho desconhecido 7
+F profissional liberal conservador 1
+F profissional liberal trabalhista 1
+F profissional liberal democracia 0
+F profissional liberal outro 1
+F profissional liberal desconhecido 2
+F profissional tecnico conservador 63
+F profissional tecnico trabalhista 34
+F profissional tecnico democracia 32
+F profissional tecnico outro 2
+F profissional tecnico desconhecido 68
+F trabalho qualificado conservador 102
+F trabalho qualificado trabalhista 52
+F trabalho qualificado democracia 22
+F trabalho qualificado outro 4
+F trabalho qualificado desconhecido 77
+F trabalho pouco qualificado conservador 10
+F trabalho pouco qualificado trabalhista 32
+F trabalho pouco qualificado democracia 10
+F trabalho pouco qualificado outro 2
+F trabalho pouco qualificado desconhecido 38
+F sem trabalho conservador 20
+F sem trabalho trabalhista 25
+F sem trabalho democracia 8
+F sem trabalho outro 2
+F sem trabalho desconhecido 19
diff --git a/data/PaulinoEx13.18.rda b/data/PaulinoEx13.18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3897c088279bf485912543e7d1dea20c68b52af7
GIT binary patch
literal 443
zcmZ>Y%CIzaj8qGb{Ce+aH3L)T|0DnZpWhkGXyb65Dd2$p^Zy4N7#J8C7&kD^R0_zL
z<=JxaRe#pJS@WDKrTT+?S1xv7_GNrk9b&myO^rcKnaSipvtU!o0cDm>U!Pe<Y62;|
z3=9k=j0-Lv6?i1XGfhFniI;OpoKN1OI}9r}IIQhR4Lu#ExnytX6<)(-?^Z@RDsGH6
z*>E|ntHqCzp+aZIofYgXUjnwh4v^@7^i}6U@i88WwCP>PUoJPkdi~_;oKnUot8~M<
zta5ICc`O;bLVzWZSxKQucf}?nCBuRzr}dN%mzy*QEKd^EWw3km`@8)LyBixyd}GU0
zxt2`QS>VGEE}?c|ArGU8A=kELnF_w0`sRC1&XUUT?ToUUajSA!WcGRW)dv#41<sKE
zaH6H!c-da@JH-=T=x>~9-~ND)qp5n`9F7w|x6E>m-E8M8ecx%-&uC$lEIV-}-y4B#
zTsfQj1k`O(F8i#Vq<_BAKZKpx)KFmVp=TDG7m9z0nVY4bxFJBt$A6a&&yM7PBP<L~
z+ge(xbi60}*-PpkFfy64ELm%6&E&6r8hn}&ZEyaY3OrQd5dIT;QskkN^Y!YdZvb+g
By)Xa(
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx13.18.Rd b/man/PaulinoEx13.18.Rd
new file mode 100644
index 00000000..7ab075cb
--- /dev/null
+++ b/man/PaulinoEx13.18.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx13.18.R
+\name{PaulinoEx13.18}
+\alias{PaulinoEx13.18}
+\title{Frequências observadas numa sondagem eleitoral britânica.}
+\format{Um \code{data.frame} com 50 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{sex}}{Sexo do entrevistado.}
+
+\item{\code{gs}}{Grupo social do entrevistado.}
+
+\item{\code{iv}}{Intenção de voto do candidato.}
+
+\item{\code{freq}}{Frequências com os valores.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.18, pág. 489.
+}
+\description{
+Os dados apresentados dizem respeito a concretização do
+ presente cenário relacionada com dados de um sondagem eleitoral na
+ Grã-Bretanha (apresentados em Foster e Smith - 1998), onde para
+ cada entrevistado A, B e C representam o sexo, grupo social e
+ intenção de voto categorizados.
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoEx13.18)
+
+dados <- xtabs(freq ~ sex + gs + iv, data = PaulinoEx13.18)
+barchart(dados, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("F", "M"))),
+ ylab = "Frequência",
+ main = "Frequências observadas numa sondagem eleitoral britânica.",
+ auto.key = list(corner = c(0.90, 0.95),
+ text = c("conservador", "democracia", "desconhecido", "outro",
+ "trabalhista")))
+
+}
+\references{
+Foster, J. J. e Smith, W. F. (1998). Model-based inference
+ for categorical survey data subject to non-ignorable non-response,
+ Journal of the Royal Statistical Society, B 60:57-70.
+}
+\keyword{TC}
+
--
GitLab