From 812412f65a1be2f87c681bfdf9e1b8a3aa21050f Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Fri, 30 Sep 2016 15:19:36 -0300
Subject: [PATCH] =?UTF-8?q?Adiciona=20tabela=2013.14=20livro=20categ=C3=B3?=
=?UTF-8?q?ricos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/PaulinoTb13.14.R | 47 +++++++++++++++++++++++++++++
data-raw/PaulinoTb13.14.txt | 28 ++++++++++++++++++
data/PaulinoTb13.14.rda | Bin 0 -> 314 bytes
man/PaulinoTb13.14.Rd | 57 ++++++++++++++++++++++++++++++++++++
4 files changed, 132 insertions(+)
create mode 100644 R/PaulinoTb13.14.R
create mode 100644 data-raw/PaulinoTb13.14.txt
create mode 100644 data/PaulinoTb13.14.rda
create mode 100644 man/PaulinoTb13.14.Rd
diff --git a/R/PaulinoTb13.14.R b/R/PaulinoTb13.14.R
new file mode 100644
index 00000000..d2d0a798
--- /dev/null
+++ b/R/PaulinoTb13.14.R
@@ -0,0 +1,47 @@
+#' @name PaulinoTb13.14
+#' @title Frequencias observadas na sondagem de opiniao na Eslovenia.
+#' @description Os resultados referem-se a um inquérito de opinião na
+#' Eslovénia antes do referendo do 1990 que viria a conduzir a sua
+#' independência, retirados de Rubin, Stern e Vehovar (1995). Dizem
+#' respeito as respostas dadas as perguntas: é a favor da secessão
+#' eslovena da Jugoslávia? Tenciona votar no referendo? É a favor da
+#' independência da Eslovénia? O objetivo principal do inquérito
+#' consistiu em estimar a proporção da população que tencionaria
+#' votar no referendo a favor da independência.
+#' @format Um \code{data.frame} com 27 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{seca}}{Secessão A. Refere-se a pergunta feita: é a favor
+#' da secessão eslovena da Jugoslávia?}
+#'
+#' \item{\code{refb}}{Referendo B. Refere-se a pergunta feita:Tenciona
+#' votar no referendo?}
+#'
+#' \item{\code{indep}}{Independência. Refere-se a pergunta: é a favor da
+#' independência da Eslovénia?}
+#'
+#' \item{\code{freq}}{Frequência relaionando os valores.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.14, pág. 485.
+#' @references Rubin, D. B., Stern, H. S. e Vehovar, V. (1995). Handling
+#' "Don't know" survey responses, Journal of American Statistical
+#' Association 69:467-474.
+#' @examples
+#'
+#' library(lattice)
+#' data(PaulinoTb13.14)
+#'
+#' dados <- xtabs(freq ~ refb + seca + indep, data = PaulinoTb13.14)
+#' barchart(dados, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("sim","não", "omisso"))),
+#' ylab = "Frequência",
+#' xlab = "Grupos",
+#' main = "Frequências observadas na sondagem de opinião na Eslovénia.",
+#' auto.key = list(corner = c(0.90, 0.95),
+#' text = c("omisso", "não", "sim")))
+#'
+#'
+NULL
diff --git a/data-raw/PaulinoTb13.14.txt b/data-raw/PaulinoTb13.14.txt
new file mode 100644
index 00000000..76267d0f
--- /dev/null
+++ b/data-raw/PaulinoTb13.14.txt
@@ -0,0 +1,28 @@
+seca refb indep freq
+sim sim sim 1191
+sim sim nao 8
+sim sim omisso 21
+sim nao sim 8
+sim nao nao 0
+sim nao omisso 4
+nao omisso sim 107
+nao omisso nao 3
+nao omisso omisso 9
+nao sim sim 158
+nao sim nao 68
+nao sim omisso 29
+nao nao sim 7
+nao nao nao 14
+nao nao omisso 3
+nao omisso sim 18
+nao omisso nao 43
+nao omisso omisso 31
+omisso sim sim 90
+omisso sim nao 2
+omisso sim omisso 109
+omisso nao sim 1
+omisso nao nao 2
+omisso nao omisso 25
+omisso omisso sim 19
+omisso omisso nao 8
+omisso omisso omisso 96
diff --git a/data/PaulinoTb13.14.rda b/data/PaulinoTb13.14.rda
new file mode 100644
index 0000000000000000000000000000000000000000..74335e6ae365554410b1986f6614ce8d25de7593
GIT binary patch
literal 314
zcmZ>Y%CIzaj8qGbJS@lP#lSf4|HuEIqqG`0Z5UV>LIUdb|2H@=FfcMSFflMNZeSFa
zP!2M=RH2b1#c+XfncFPMl?$d^QDR)|zyJa+tEx1AO~^=LxNzCAgO_clq#1vLPlH2V
zppcPJQzEB=gJMeYR83{B4~%Cl54Yz|D-N8Jb$-S-sk8lsM+L9HUH(sDlImWY?H}0e
z_SpZOdbsRcZ^8cca|6sew4L^aNJ}JrSyrtlCYAB1NxP3h>;PZ-*UR(1)+I$9Td<AG
z#bJ%pBS(n|47-IUMl!O527I*Rap6f~^;#EezDLB=Ur)+hVRiY%wFl<rPKY+0)cx|d
zw_fsbwH^8<CwX0zJcWz;3p%`{cDArwXp}m#NKNRN$63p($`?#z3>RE%R*Zh^o6i(r
QY3Ki6yvWreU;-$t0P|IPY5)KL
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb13.14.Rd b/man/PaulinoTb13.14.Rd
new file mode 100644
index 00000000..446949f8
--- /dev/null
+++ b/man/PaulinoTb13.14.Rd
@@ -0,0 +1,57 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb13.14.R
+\name{PaulinoTb13.14}
+\alias{PaulinoTb13.14}
+\title{Frequencias observadas na sondagem de opiniao na Eslovenia.}
+\format{Um \code{data.frame} com 27 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{seca}}{Secessão A. Refere-se a pergunta feita: é a favor
+ da secessão eslovena da Jugoslávia?}
+
+\item{\code{refb}}{Referendo B. Refere-se a pergunta feita:Tenciona
+ votar no referendo?}
+
+\item{\code{indep}}{Independência. Refere-se a pergunta: é a favor da
+ independência da Eslovénia?}
+
+\item{\code{freq}}{Frequência relaionando os valores.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.14, pág. 485.
+}
+\description{
+Os resultados referem-se a um inquérito de opinião na
+ Eslovénia antes do referendo do 1990 que viria a conduzir a sua
+ independência, retirados de Rubin, Stern e Vehovar (1995). Dizem
+ respeito as respostas dadas as perguntas: é a favor da secessão
+ eslovena da Jugoslávia? Tenciona votar no referendo? É a favor da
+ independência da Eslovénia? O objetivo principal do inquérito
+ consistiu em estimar a proporção da população que tencionaria
+ votar no referendo a favor da independência.
+}
+\examples{
+
+library(lattice)
+data(PaulinoTb13.14)
+
+dados <- xtabs(freq ~ refb + seca + indep, data = PaulinoTb13.14)
+barchart(dados, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("sim","não", "omisso"))),
+ ylab = "Frequência",
+ xlab = "Grupos",
+ main = "Frequências observadas na sondagem de opinião na Eslovénia.",
+ auto.key = list(corner = c(0.90, 0.95),
+ text = c("omisso", "não", "sim")))
+
+
+}
+\references{
+Rubin, D. B., Stern, H. S. e Vehovar, V. (1995). Handling
+ "Don't know" survey responses, Journal of American Statistical
+ Association 69:467-474.
+}
+\keyword{TC}
+
--
GitLab