From bc44812c72ec77b03536a4be3f0f3c2f43ae11fe Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Sun, 11 Sep 2016 11:51:44 -0300
Subject: [PATCH 1/6] Adiciona tabela PaulinoTb6.1 ao pacote
---
R/PaulinoTb6.1.R | 31 ++++++++++++++++++++++++++++++
data-raw/PaulinoTb6.1.txt | 9 +++++++++
data/PaulinoTb6.1.rda | Bin 0 -> 304 bytes
man/PaulinoTb6.1.Rd | 39 ++++++++++++++++++++++++++++++++++++++
4 files changed, 79 insertions(+)
create mode 100644 R/PaulinoTb6.1.R
create mode 100644 data-raw/PaulinoTb6.1.txt
create mode 100644 data/PaulinoTb6.1.rda
create mode 100644 man/PaulinoTb6.1.Rd
diff --git a/R/PaulinoTb6.1.R b/R/PaulinoTb6.1.R
new file mode 100644
index 00000000..2f909ab4
--- /dev/null
+++ b/R/PaulinoTb6.1.R
@@ -0,0 +1,31 @@
+#' @name PaulinoTb6.1
+#' @title Morte por Intoxicação de Besouros
+#' @description Experimento envolvendo a exposição de besouros durante
+#' cinco horas a uma gás tóxico em oito níveis de concentração
+#' representada pelo logaritmo da dose (medida habitual neste tipo
+#' de estudo).
+#' @format Um \code{data.frame} com 8 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{dose}}{Logaritmo da dose de gás tóxico.}
+#'
+#' \item{\code{morte}}{Número de besouros mortos.}
+#'
+#' \item{\code{besexp}}{Número de besouros expostos ao gás tóxico.}
+#'
+#' }
+#' @keywords binomial
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (Tabela 6.1, pág. 150).
+#' @examples
+#'
+#' data(PaulinoTb6.1)
+#' str(PaulinoTb6.1)
+#'
+#' library(lattice)
+#'
+#' xyplot(morte/besexp ~ dose, data = PaulinoTb6.1)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb6.1.txt b/data-raw/PaulinoTb6.1.txt
new file mode 100644
index 00000000..bc432850
--- /dev/null
+++ b/data-raw/PaulinoTb6.1.txt
@@ -0,0 +1,9 @@
+dose morte besexp
+1.6907 6 59
+1.7242 13 60
+1.7552 18 62
+1.7842 28 56
+1.8113 52 63
+1.8369 53 59
+1.8610 61 62
+1.8839 60 60
diff --git a/data/PaulinoTb6.1.rda b/data/PaulinoTb6.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bca562f939409b17a1e93ce3a5f34a5c471513a2
GIT binary patch
literal 304
zcmZ>Y%CIzaj8qGbj9O6=$iUF?|L_0rRXicg=Kf3AVm$V%|2yEo%IL(<AjRa!z#y>V
z{04?=$CNVFJhz%HHdt_3v9qB+;H%k$Gs{k8oLM&8CrjFkW1_8_+q{L#njNJ0gB^Go
zGMF7QE;}$}tlY}Lz>vYfz`)DEz`$VQ-{a8H^N2y<xWb={Y0K>xA2Tm>o$310EAWDH
z)6d_V3>q}k?LKidvYeT0-l=frq!KF+LyE(M6j6qhHHX|7*$y~x_U~EX+0xVH-YCuS
z^Uxm8XRZ6991bsK@=y?)o$=NqXLI^@=BLjm=N*@?3UISsDE>yiKXb0z;tLC%Zi$C<
z#i%UnII${gP41-EugX?TskCqlIbP(MURZ3AFz2)XgOl$JZKuEgFPX?>rPRRxv0Np%
Lm6LT<yQ=^IORjz4
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb6.1.Rd b/man/PaulinoTb6.1.Rd
new file mode 100644
index 00000000..155bcca8
--- /dev/null
+++ b/man/PaulinoTb6.1.Rd
@@ -0,0 +1,39 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb6.1.R
+\name{PaulinoTb6.1}
+\alias{PaulinoTb6.1}
+\title{Morte por Intoxicação de Besouros}
+\format{Um \code{data.frame} com 8 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{dose}}{Logaritmo da dose de gás tóxico.}
+
+\item{\code{morte}}{Número de besouros mortos.}
+
+\item{\code{besexp}}{Número de besouros expostos ao gás tóxico.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (Tabela 6.1, pág. 150).
+}
+\description{
+Experimento envolvendo a exposição de besouros durante
+ cinco horas a uma gás tóxico em oito níveis de concentração
+ representada pelo logaritmo da dose (medida habitual neste tipo
+ de estudo).
+}
+\examples{
+
+data(PaulinoTb6.1)
+str(PaulinoTb6.1)
+
+library(lattice)
+
+xyplot(morte/besexp ~ dose, data = PaulinoTb6.1)
+
+}
+\keyword{binomial}
+
--
GitLab
From 800ea18290976fa25f9bce64ca988b29447012a3 Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Sun, 11 Sep 2016 12:06:32 -0300
Subject: [PATCH 2/6] Adiciona tabela PaulinoTb6.2 ao pacote
---
R/PaulinoTb6.2.R | 49 ++++++++++++++++++++++++++++++++
data-raw/PaulinoTb6.2.txt | 7 +++++
data/PaulinoTb6.2.rda | Bin 0 -> 257 bytes
man/PaulinoTb6.2.Rd | 58 ++++++++++++++++++++++++++++++++++++++
4 files changed, 114 insertions(+)
create mode 100644 R/PaulinoTb6.2.R
create mode 100644 data-raw/PaulinoTb6.2.txt
create mode 100644 data/PaulinoTb6.2.rda
create mode 100644 man/PaulinoTb6.2.Rd
diff --git a/R/PaulinoTb6.2.R b/R/PaulinoTb6.2.R
new file mode 100644
index 00000000..da9df023
--- /dev/null
+++ b/R/PaulinoTb6.2.R
@@ -0,0 +1,49 @@
+#' @name PaulinoTb6.2
+#' @title Pacientes com Complicação Pulmonar
+#' @description Estudo envolvendo a avaliação pulmonar pré-operatória de
+#' 1162 pacientes e a ocorrência de complicação pulmonar no
+#' pós-operatório de cirurgia geral.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{preop}}{Avaliação pré-operatória do grau de complicação
+#' pulmonar.}
+#'
+#' \item{\code{posop}}{Avalição pulmonar pós-operatória (sem ou com
+#' complicação).}
+#'
+#' \item{\code{npaci}}{Número de pacientes.}
+#'
+#' }
+#' @keywords binomial contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (Tabela 6.2, pág. 150).
+#'
+#' Barros, J. A. (1994). Avaliação pulmonar pré-operatória em
+#' candidatos a cirurgia geral eletiva, Dissertação de mestrado,
+#' Escola Paulista de Medicina, Universidade Federal de São Paulo.
+#' @examples
+#'
+#' xt <- xtabs(npaci ~ preop + posop, data = PaulinoTb6.2)
+#' xt
+#'
+#' mosaicplot(xt, main = NULL,
+#' xlab = "Avaliação pré-operatória",
+#' ylab = "Avaliação pós-operatória")
+#'
+#' library(lattice)
+#'
+#' barchart(xt,
+#' horizontal = FALSE,
+#' beside = FALSE,
+#' stack = FALSE,
+#' auto.key = list(space = "top", columns = 2,
+#' cex.title = 1, rectangles = TRUE,
+#' points = FALSE,
+#' title = "Avaliação pós-operatória"),
+#' xlab = "Avaliação pré-operatória",
+#' ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb6.2.txt b/data-raw/PaulinoTb6.2.txt
new file mode 100644
index 00000000..4946158b
--- /dev/null
+++ b/data-raw/PaulinoTb6.2.txt
@@ -0,0 +1,7 @@
+preop posop npaci
+baixo sem 737
+baixo com 48
+moderado sem 243
+moderado com 74
+alto sem 39
+alto com 21
diff --git a/data/PaulinoTb6.2.rda b/data/PaulinoTb6.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0884e14c81e5583f667f317c3600275138e0d1b0
GIT binary patch
literal 257
zcmZ>Y%CIzaj8qGbZ29<sk%8er{lWibUJMM4feb7HArAKH_YXKQC@^pcZeX}EBP%8N
z%Ec%1CS3NlbujrVl~FZs`4Xwc0vQY-Af&lu*1TRfU&9rdO%hT*sY)DK8+$J^Pm{df
zR9CF6c4?u>j=ME8&g}cAx9RrX@Mli8n@$R!T*f)K<mR!?=u1LQZLGTLR(n?1cT8&A
zz$x#*<22i2lEh`EX$zN3dT`mvQIW;z^|KkNhfnPZdl9c&D19^Xgje8iX|BtBD}MNM
zMJ%}8{9oO0RqYgC6ThwnzIS{3E-ste{;FVM!=ZaSRXzxr%Cn^iDqDAK-r``P=~ypb
L<Z2Nx0pw)>o=R`B
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb6.2.Rd b/man/PaulinoTb6.2.Rd
new file mode 100644
index 00000000..205f74f2
--- /dev/null
+++ b/man/PaulinoTb6.2.Rd
@@ -0,0 +1,58 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb6.2.R
+\name{PaulinoTb6.2}
+\alias{PaulinoTb6.2}
+\title{Pacientes com Complicação Pulmonar}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{preop}}{Avaliação pré-operatória do grau de complicação
+ pulmonar.}
+
+\item{\code{posop}}{Avalição pulmonar pós-operatória (sem ou com
+ complicação).}
+
+\item{\code{npaci}}{Número de pacientes.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (Tabela 6.2, pág. 150).
+
+ Barros, J. A. (1994). Avaliação pulmonar pré-operatória em
+ candidatos a cirurgia geral eletiva, Dissertação de mestrado,
+ Escola Paulista de Medicina, Universidade Federal de São Paulo.
+}
+\description{
+Estudo envolvendo a avaliação pulmonar pré-operatória de
+ 1162 pacientes e a ocorrência de complicação pulmonar no
+ pós-operatório de cirurgia geral.
+}
+\examples{
+
+xt <- xtabs(npaci ~ preop + posop, data = PaulinoTb6.2)
+xt
+
+mosaicplot(xt, main = NULL,
+ xlab = "Avaliação pré-operatória",
+ ylab = "Avaliação pós-operatória")
+
+library(lattice)
+
+barchart(xt,
+ horizontal = FALSE,
+ beside = FALSE,
+ stack = FALSE,
+ auto.key = list(space = "top", columns = 2,
+ cex.title = 1, rectangles = TRUE,
+ points = FALSE,
+ title = "Avaliação pós-operatória"),
+ xlab = "Avaliação pré-operatória",
+ ylab = "Frequência")
+
+}
+\keyword{binomial}
+\keyword{contingência}
+
--
GitLab
From c350e86a2555032666f369a5baf2aef712765c5c Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Sun, 11 Sep 2016 13:17:07 -0300
Subject: [PATCH 3/6] Adiciona tabela PaulinoEx8.10 ao pacote
---
R/PaulinoEx8.10.R | 47 +++++++++++++++++++++++++++++++
data-raw/PaulinoEx8.10.txt | 49 +++++++++++++++++++++++++++++++++
data/PaulinoEx8.10.rda | Bin 0 -> 333 bytes
man/PaulinoEx8.10.Rd | 55 +++++++++++++++++++++++++++++++++++++
4 files changed, 151 insertions(+)
create mode 100644 R/PaulinoEx8.10.R
create mode 100644 data-raw/PaulinoEx8.10.txt
create mode 100644 data/PaulinoEx8.10.rda
create mode 100644 man/PaulinoEx8.10.Rd
diff --git a/R/PaulinoEx8.10.R b/R/PaulinoEx8.10.R
new file mode 100644
index 00000000..d087eb97
--- /dev/null
+++ b/R/PaulinoEx8.10.R
@@ -0,0 +1,47 @@
+#' @name PaulinoEx8.10
+#' @title Ensaio Clínico de Pacientes com Úlcera Duodenal
+#' @description Ensaio clínico envolvendo pacientes com úlcera duodenal.
+#' Os pacientes foram aleatoriamente submetidos a um de quatro tipos
+#' de cirurgia. Três destas operação envolveram vagotomia, diferindo
+#' entre elas pelo grau de resseção estomacal eventualmente efeuado.
+#' No primeiro tipo (O1) fez-se apenas uma drenagem enquanto que nas
+#' outras operações removeu-se ainda 25\% (O2) e 50\% (O3) de tecido
+#' gástrico. O quarto tipo de operação consistiu apenas de uma
+#' gastrectomia que removeu 75\% do estômago (O4).
+#' @format Um \code{data.frame} com 48 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{hops}}{Hospital onde foi realizada a cirurgia.}
+#'
+#' \item{\code{proc}}{Procediemnto cirúrgico.}
+#'
+#' \item{\code{iseq}}{Intensidade da sequela. (N) nenhuma sequela, (l)
+#' ligeira e (M) moderada.}
+#'
+#' \item{\code{freq}}{Frequência da intensidade.}
+#'
+#' }
+#' @keywords dummy
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (Exercício 8.10, pág. 243).
+#'
+#' Grizzle, J. E., Starmer, C. F., Koch, G. G. (1969). Analysis of
+#' categorical data by linear models, Biometrics 25: 489-504.
+#' @examples
+#'
+#' data(PaulinoEx8.10)
+#' str(PaulinoEx8.10)
+#'
+#' library(lattice)
+#'
+#' xyplot(freq ~ proc,
+#' groups = iseq,
+#' data = PaulinoEx8.10,
+#' auto.key = list(space = "top", columns = 3, cex.title = 1,
+#' title = "Intensidade da sequela"),
+#' xlab = "Procedimento cirúrgico",
+#' ylab = "Frquência da intensidade")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx8.10.txt b/data-raw/PaulinoEx8.10.txt
new file mode 100644
index 00000000..c0b53990
--- /dev/null
+++ b/data-raw/PaulinoEx8.10.txt
@@ -0,0 +1,49 @@
+hosp proc iseq freq
+1 O1 n 23
+1 O1 l 7
+1 O1 m 2
+1 O2 n 23
+1 O2 l 10
+1 O2 m 5
+1 O3 n 20
+1 O3 l 13
+1 O3 m 5
+1 O4 n 24
+1 O4 l 10
+1 O4 m 6
+2 O1 n 6
+2 O1 l 1
+2 O1 m 18
+2 O2 n 18
+2 O2 l 6
+2 O2 m 2
+2 O3 n 13
+2 O3 l 13
+2 O3 m 2
+2 O4 n 9
+2 O4 l 15
+2 O4 m 2
+3 O1 n 8
+3 O1 l 6
+3 O1 m 3
+3 O2 n 12
+3 O2 l 4
+3 O2 m 4
+3 O3 n 11
+3 O3 l 6
+3 O3 m 2
+3 O4 n 7
+3 O4 l 7
+3 O4 m 4
+4 O1 n 12
+4 O1 l 9
+4 O1 m 1
+4 O2 n 15
+4 O2 l 3
+4 O2 m 2
+4 O3 n 14
+4 O3 l 8
+4 O3 m 3
+4 O4 n 13
+4 O4 l 6
+4 O4 m 4
diff --git a/data/PaulinoEx8.10.rda b/data/PaulinoEx8.10.rda
new file mode 100644
index 0000000000000000000000000000000000000000..81853eb08f0ec9b364d58d66d236f969b99b2867
GIT binary patch
literal 333
zcmZ>Y%CIzaj8qGboc)?lfq^OF|Dpf??;K!YtZ`stxZt3l{{Mgjg98Ht;|4~{#mp|3
z8ehy?)*p~za@pB&!3DX6uLS+Qa#tEIG?*dm<}A2OZHAgdXF#T@P3Hs#1_qN1#@#_e
z*B0tBTsv8~ux0Ant%^)4VXCu?ua=pdouJwJ>b?=9q{8%PhXpq%3ETR`&R)&rF@fPQ
z8&mETnGWVI$%-i9xt~o=to_9D{msJG|EIW|j9sgLUk`1l{^87jPcd*u!?J4bH#rQJ
zZ|$@<?G5`MwMZ>v!6hw`7cXDkx%%EKXlBmk&s`E6Vhjgd4l#sG6zLR^NseKSHAtMm
z;pXC&5PJI)!?o~>UP)8Z`Q@e9=6o&x^=VO|@qJlKF5Q517M@Q*=LDWEI%2WzrR=tY
rXO9Gg^mbTm?5bLKdaCS7=8kI<X6;>KK8c0%PwYvNhfYrUYb+W73}}#H
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx8.10.Rd b/man/PaulinoEx8.10.Rd
new file mode 100644
index 00000000..77a33576
--- /dev/null
+++ b/man/PaulinoEx8.10.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx8.10.R
+\name{PaulinoEx8.10}
+\alias{PaulinoEx8.10}
+\title{Ensaio Clínico de Pacientes com Úlcera Duodenal}
+\format{Um \code{data.frame} com 48 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{hops}}{Hospital onde foi realizada a cirurgia.}
+
+\item{\code{proc}}{Procediemnto cirúrgico.}
+
+\item{\code{iseq}}{Intensidade da sequela. (N) nenhuma sequela, (l)
+ ligeira e (M) moderada.}
+
+\item{\code{freq}}{Frequência da intensidade.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (Exercício 8.10, pág. 243).
+
+ Grizzle, J. E., Starmer, C. F., Koch, G. G. (1969). Analysis of
+ categorical data by linear models, Biometrics 25: 489-504.
+}
+\description{
+Ensaio clínico envolvendo pacientes com úlcera duodenal.
+ Os pacientes foram aleatoriamente submetidos a um de quatro tipos
+ de cirurgia. Três destas operação envolveram vagotomia, diferindo
+ entre elas pelo grau de resseção estomacal eventualmente efeuado.
+ No primeiro tipo (O1) fez-se apenas uma drenagem enquanto que nas
+ outras operações removeu-se ainda 25\% (O2) e 50\% (O3) de tecido
+ gástrico. O quarto tipo de operação consistiu apenas de uma
+ gastrectomia que removeu 75\% do estômago (O4).
+}
+\examples{
+
+data(PaulinoEx8.10)
+str(PaulinoEx8.10)
+
+library(lattice)
+
+xyplot(freq ~ proc,
+ groups = iseq,
+ data = PaulinoEx8.10,
+ auto.key = list(space = "top", columns = 3, cex.title = 1,
+ title = "Intensidade da sequela"),
+ xlab = "Procedimento cirúrgico",
+ ylab = "Frquência da intensidade")
+
+}
+\keyword{dummy}
+
--
GitLab
From df5ee29fe09aebd9803743243d949dbcd8b51df4 Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Sun, 11 Sep 2016 14:23:23 -0300
Subject: [PATCH 4/6] Adiciona tabela PaulinoEx8.11a ao pacote
---
R/PaulinoEx8.11a.R | 44 ++++++++++++++++++++++++++++++
data-raw/PaulinoEx8.11a.txt | 9 ++++++
data/PaulinoEx8.11a.rda | Bin 0 -> 265 bytes
man/PaulinoEx8.11a.Rd | 53 ++++++++++++++++++++++++++++++++++++
4 files changed, 106 insertions(+)
create mode 100644 R/PaulinoEx8.11a.R
create mode 100644 data-raw/PaulinoEx8.11a.txt
create mode 100644 data/PaulinoEx8.11a.rda
create mode 100644 man/PaulinoEx8.11a.Rd
diff --git a/R/PaulinoEx8.11a.R b/R/PaulinoEx8.11a.R
new file mode 100644
index 00000000..ad440aa2
--- /dev/null
+++ b/R/PaulinoEx8.11a.R
@@ -0,0 +1,44 @@
+#' @name PaulinoEx8.11a
+#' @title Comportamento Predatório da Jararaca
+#' @description Estudo envolvendo o comportamento predatório em
+#' cativeiro da jararaca (uma das serpentes mais venenosas do
+#' Brasil). Objetivo do exercício é analisar os dados estudando o
+#' efeito das características das presas na proporção teória de
+#' botes predatórios.
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{pigm}}{Pigmentação da serpente (escura, albina).}
+#'
+#' \item{\code{peso}}{Peso relativo da serpente (menor, maior).}
+#'
+#' \item{\code{bote}}{Bote predatório (sim, não).}
+#'
+#' \item{\code{freq}}{Frequência observada.}
+#'
+#' }
+#' @keywords contingência binomial
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (Exercício 8.11 a, pág. 244).
+#' @examples
+#'
+#' str(PaulinoEx8.11a)
+#'
+#' xt <- xtabs(freq ~ pigm + peso + bote, data = PaulinoEx8.11a)
+#' xt
+#'
+#' library(lattice)
+#'
+#' barchart(xt,
+#' horizontal = FALSE,
+#' beside = FALSE,
+#' stack = FALSE,
+#' auto.key = list(space = "top", columns = 2,
+#' cex.title = 1, rectangles = TRUE,
+#' points = FALSE, title = "Bote predatório"),
+#' xlab = "Pigmentação",
+#' ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx8.11a.txt b/data-raw/PaulinoEx8.11a.txt
new file mode 100644
index 00000000..04f811e0
--- /dev/null
+++ b/data-raw/PaulinoEx8.11a.txt
@@ -0,0 +1,9 @@
+pigm peso bote freq
+escura menor sim 6
+escura menor nao 3
+escura maior sim 6
+escura maior nao 4
+albina menor sim 5
+albina menor nao 7
+albina maior sim 17
+albina maior nao 4
diff --git a/data/PaulinoEx8.11a.rda b/data/PaulinoEx8.11a.rda
new file mode 100644
index 0000000000000000000000000000000000000000..5d5d80c957881430d4e93aac298feb6d7262522c
GIT binary patch
literal 265
zcmZ>Y%CIzaj8qGbd?eiYi-F<a{{#O&XD~1@8aS{q1UT3)|9`-Nfx&SD!w*N6tG4P(
zJ}fqs%3SRD%51^OUY-;qDPFc-h75*`go%poQ!<<#7hJw*XvnywBez*PE#=suOM!xd
z)3V-7=XdK$T@Z8VQe)Z%$J0v^JeQUIO*j)#-pMxc#QB=eWrF&=mz$^VSDWN$CYs^@
z=6K(Zl@Z-ep$r-m44AzcT1-p~G@e{&$@|{qxy1VQrN2|BUU9CmS^59do{FQIG6jFS
z^;RTq&7CCSaOYa%+L=o$Ugx>m?Df}5Q)15iVL9p4JeBFe4%!QvS95>WeZel==r1BT
YXK{;*h#DLFg58re54E%l%<;bf0OE#ptpET3
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx8.11a.Rd b/man/PaulinoEx8.11a.Rd
new file mode 100644
index 00000000..e2f18677
--- /dev/null
+++ b/man/PaulinoEx8.11a.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx8.11a.R
+\name{PaulinoEx8.11a}
+\alias{PaulinoEx8.11a}
+\title{Comportamento Predatório da Jararaca}
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{pigm}}{Pigmentação da serpente (escura, albina).}
+
+\item{\code{peso}}{Peso relativo da serpente (menor, maior).}
+
+\item{\code{bote}}{Bote predatório (sim, não).}
+
+\item{\code{freq}}{Frequência observada.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (Exercício 8.11 a, pág. 244).
+}
+\description{
+Estudo envolvendo o comportamento predatório em
+ cativeiro da jararaca (uma das serpentes mais venenosas do
+ Brasil). Objetivo do exercício é analisar os dados estudando o
+ efeito das características das presas na proporção teória de
+ botes predatórios.
+}
+\examples{
+
+str(PaulinoEx8.11a)
+
+xt <- xtabs(freq ~ pigm + peso + bote, data = PaulinoEx8.11a)
+xt
+
+library(lattice)
+
+barchart(xt,
+ horizontal = FALSE,
+ beside = FALSE,
+ stack = FALSE,
+ auto.key = list(space = "top", columns = 2,
+ cex.title = 1, rectangles = TRUE,
+ points = FALSE, title = "Bote predatório"),
+ xlab = "Pigmentação",
+ ylab = "Frequência")
+
+}
+\keyword{binomial}
+\keyword{contingência}
+
--
GitLab
From ed7cb9e4467f1e215030a22714bcad106f02a94e Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Sun, 11 Sep 2016 14:49:46 -0300
Subject: [PATCH 5/6] Adiciona tabela PaulinoEx8.11b ao pacote
---
R/PaulinoEx8.11b.R | 34 +++++++++++++++++++++++++++++
data-raw/PaulinoEx8.11b.txt | 5 +++++
data/PaulinoEx8.11b.rda | Bin 0 -> 243 bytes
man/PaulinoEx8.11b.Rd | 42 ++++++++++++++++++++++++++++++++++++
4 files changed, 81 insertions(+)
create mode 100644 R/PaulinoEx8.11b.R
create mode 100644 data-raw/PaulinoEx8.11b.txt
create mode 100644 data/PaulinoEx8.11b.rda
create mode 100644 man/PaulinoEx8.11b.Rd
diff --git a/R/PaulinoEx8.11b.R b/R/PaulinoEx8.11b.R
new file mode 100644
index 00000000..dde7d8e8
--- /dev/null
+++ b/R/PaulinoEx8.11b.R
@@ -0,0 +1,34 @@
+#' @name PaulinoEx8.11b
+#' @title Comportamento Predatório da Jararaca
+#' @description Estudo envolvendo o comportamento predatório em
+#' cativeiro da jararaca (uma das serpentes mais venenosas do
+#' Brasil). Objetivo do exercício é analisar os dados..
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{presa1}}{Tipo de bote na primeira presa (envenenamento,
+#' apreensão).}
+#'
+#' \item{\code{presa2}}{Tipo de bote na segunda presa (envenenamento,
+#' apreensão).}
+#'
+#' \item{\code{freq}}{Frequência observada.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (Exercício 8.11 b, pág. 244).
+#' @examples
+#'
+#' str(PaulinoEx8.11b)
+#'
+#' xt <- xtabs(freq ~ presa1 + presa2, data = PaulinoEx8.11b)
+#' xt
+#'
+#' mosaicplot(xt, main = NULL,
+#' xlab = "Tipo de bote na primeira presa",
+#' ylab = "Tipo de bote na segunda presa")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx8.11b.txt b/data-raw/PaulinoEx8.11b.txt
new file mode 100644
index 00000000..3472bec1
--- /dev/null
+++ b/data-raw/PaulinoEx8.11b.txt
@@ -0,0 +1,5 @@
+presa1 presa2 freq
+envenenamento envenenamento 8
+envenenamento apreensao 10
+apreensao envenenamento 0
+apreensao apreensao 11
diff --git a/data/PaulinoEx8.11b.rda b/data/PaulinoEx8.11b.rda
new file mode 100644
index 0000000000000000000000000000000000000000..be7851f18d59cad03209f3e9dd6ac324be981463
GIT binary patch
literal 243
zcmZ>Y%CIzaj8qGbEcDbbVqn-*f8c+$2Ll76fdd;ufP=mI{{s#T46GX%ZZvAmn>DL_
z<rZJYg$pOU%`*9Fwy<$R3WG#1o3ny}$Fd1+PMICY8jUiysAaZsWJ?@7m3S_7rfP_e
z7-Mjl{rjNs!?|~>7yUXY&+A&F<{P`*-ttuKLxzQ|x~v;|%q}<vymUzSG~t>yQN?V=
ziWC!-{RUpr5-qRGJd<xOvdehC>-7GxYV8Ki#P9O64Q}~!cI<Jw6wJ6rpiW&oOz7z4
z6N>ZNBo);emo4KDJX|@|#YJm+ug;{zLn1w)veFML;<UQ|#GVv+=;U}*W$y_92rpvo
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx8.11b.Rd b/man/PaulinoEx8.11b.Rd
new file mode 100644
index 00000000..1eec0e33
--- /dev/null
+++ b/man/PaulinoEx8.11b.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx8.11b.R
+\name{PaulinoEx8.11b}
+\alias{PaulinoEx8.11b}
+\title{Comportamento Predatório da Jararaca}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{presa1}}{Tipo de bote na primeira presa (envenenamento,
+ apreensão).}
+
+\item{\code{presa2}}{Tipo de bote na segunda presa (envenenamento,
+ apreensão).}
+
+\item{\code{freq}}{Frequência observada.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (Exercício 8.11 b, pág. 244).
+}
+\description{
+Estudo envolvendo o comportamento predatório em
+ cativeiro da jararaca (uma das serpentes mais venenosas do
+ Brasil). Objetivo do exercício é analisar os dados..
+}
+\examples{
+
+str(PaulinoEx8.11b)
+
+xt <- xtabs(freq ~ presa1 + presa2, data = PaulinoEx8.11b)
+xt
+
+mosaicplot(xt, main = NULL,
+ xlab = "Tipo de bote na primeira presa",
+ ylab = "Tipo de bote na segunda presa")
+
+}
+\keyword{contingência}
+
--
GitLab
From 99e99cccffd84d8fd88854f7416a4bbca8b78e62 Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Sun, 11 Sep 2016 15:47:29 -0300
Subject: [PATCH 6/6] Adiciona tabela PaulinoEx8.12 ao pacote
---
R/PaulinoEx8.12.R | 44 ++++++++++++++++++++
data-raw/PaulinoEx8.12.txt | 81 +++++++++++++++++++++++++++++++++++++
data/PaulinoEx8.12.rda | Bin 0 -> 406 bytes
man/PaulinoEx8.12.Rd | 53 ++++++++++++++++++++++++
4 files changed, 178 insertions(+)
create mode 100644 R/PaulinoEx8.12.R
create mode 100644 data-raw/PaulinoEx8.12.txt
create mode 100644 data/PaulinoEx8.12.rda
create mode 100644 man/PaulinoEx8.12.Rd
diff --git a/R/PaulinoEx8.12.R b/R/PaulinoEx8.12.R
new file mode 100644
index 00000000..ee0759cd
--- /dev/null
+++ b/R/PaulinoEx8.12.R
@@ -0,0 +1,44 @@
+#' @name PaulinoEx8.12
+#' @title Obesidade em Crianças Observada em Três Anos
+#' @description Dados de um estudo envolvendo um conjunto de 10 grupos
+#' de crianças, definidos pelo sexo e faixa atária em 1977, que
+#' foram observadas em três ocasiões (1977, 1979, 1981)
+#' relativamente à existência (O) ou não (N) de obesidade,
+#' determinada por uma medida apropriada de peso relativo.
+#' @format Um \code{data.frame} com 80 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{sexo}}{Sexo da criança envolvida no estudo. Feminino (f),
+#' masculino (m).}
+#'
+#' \item{\code{faixa}}{Faixa etária da criança, em 5 categorias.}
+#'
+#' \item{\code{categ}}{Categorias de resposta.}
+#'
+#' \item{\code{nobes}}{Número de crianças na categoria.}
+#'
+#' }
+#' @keywords RP dummy
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (Exercício 8.12, pág. 244).
+#' @examples
+#'
+#' str(PaulinoEx8.12)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' useOuterStrips(
+#' barchart(nobes ~ categ | sexo + faixa, data = PaulinoEx8.12,
+#' ylim = c(0, 170),
+#' panel = function(...) {
+#' args <- list(...)
+#' panel.text(args$x, args$y, args$y,
+#' pos = 3, offset = 0, cex = 0.8)
+#' panel.barchart(...)
+#' })
+#' )
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx8.12.txt b/data-raw/PaulinoEx8.12.txt
new file mode 100644
index 00000000..71cb64b6
--- /dev/null
+++ b/data-raw/PaulinoEx8.12.txt
@@ -0,0 +1,81 @@
+sexo faixa categ nobes
+m 5-7 nnn 90
+m 7-9 nnn 150
+m 9-11 nnn 152
+m 11-13 nnn 119
+m 13-15 nnn 101
+f 5-7 nnn 75
+f 7-9 nnn 154
+f 9-11 nnn 148
+f 11-13 nnn 129
+f 13-15 nnn 91
+m 5-7 nno 9
+m 7-9 nno 15
+m 9-11 nno 11
+m 11-13 nno 7
+m 13-15 nno 4
+f 5-7 nno 8
+f 7-9 nno 14
+f 9-11 nno 6
+f 11-13 nno 8
+f 13-15 nno 9
+m 5-7 non 3
+m 7-9 non 8
+m 9-11 non 8
+m 11-13 non 8
+m 13-15 non 2
+f 5-7 non 2
+f 7-9 non 13
+f 9-11 non 10
+f 11-13 non 7
+f 13-15 non 5
+m 5-7 noo 7
+m 7-9 noo 8
+m 9-11 noo 10
+m 11-13 noo 3
+m 13-15 noo 7
+f 5-7 noo 4
+f 7-9 noo 19
+f 9-11 noo 8
+f 11-13 noo 9
+f 13-15 noo 3
+m 5-7 onn 0
+m 7-9 onn 8
+m 9-11 onn 7
+m 11-13 onn 13
+m 13-15 onn 8
+f 5-7 onn 2
+f 7-9 onn 2
+f 9-11 onn 12
+f 11-13 onn 6
+f 13-15 onn 6
+m 5-7 ono 1
+m 7-9 ono 9
+m 9-11 ono 7
+m 11-13 ono 4
+m 13-15 ono 0
+f 5-7 ono 2
+f 7-9 ono 6
+f 9-11 ono 0
+f 11-13 ono 2
+f 13-15 ono 0
+m 5-7 oon 1
+m 7-9 oon 7
+m 9-11 oon 9
+m 11-13 oon 11
+m 13-15 oon 6
+f 5-7 oon 1
+f 7-9 oon 6
+f 9-11 oon 8
+f 11-13 oon 7
+f 13-15 oon 6
+m 5-7 ooo 8
+m 7-9 ooo 20
+m 9-11 ooo 25
+m 11-13 ooo 16
+m 13-15 ooo 15
+f 5-7 ooo 8
+f 7-9 ooo 21
+f 9-11 ooo 27
+f 11-13 ooo 14
+f 13-15 ooo 15
diff --git a/data/PaulinoEx8.12.rda b/data/PaulinoEx8.12.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e7f1fb4a88e605ca43532d22ec72fcaef81c0635
GIT binary patch
literal 406
zcmZ>Y%CIzaj8qGb>}Q<%f`K`u{>A_Q=QJ3Ytsby(1Vq>`pMM~Mfi=K^fq`)Y<BWxj
z3nqKMn#bmqxkY^m^A!f>OSX<%?L#aZd<{4!9ANMfW?*0xnm8$A=E_$J7Z)o|;FVio
z#2?JEbai}a(`uCf1BQ*>JvTg8G_bB`YRFO*ZMnBCBHT+#W9|BT9BR9>nHaoer1DpW
z@ODIPUuT)Rzg6J0O^KS+w)90Ol6!xiIwRG<HDjxa%9_KoYjtL_tp7IEe#vy7(<#n9
z2YW-GNtIUQx6A+jef#F!?Yp1v-X|0L?|_KKiH6t*^SN90cJ1C-YbX8s==F=wS248-
zI&5)B|D1nWZm*H2-On$z`=dV0Ui5}lhQrm9Q(@8DmM#xgA&o7qLL8EAFPc<3`rpZE
zY&T#?bE;Oa{;+!L;(HQGQkPPl<^=wDUdgw2M$HCm?S^MNQg@g4S{_~MD}GT#(!bvR
zrf+$0#@daOO<I%B+}*Rfz@=M4w5@EWQnQPIE{}HMA_2!ui#GI@Sm~#yv=|zRPHN@;
Pr}w0*V4<QMv-Sl5j~=g*
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx8.12.Rd b/man/PaulinoEx8.12.Rd
new file mode 100644
index 00000000..fd05b9ee
--- /dev/null
+++ b/man/PaulinoEx8.12.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx8.12.R
+\name{PaulinoEx8.12}
+\alias{PaulinoEx8.12}
+\title{Obesidade em Crianças Observada em Três Anos}
+\format{Um \code{data.frame} com 80 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{sexo}}{Sexo da criança envolvida no estudo. Feminino (f),
+ masculino (m).}
+
+\item{\code{faixa}}{Faixa etária da criança, em 5 categorias.}
+
+\item{\code{categ}}{Categorias de resposta.}
+
+\item{\code{nobes}}{Número de crianças na categoria.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (Exercício 8.12, pág. 244).
+}
+\description{
+Dados de um estudo envolvendo um conjunto de 10 grupos
+ de crianças, definidos pelo sexo e faixa atária em 1977, que
+ foram observadas em três ocasiões (1977, 1979, 1981)
+ relativamente à existência (O) ou não (N) de obesidade,
+ determinada por uma medida apropriada de peso relativo.
+}
+\examples{
+
+str(PaulinoEx8.12)
+
+library(lattice)
+library(latticeExtra)
+
+useOuterStrips(
+ barchart(nobes ~ categ | sexo + faixa, data = PaulinoEx8.12,
+ ylim = c(0, 170),
+ panel = function(...) {
+ args <- list(...)
+ panel.text(args$x, args$y, args$y,
+ pos = 3, offset = 0, cex = 0.8)
+ panel.barchart(...)
+ })
+)
+
+}
+\keyword{RP}
+\keyword{dummy}
+
--
GitLab