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] 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