From 389e5485f4846f9f5e0e15f3d70812d06be1f32d Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Tue, 11 Oct 2016 09:52:54 -0300
Subject: [PATCH] Adiciona tabela PaulinoEx9.30 ao pacote
---
R/PaulinoEx9.30.R | 51 +++++++++++++++++++++++++++++++
data-raw/PaulinoEx9.30.txt | 25 ++++++++++++++++
data/PaulinoEx9.30.rda | Bin 0 -> 385 bytes
man/PaulinoEx9.30.Rd | 60 +++++++++++++++++++++++++++++++++++++
4 files changed, 136 insertions(+)
create mode 100644 R/PaulinoEx9.30.R
create mode 100644 data-raw/PaulinoEx9.30.txt
create mode 100644 data/PaulinoEx9.30.rda
create mode 100644 man/PaulinoEx9.30.Rd
diff --git a/R/PaulinoEx9.30.R b/R/PaulinoEx9.30.R
new file mode 100644
index 00000000..300d84f0
--- /dev/null
+++ b/R/PaulinoEx9.30.R
@@ -0,0 +1,51 @@
+#' @name PaulinoEx9.30
+#' @title Avaliação de Políciais Militares
+#' @description Em um estudo sobre a avaliação de políciais militares
+#' brancos por soldados americanos negros na Segunda Guerra Mundial,
+#' os soldados do exército foram classificados segundo o nível
+#' educacional, a atitude face à separação racial, a região de
+#' naturalidade e a preferência oir missões de combate.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{educ}}{Nível educacional (só grade school, alguma high
+#' school, high school completa).}
+#'
+#' \item{\code{sep}}{Atitude perante separação racial (não contra ou
+#' contra).}
+#'
+#' \item{\code{ntur}}{Região de naturalidade (sul, norte).}
+#'
+#' \item{\code{missao}}{Preferência por missão de combate (sim ou não).}
+#'
+#' \item{\code{freq}}{Frequências observadas.}
+#'
+#' }
+#' @keywords TC dicotomica
+#' @source PAULINO; SINGER (2006), Exercício 9.30, pág. 344.
+#' @examples
+#'
+#' data(PaulinoEx9.30)
+#'
+#' str(PaulinoEx9.30)
+#'
+#' xt <- xtabs(freq ~ ., data = PaulinoEx9.30)
+#' ftable(xt)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' useOuterStrips(
+#' barchart(freq ~ educ | sep + natur, groups = missao,
+#' horizontal = FALSE,
+#' data = PaulinoEx9.30,
+#' auto.key = list(space = "top", columns = 2,
+#' cex.title = 1, rectangles = TRUE,
+#' points = FALSE,
+#' title = "Preferência por missão"),
+#' xlab = "Nível educacional",
+#' ylab = "Frequência")
+#' )
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx9.30.txt b/data-raw/PaulinoEx9.30.txt
new file mode 100644
index 00000000..28fabee0
--- /dev/null
+++ b/data-raw/PaulinoEx9.30.txt
@@ -0,0 +1,25 @@
+educ sep natur missao freq
+grade school nao contra sul sim 2051
+grade school nao contra sul nao 20738
+grade school nao contra norte sim 518
+grade school nao contra norte nao 3182
+grade school contra sul sim 1050
+grade school contra sul nao 7027
+grade school contra norte sim 600
+grade school contra norte nao 2558
+al. high school nao contra sul sim 382
+al. high school nao contra sul nao 2165
+al. high school nao contra norte sim 320
+al. high school nao contra norte nao 960
+al. high school contra sul sim 349
+al. high school contra sul nao 1832
+al. high school contra norte sim 489
+al. high school contra norte nao 1141
+high school com. nao contra sul sim 351
+high school com. nao contra sul nao 1714
+high school com. nao contra norte sim 245
+high school com. nao contra norte nao 630
+high school com. contra sul sim 478
+high school com. contra sul nao 1798
+high school com. contra norte sim 609
+high school com. contra norte nao 1256
diff --git a/data/PaulinoEx9.30.rda b/data/PaulinoEx9.30.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4ccf419581334d57f4c50e3a4fa45c75feee65fa
GIT binary patch
literal 385
zcmZ>Y%CIzaj8qGboc7W_fr0VT|MUO9orrL7j8Jf6C~#W;{Qp4*1_1^K1_nlk1SZA}
zj1dA-E=Ph>?fnD&GkuMNuN>lcP+X?wb8JPij}L<ygBk;)0fR7$r<2M-`+y4!90m+h
z3{_KoR2qehTor@_E^>G*{if*{GG(f(>HO@)Wu}`Qw8U?EeXqUPoWc>7RQ=<xyZq5d
z{maj6zg_i!U9D}O*sUXmyJgJSzdd-gKYqK|>FN6U+m|VGXUg-~)X#{0D%-(%aj8Rh
zjl)USnRP}v*OZ?NdLHMs%{sT{Df1jQ2Gt1xOPc1DY~h?~we&*ht8J~kcE7xvxRsLK
zi?iQaDX*QAwtvbFdH1kCbNe1%Qtb4oJ)pkGMC?g$QQn`(s#`k8SWcXbJUP83?Lc8;
zh`!h!*<Gg}lpj~#Br0%fmDDkzTO~Ii&6p_Av1d|{;4}eIZ)b+7i8qd?ZanAvAyJ>9
sc&Y9TW`XRZVXXcyF4u*I>WH71pR|-ghr_dp|6{pIa4RQg-sEo#0Mj&}d;kCd
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx9.30.Rd b/man/PaulinoEx9.30.Rd
new file mode 100644
index 00000000..ac036ec4
--- /dev/null
+++ b/man/PaulinoEx9.30.Rd
@@ -0,0 +1,60 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx9.30.R
+\name{PaulinoEx9.30}
+\alias{PaulinoEx9.30}
+\title{Avaliação de Políciais Militares}
+\format{Um \code{data.frame} com 24 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{educ}}{Nível educacional (só grade school, alguma high
+ school, high school completa).}
+
+\item{\code{sep}}{Atitude perante separação racial (não contra ou
+ contra).}
+
+\item{\code{ntur}}{Região de naturalidade (sul, norte).}
+
+\item{\code{missao}}{Preferência por missão de combate (sim ou não).}
+
+\item{\code{freq}}{Frequências observadas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 9.30, pág. 344.
+}
+\description{
+Em um estudo sobre a avaliação de políciais militares
+ brancos por soldados americanos negros na Segunda Guerra Mundial,
+ os soldados do exército foram classificados segundo o nível
+ educacional, a atitude face à separação racial, a região de
+ naturalidade e a preferência oir missões de combate.
+}
+\examples{
+
+data(PaulinoEx9.30)
+
+str(PaulinoEx9.30)
+
+xt <- xtabs(freq ~ ., data = PaulinoEx9.30)
+ftable(xt)
+
+library(lattice)
+library(latticeExtra)
+
+useOuterStrips(
+ barchart(freq ~ educ | sep + natur, groups = missao,
+ horizontal = FALSE,
+ data = PaulinoEx9.30,
+ auto.key = list(space = "top", columns = 2,
+ cex.title = 1, rectangles = TRUE,
+ points = FALSE,
+ title = "Preferência por missão"),
+ xlab = "Nível educacional",
+ ylab = "Frequência")
+)
+
+}
+\keyword{TC}
+\keyword{dicotomica}
+
--
GitLab