From 62bf0d45b7e5ee672d2eff4bfd9448d7cc0608bf Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Sun, 11 Sep 2016 11:19:18 -0300
Subject: [PATCH 1/7] Adiciona pacote vcd
---
DESCRIPTION | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 4092c831..030f2000 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -43,6 +43,7 @@ Suggests:
reshape2,
MASS,
qcc,
- multcomp
+ multcomp,
+ vcd
VignetteBuilder: knitr
RoxygenNote: 5.0.1
--
GitLab
From 8f8e7b4bd4eaf57536115b35f0e06e508fcffe76 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sat, 17 Sep 2016 12:39:21 -0300
Subject: [PATCH 2/7] Interrompe script se devtools::check der erro
---
.build_package.R | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/.build_package.R b/.build_package.R
index 96db031e..b242ed12 100755
--- a/.build_package.R
+++ b/.build_package.R
@@ -51,10 +51,15 @@ if (length(list.files("./vignettes"))) {
#--------------------------------------------
# Checar conteúdo e organização do pacote.
-check(cleanup = FALSE,
- manual = TRUE,
- vignettes = FALSE,
- check_dir = "../")
+checagem <- check(cleanup = FALSE,
+ manual = TRUE,
+ vignettes = FALSE,
+ check_dir = "../")
+
+if (length(checagem$errors) > 0) {
+ cat(checagem$errors, sep = "\n")
+ stop("Falha ao checar o pacote")
+}
#--------------------------------------------
# Construir pacote.
@@ -75,4 +80,4 @@ install()
unlink(lib, recursive = TRUE)
-#--------------------------------------------
\ No newline at end of file
+#--------------------------------------------
--
GitLab
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 3/7] 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
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 4/7] 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
From 9dc3a744aa0e054e26167db74395a73e92e1d081 Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Tue, 11 Oct 2016 09:54:54 -0300
Subject: [PATCH 5/7] =?UTF-8?q?Adiciona=20t=C3=ADtulo=20na=20documenta?=
=?UTF-8?q?=C3=A7=C3=A3o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/PaulinoEx9.29.R | 2 +-
man/PaulinoEx9.29.Rd | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/PaulinoEx9.29.R b/R/PaulinoEx9.29.R
index 8517d3f1..15b6447d 100644
--- a/R/PaulinoEx9.29.R
+++ b/R/PaulinoEx9.29.R
@@ -1,5 +1,5 @@
#' @name PaulinoEx9.29
-#' @title ????
+#' @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,
#' a resposta de cada soldado foi categorizada nos níveis 1 (quase
diff --git a/man/PaulinoEx9.29.Rd b/man/PaulinoEx9.29.Rd
index 769adeea..7e8acf6d 100644
--- a/man/PaulinoEx9.29.Rd
+++ b/man/PaulinoEx9.29.Rd
@@ -2,7 +2,7 @@
% Please edit documentation in R/PaulinoEx9.29.R
\name{PaulinoEx9.29}
\alias{PaulinoEx9.29}
-\title{????}
+\title{Avaliação de Políciais Militares}
\format{Um \code{data.frame} com 12 observações e 4 variáveis, em que
\describe{
--
GitLab
From d2b08b4cd56483d7f7ffa9f82755bbe7ced0da8a Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Tue, 11 Oct 2016 14:05:36 -0300
Subject: [PATCH 6/7] Adiciona tabela 11.10 ao pacote
---
R/PaulinoTb11.10.R | 51 +++++++++++++++++++++++++++++++
data-raw/PaulinoTb11.10.txt | 49 ++++++++++++++++++++++++++++++
data/PaulinoTb11.10.rda | Bin 0 -> 342 bytes
man/PaulinoTb11.10.Rd | 59 ++++++++++++++++++++++++++++++++++++
4 files changed, 159 insertions(+)
create mode 100644 R/PaulinoTb11.10.R
create mode 100644 data-raw/PaulinoTb11.10.txt
create mode 100644 data/PaulinoTb11.10.rda
create mode 100644 man/PaulinoTb11.10.Rd
diff --git a/R/PaulinoTb11.10.R b/R/PaulinoTb11.10.R
new file mode 100644
index 00000000..7df4eac6
--- /dev/null
+++ b/R/PaulinoTb11.10.R
@@ -0,0 +1,51 @@
+#' @name PaulinoTb11.10
+#' @title Número de Animais Mortos por Contaminação do Petróleo
+#' @description Estudo cuja finalidade é avaliar o efeito da
+#' contaminação de um estuário por derramamento de petróleo na fauna
+#' local. Cada animal foi submetido a um tratamento obtido da
+#' classificação cruzada dos níveis contaminação por petróleo (sim
+#' ou controle) e salinidade de aclimatação. Os animais foram
+#' observados por 72 horas e o número de sobreviventes foi
+#' registrado a cada 12 horas.
+#' @format Um \code{data.frame} com 48 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{grupo}}{grupo em que pertnce o animal (petróleo ou
+#' controle).}
+#'
+#' \item{\code{salin}}{Salinidade de aclimatação (0.8\%, 1.4\%, 2.4\%,
+#' 3.4\%).}
+#'
+#' \item{\code{tempo}}{Tempo de exposição dos animais, em horas.}
+#'
+#' \item{\code{animais}}{Número de animais sobreviventes.}
+#'
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 11.10, pág. 400.
+#' @examples
+#'
+#' data(PaulinoTb11.10)
+#'
+#' str(PaulinoTb11.10)
+#'
+#' xt <- xtabs(animais ~ ., data = PaulinoTb11.10)
+#' ftable(xt)
+#'
+#' library(lattice)
+#'
+#' barchart(animais ~ factor(tempo) | factor(salin), groups = grupo,
+#' horizontal = FALSE,
+#' data = PaulinoTb11.10,
+#' auto.key = list(space = "top", columns = 2,
+#' cex.title = 1, rectangles = TRUE,
+#' points = FALSE,
+#' title = "Grupo de animais"),
+#' xlab = "Tempo de exposição",
+#' strip = strip.custom(
+#' strip.names = TRUE,
+#' var.name = "Salinidade"),
+#' ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb11.10.txt b/data-raw/PaulinoTb11.10.txt
new file mode 100644
index 00000000..b5be972e
--- /dev/null
+++ b/data-raw/PaulinoTb11.10.txt
@@ -0,0 +1,49 @@
+grupo salin tempo animais
+petroleo 0.8 12 30
+petroleo 0.8 24 26
+petroleo 0.8 36 20
+petroleo 0.8 48 17
+petroleo 0.8 60 16
+petroleo 0.8 72 15
+petroleo 1.4 12 32
+petroleo 1.4 24 31
+petroleo 1.4 36 31
+petroleo 1.4 48 29
+petroleo 1.4 60 27
+petroleo 1.4 72 22
+petroleo 2.4 12 32
+petroleo 2.4 24 30
+petroleo 2.4 36 29
+petroleo 2.4 48 26
+petroleo 2.4 60 26
+petroleo 2.4 72 21
+petroleo 3.4 12 32
+petroleo 3.4 24 30
+petroleo 3.4 36 29
+petroleo 3.4 48 27
+petroleo 3.4 60 27
+petroleo 3.4 72 21
+controle 0.8 12 31
+controle 0.8 24 27
+controle 0.8 36 25
+controle 0.8 48 19
+controle 0.8 60 18
+controle 0.8 72 18
+controle 1.4 12 32
+controle 1.4 24 31
+controle 1.4 36 31
+controle 1.4 48 31
+controle 1.4 60 31
+controle 1.4 72 30
+controle 2.4 12 32
+controle 2.4 24 31
+controle 2.4 36 31
+controle 2.4 48 28
+controle 2.4 60 27
+controle 2.4 72 26
+controle 3.4 12 32
+controle 3.4 24 32
+controle 3.4 36 30
+controle 3.4 48 30
+controle 3.4 60 29
+controle 3.4 72 28
diff --git a/data/PaulinoTb11.10.rda b/data/PaulinoTb11.10.rda
new file mode 100644
index 0000000000000000000000000000000000000000..26fbf9c66aa2db35146a48ae928df22e1f5ce2ad
GIT binary patch
literal 342
zcmZ>Y%CIzaj8qGbeE9EfKLeBC|HuFT|F1v7Siy3{A;iIc`TYh51_lEM1_lL2#tn?d
zJZ(!(xS7n;T<pNsz`!8I?9<Ea6nur3fmuP$gMop8fl;K>U&(|aLyB2}!Gzbugx_<K
zq9C(Sk7NVq#HngU&J!3N_qm=@s*O?oXXtuec6HRw*$0@DW-Q3fQe4a9TcfzL&4Wie
zWP-Hp@dNy#3&htlo?$;`yZ@e`*xTsOhS7VQdS8eH75b>GagA8wt+jGXLr{-K<5BJi
zLz7m&o1W7*7-(vXoZQF5HE;S;gG4SxiB_?HT+fy~vMIQEhLK<C!~_*l#_VVbBLRa8
zY|pOl{cz$>nZhQ;K7G60KesfW{na$1M$19Pn}PEOlS8Qyzw*Py-qV5wmga6fYuN5Q
yrMXl4c(7NBr{=3YA)1aUs;!s8bDy&qF<;}YWXRhyS@oaZldgh=iiiL1mIDCkU4xnc
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb11.10.Rd b/man/PaulinoTb11.10.Rd
new file mode 100644
index 00000000..0bda103c
--- /dev/null
+++ b/man/PaulinoTb11.10.Rd
@@ -0,0 +1,59 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb11.10.R
+\name{PaulinoTb11.10}
+\alias{PaulinoTb11.10}
+\title{Número de Animais Mortos por Contaminação do Petróleo}
+\format{Um \code{data.frame} com 48 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{grupo}}{grupo em que pertnce o animal (petróleo ou
+ controle).}
+
+\item{\code{salin}}{Salinidade de aclimatação (0.8\%, 1.4\%, 2.4\%,
+ 3.4\%).}
+
+\item{\code{tempo}}{Tempo de exposição dos animais, em horas.}
+
+\item{\code{animais}}{Número de animais sobreviventes.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 11.10, pág. 400.
+}
+\description{
+Estudo cuja finalidade é avaliar o efeito da
+ contaminação de um estuário por derramamento de petróleo na fauna
+ local. Cada animal foi submetido a um tratamento obtido da
+ classificação cruzada dos níveis contaminação por petróleo (sim
+ ou controle) e salinidade de aclimatação. Os animais foram
+ observados por 72 horas e o número de sobreviventes foi
+ registrado a cada 12 horas.
+}
+\examples{
+
+data(PaulinoTb11.10)
+
+str(PaulinoTb11.10)
+
+xt <- xtabs(animais ~ ., data = PaulinoTb11.10)
+ftable(xt)
+
+library(lattice)
+
+barchart(animais ~ factor(tempo) | factor(salin), groups = grupo,
+ horizontal = FALSE,
+ data = PaulinoTb11.10,
+ auto.key = list(space = "top", columns = 2,
+ cex.title = 1, rectangles = TRUE,
+ points = FALSE,
+ title = "Grupo de animais"),
+ xlab = "Tempo de exposição",
+ strip = strip.custom(
+ strip.names = TRUE,
+ var.name = "Salinidade"),
+ ylab = "Frequência")
+
+}
+\keyword{TC}
+
--
GitLab
From 9e41716d03b1cf69e6a1ddbfaa33f394a913204a Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Tue, 11 Oct 2016 14:34:42 -0300
Subject: [PATCH 7/7] =?UTF-8?q?Adiciona=20dados=20do=20exerc=C3=ADcio=209.?=
=?UTF-8?q?31=20ao=20pacote?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/PaulinoEx9.31.R | 47 +++++++++++++++++++++++++++++++
data-raw/PaulinoEx9.31.txt | 25 +++++++++++++++++
data/PaulinoEx9.31.rda | Bin 0 -> 331 bytes
man/PaulinoEx9.31.Rd | 55 +++++++++++++++++++++++++++++++++++++
4 files changed, 127 insertions(+)
create mode 100644 R/PaulinoEx9.31.R
create mode 100644 data-raw/PaulinoEx9.31.txt
create mode 100644 data/PaulinoEx9.31.rda
create mode 100644 man/PaulinoEx9.31.Rd
diff --git a/R/PaulinoEx9.31.R b/R/PaulinoEx9.31.R
new file mode 100644
index 00000000..d8625b8e
--- /dev/null
+++ b/R/PaulinoEx9.31.R
@@ -0,0 +1,47 @@
+#' @name PaulinoEx9.31
+#' @title Efeito de Dois Agentes Sexualmente Transmissíveis em Dois
+#' Grupos de Mulheres
+#' @description Estudo envolvendo um grupo de mulheres com displasia
+#' historicamente confirmada (os casos) e um outro grupo de mulheres
+#' com ausência da mesma (os controles). Cada uma destas mulheres
+#' foi então analisada em termos da exposição a cada um dos agentes
+#' sexualmente transmissíveis (o vírus tipo 2 da herpes simples e a
+#' \emph{Clamídia trachomatis}, na etiologia da displasia cervical),
+#' categorizados em dois níveis (1 para uma maior prevalência de
+#' anticorpos e 2 para uma menor prevalência), analisando os
+#' possíveis efeitos desses agentes nessas mulheres.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{parc}}{Fator sócio-comportamental definido pelo número
+#' total de parceiros sexuais categorizado em 3 níveis (1-3, 4-10 e
+#' > 10).}
+#'
+#' \item{\code{herpes}}{Vírus do tipo 2 do herpes simples (1 para maior
+#' prevalência e 2 para menor).}
+#'
+#' \item{\code{calmid}}{Vírus do tipo \emph{Clamídia trachomatis} (1
+#' para maior prevalência e 2 para menor).}
+#'
+#' \item{\code{grupo}}{Grupo em que foi dividido as mulheres (casos ou
+#' controles).}
+#'
+#' \item{\code{freq}}{Frequências observadas.}
+#'
+#' }
+#' @keywords retrospetivo
+#' @source PAULINO; SINGER (2006), Exercício 9.31, pág. 345.
+#' @examples
+#'
+#' data(PaulinoEx9.31)
+#'
+#' str(PaulinoEx9.31)
+#'
+#' xt <- xtabs(freq ~., PaulinoEx9.31)
+#' ftable(xt)
+#'
+#' library(vcd)
+#' doubledecker(xt)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx9.31.txt b/data-raw/PaulinoEx9.31.txt
new file mode 100644
index 00000000..2fab32f8
--- /dev/null
+++ b/data-raw/PaulinoEx9.31.txt
@@ -0,0 +1,25 @@
+parc herpes clamid grupo freq
+1-3 1 1 casos 56
+1-3 1 1 controles 42
+1-3 1 2 casos 14
+1-3 1 2 controles 28
+1-3 2 1 casos 54
+1-3 2 1 controles 78
+1-3 2 2 casos 34
+1-3 2 2 controles 83
+4-10 1 1 casos 47
+4-10 1 1 controles 57
+4-10 1 2 casos 8
+4-10 1 2 controles 29
+4-10 2 1 casos 46
+4-10 2 1 controles 74
+4-10 2 2 casos 18
+4-10 2 2 controles 48
+> 10 1 1 casos 43
+> 10 1 1 controles 80
+> 10 1 2 casos 4
+> 10 1 2 controles 16
+> 10 2 1 casos 44
+> 10 2 1 controles 56
+> 10 2 2 casos 12
+> 10 2 2 controles 23
diff --git a/data/PaulinoEx9.31.rda b/data/PaulinoEx9.31.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b2549bfdf96421abb9d8b5ed376deba5ea16007d
GIT binary patch
literal 331
zcmZ>Y%CIzaj8qGboZR_Lgn@B!{lWj`5yt}L|0c2tMmXp{|9`-Nfx&@+aRZ~IZ*!oj
zQBtl{!-dO=%dSW=Fc|ULI<A_1)g+18S%LY=2?IAZjtd!8OfH?KMk%&xj*A_RBr>r1
znlMb!TIQt0BwWa($eeRS;)cM4V{JwO0tdHzeV(-`#Os{rflv#_)-`tbx8C`o{%2;$
zbvcFFzv>eOULO=GP&Ha=!s@V+!+}vrlR+!hurW9N?75PnniCAJyh^!RRUiLEuJtQV
zoO#DIf%Tk1l92XBE`bBS8#{xZ9BKISzQrSxw?Wx~<CA#Ymzx|tnWuFhnTZ@&vHVPL
z`?o3g_+J$KvzITFDpOvt`H<aSubF=m9xq*^f6sD8EYn-pOb6aAUF)K%wjR`+5IlFm
o@1<$CUTK$!DeFu;P&y~J)YnHrMdHByqjx6yiKwVNs%&Kd0FHx;mH+?%
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx9.31.Rd b/man/PaulinoEx9.31.Rd
new file mode 100644
index 00000000..12a83972
--- /dev/null
+++ b/man/PaulinoEx9.31.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx9.31.R
+\name{PaulinoEx9.31}
+\alias{PaulinoEx9.31}
+\title{Efeito de Dois Agentes Sexualmente Transmissíveis em Dois
+ Grupos de Mulheres}
+\format{Um \code{data.frame} com 24 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{parc}}{Fator sócio-comportamental definido pelo número
+ total de parceiros sexuais categorizado em 3 níveis (1-3, 4-10 e
+ > 10).}
+
+\item{\code{herpes}}{Vírus do tipo 2 do herpes simples (1 para maior
+ prevalência e 2 para menor).}
+
+\item{\code{calmid}}{Vírus do tipo \emph{Clamídia trachomatis} (1
+ para maior prevalência e 2 para menor).}
+
+\item{\code{grupo}}{Grupo em que foi dividido as mulheres (casos ou
+ controles).}
+
+\item{\code{freq}}{Frequências observadas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 9.31, pág. 345.
+}
+\description{
+Estudo envolvendo um grupo de mulheres com displasia
+ historicamente confirmada (os casos) e um outro grupo de mulheres
+ com ausência da mesma (os controles). Cada uma destas mulheres
+ foi então analisada em termos da exposição a cada um dos agentes
+ sexualmente transmissíveis (o vírus tipo 2 da herpes simples e a
+ \emph{Clamídia trachomatis}, na etiologia da displasia cervical),
+ categorizados em dois níveis (1 para uma maior prevalência de
+ anticorpos e 2 para uma menor prevalência), analisando os
+ possíveis efeitos desses agentes nessas mulheres.
+}
+\examples{
+
+data(PaulinoEx9.31)
+
+str(PaulinoEx9.31)
+
+xt <- xtabs(freq ~., PaulinoEx9.31)
+ftable(xt)
+
+library(vcd)
+doubledecker(xt)
+
+}
+\keyword{retrospetivo}
+
--
GitLab