From 8996a33a45997d921b3768e9b66f9d03581f0ce9 Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Mon, 10 Oct 2016 18:51:18 -0300
Subject: [PATCH] Adiciona tabela PaulinoEx9.29 ao pacote
---
R/PaulinoEx9.29.R | 44 ++++++++++++++++++++++++++++++
data-raw/PaulinoEx9.29.txt | 13 +++++++++
data/PaulinoEx9.29.rda | Bin 0 -> 271 bytes
man/PaulinoEx9.29.Rd | 53 +++++++++++++++++++++++++++++++++++++
4 files changed, 110 insertions(+)
create mode 100644 R/PaulinoEx9.29.R
create mode 100644 data-raw/PaulinoEx9.29.txt
create mode 100644 data/PaulinoEx9.29.rda
create mode 100644 man/PaulinoEx9.29.Rd
diff --git a/R/PaulinoEx9.29.R b/R/PaulinoEx9.29.R
new file mode 100644
index 00000000..8517d3f1
--- /dev/null
+++ b/R/PaulinoEx9.29.R
@@ -0,0 +1,44 @@
+#' @name PaulinoEx9.29
+#' @title ????
+#' @description Em um estudo sobre a avaliação de políciais militares
+#' brancos por soldados americanos negros na Segunda Guerra Mundial,
+#' a resposta de cada soldado foi categorizada nos níveis 1 (quase
+#' sempre imparcial), 2 (parcial e imparcial em proporções iguais) e
+#' 3 (quase sempre parcial)
+#' @format Um \code{data.frame} com 12 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{orig}}{Região de origem (Norte ou Sul).}
+#'
+#' \item{\code{unid}}{Região da unidade (Norte ou Sul).}
+#'
+#' \item{\code{condu}}{Avaliação da conduta. (1, 2, ou 3)}
+#'
+#' \item{\code{freq}}{Frequências observadas.}
+#'
+#' }
+#' @keywords TC multinomial
+#' @source PAULINO; SINGER (2006), Exercício 9.29, pág. 343.
+#' @examples
+#'
+#' data(PaulinoEx9.29)
+#'
+#' str(PaulinoEx9.29)
+#'
+#' xt <- xtabs(freq ~ ., data = PaulinoEx9.29)
+#' ftable(xt)
+#'
+#' library(lattice)
+#'
+#' barchart(xt,
+#' horizontal = FALSE,
+#' beside = FALSE,
+#' stack = FALSE,
+#' auto.key = list(space = "top", columns = 3, cex.title = 1,
+#' rectangles = TRUE, points = FALSE,
+#' title = "Avaliação da conduta"),
+#' xlab = "Região de origem",
+#' ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx9.29.txt b/data-raw/PaulinoEx9.29.txt
new file mode 100644
index 00000000..c6edbc26
--- /dev/null
+++ b/data-raw/PaulinoEx9.29.txt
@@ -0,0 +1,13 @@
+orig unid condu freq
+norte norte 1 118
+norte norte 2 207
+norte norte 3 134
+norte sul 1 181
+norte sul 2 514
+norte sul 3 542
+sul norte 1 253
+sul norte 2 313
+sul norte 3 200
+sul sul 1 653
+sul sul 2 1006
+sul sul 3 760
diff --git a/data/PaulinoEx9.29.rda b/data/PaulinoEx9.29.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1b69c88676a9aafc596ee9db523d3eb76e14efb7
GIT binary patch
literal 271
zcmZ>Y%CIzaj8qGb3@g~XhJoSl|Fi$iJQx`m1r*pA0vz<0??2$k#Kgeh(7?#zyn*5C
zWZvK_Cv5~x<d!+`GETU-<<^4B!B-aKI$Y*pVD@QtZ1R{j*@1z9f!TqLohgv#`6dAt
zq4TVrEKEvH92`9QduEs(usW(~GEvZ)`)gJ0jw%1+7$%(ZWN3bROv6E1+=(SkX7QI@
z&c|1(a9lc}*y2;O_TKcgIf;G~d>Br0TsS1l)5<qj<*k~h>h<m}XN8QdE}_{G<;Rbf
z*I01#<gJr$J`%IIVCM<GBcTV^g!wsK*PWS?YwGia-Dsi{D__DTE*8PI%*+i!M;<L@
dIe#(NZl%(NKa*KxnzqEA6nW_67<uU11^{<_YGwcc
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx9.29.Rd b/man/PaulinoEx9.29.Rd
new file mode 100644
index 00000000..769adeea
--- /dev/null
+++ b/man/PaulinoEx9.29.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx9.29.R
+\name{PaulinoEx9.29}
+\alias{PaulinoEx9.29}
+\title{????}
+\format{Um \code{data.frame} com 12 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{orig}}{Região de origem (Norte ou Sul).}
+
+\item{\code{unid}}{Região da unidade (Norte ou Sul).}
+
+\item{\code{condu}}{Avaliação da conduta. (1, 2, ou 3)}
+
+\item{\code{freq}}{Frequências observadas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 9.29, pág. 343.
+}
+\description{
+Em um estudo sobre a avaliação de políciais militares
+ brancos por soldados americanos negros na Segunda Guerra Mundial,
+ a resposta de cada soldado foi categorizada nos níveis 1 (quase
+ sempre imparcial), 2 (parcial e imparcial em proporções iguais) e
+ 3 (quase sempre parcial)
+}
+\examples{
+
+data(PaulinoEx9.29)
+
+str(PaulinoEx9.29)
+
+xt <- xtabs(freq ~ ., data = PaulinoEx9.29)
+ftable(xt)
+
+library(lattice)
+
+barchart(xt,
+ horizontal = FALSE,
+ beside = FALSE,
+ stack = FALSE,
+ auto.key = list(space = "top", columns = 3, cex.title = 1,
+ rectangles = TRUE, points = FALSE,
+ title = "Avaliação da conduta"),
+ xlab = "Região de origem",
+ ylab = "Frequência")
+
+}
+\keyword{TC}
+\keyword{multinomial}
+
--
GitLab