From fb141ecb9b38396bf91c9e58aaeb6aa12738af5c Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Tue, 30 Aug 2016 15:05:19 -0300
Subject: [PATCH] Adiciona tabela PaulinoTb1.15 ao pacote
---
R/PaulinoTb1.15.R | 50 ++++++++++++++++++++++++++++++++
data-raw/PaulinoTb1.15.txt | 50 ++++++++++++++++++++++++++++++++
data/PaulinoTb1.15.rda | Bin 0 -> 363 bytes
man/PaulinoTb1.15.Rd | 58 +++++++++++++++++++++++++++++++++++++
4 files changed, 158 insertions(+)
create mode 100644 R/PaulinoTb1.15.R
create mode 100644 data-raw/PaulinoTb1.15.txt
create mode 100644 data/PaulinoTb1.15.rda
create mode 100644 man/PaulinoTb1.15.Rd
diff --git a/R/PaulinoTb1.15.R b/R/PaulinoTb1.15.R
new file mode 100644
index 00000000..8aaaaa33
--- /dev/null
+++ b/R/PaulinoTb1.15.R
@@ -0,0 +1,50 @@
+#' @name PaulinoTb1.15
+#' @title Pacientes com Endometriose
+#' @description Estudo sobre endometriose realizado na Faculdade de
+#' Medicina da Universidade de São Paulo. A endometriose
+#' caracteriza-se pela localização etópica do tecido endometrial e é
+#' uma das principais causas de infertilidade.
+#' @format Um \code{data.frame} com 49 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{grupo}}{Grupo de indivíduos envolvido no estudo.}
+#'
+#' \item{\code{abort}}{Número de abortos sofridos pela paciente.}
+#'
+#' \item{\code{dismen}}{Sintoma da dismenorréia (dor na menstrução),
+#' classificada como: N = não tem, L = leve, M = moderada,
+#' I = intensa.}
+#'
+#' \item{\code{dispa}}{Sintoma da dispareunia (dor na relação sexual),
+#' classificada como: N = não tem, P = tem, PRO = tem, com mais
+#' intensidade, 2 = tem em ambas a posições.}
+#'
+#' \item{\code{afsr}}{AFSr, gravidade da doença em que as pacientes
+#' foram classificadas, cujos valores variam de 0 (não tem) a 4
+#' (muito grave).}
+#'
+#' }
+#' @keywords dados-categorizados
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (Tabela 1.15, pág. 17).
+#' @examples
+#'
+#' str(PaulinoTb1.15)
+#'
+#' sapply(PaulinoTb1.15, unique)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' da <- na.omit(PaulinoTb1.15)
+#'
+#' useOuterStrips(
+#' barchart(grupo ~ abort | dismen + dispa,
+#' groups = afsr,
+#' data = da,
+#' horizontal = FALSE)
+#' )
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb1.15.txt b/data-raw/PaulinoTb1.15.txt
new file mode 100644
index 00000000..44049ab1
--- /dev/null
+++ b/data-raw/PaulinoTb1.15.txt
@@ -0,0 +1,50 @@
+grupo abort dismen dispa afsr
+controlo 0 L N 0
+controlo 1 N P 0
+controlo 0 N N 0
+controlo 0 L N 0
+controlo 1 N N 0
+controlo 0 L N 0
+controlo 1 N N 0
+controlo 4 N N 0
+controlo 1 N N 0
+controlo 1 N N 0
+controlo 3 N N 0
+controlo 0 N N 0
+controlo 0 L N 0
+controlo 0 M P 0
+controlo 0 N N 0
+doente 0 M P 1
+doente 0 M N 1
+doente 0 I PRO 1
+doente 0 L N 1
+doente 1 M N 1
+doente 4 I 2 1
+doente 0 S/ N 1
+doente 0 M 2 1
+doente 0 M 1
+doente 0 L N 2
+doente 2 M 2 2
+doente 0 I PRO 2
+doente 0 I PRO 2
+doente 1 I PRO 2
+doente 0 M N 2
+doente 1 M P 2
+doente 0 I PRO 2
+doente 1 I PRO 2
+doente 1 I PRO 2
+doente 1 I PRO 2
+doente 0 I N 3
+doente 0 L PRO 3
+doente 1 M PRO 3
+doente 0 I N 3
+doente 0 M 3
+doente 0 I N 3
+doente 0 M 2 3
+doente 0 I PRO 3
+doente 0 M PRO 3
+doente 0 I N 3
+doente 0 I 2 4
+doente 1 I PRO 4
+doente 0 M N 4
+doente 0 I PRO 4
diff --git a/data/PaulinoTb1.15.rda b/data/PaulinoTb1.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..08d251612119a15120414e2e7a3da9737da6386a
GIT binary patch
literal 363
zcmZ>Y%CIzaj8qGbv}Wv_z`#`c|H%JOCm0$SH*v72-*K>Ce!szifq|icaRX!FERS9x
z|6o%yj|(O#mpK?DjWSHWOqd+3aN$VC1w&@HW(6V5DKmwgPcbf#Q25kfR5knZGo_}D
zSteYHT`VqLEglYYO!O=Sk~&1QcwMx%O>xe;tSYS1`Eb|Qraj^J5^_y={AQ$eDvGO?
zPF<y99(JYSsLHmLDWRd8oV1fN*ROvxQDWI~XDj)K-RoXDC_I#6csy^%luO>+izbS_
zdh=ifgUCjOwH<=GvtP`c)wOTh;cTJj6FQH{Fz~TB9Axx)eo$nw+w{o-!XnNYylXbB
z6%k@w*wAG#ZJVK@j%9|>jJC7elUo+w`@K0be9OW;w@ov)FZwV3cG^MJ;HlTPolMxs
zyu9Le9lPWdi<S#^pS_+wWS{=V$jz8lKgLRW>CINJ5+6>bch&5=D+TT4oI4L(^iH`V
X`?YDMBTIevPNg{-9<mKbPA~ufXcU^~
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb1.15.Rd b/man/PaulinoTb1.15.Rd
new file mode 100644
index 00000000..db2145e3
--- /dev/null
+++ b/man/PaulinoTb1.15.Rd
@@ -0,0 +1,58 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.15.R
+\name{PaulinoTb1.15}
+\alias{PaulinoTb1.15}
+\title{Pacientes com Endometriose}
+\format{Um \code{data.frame} com 49 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{grupo}}{Grupo de indivíduos envolvido no estudo.}
+
+\item{\code{abort}}{Número de abortos sofridos pela paciente.}
+
+\item{\code{dismen}}{Sintoma da dismenorréia (dor na menstrução),
+ classificada como: N = não tem, L = leve, M = moderada,
+ I = intensa.}
+
+\item{\code{dispa}}{Sintoma da dispareunia (dor na relação sexual),
+ classificada como: N = não tem, P = tem, PRO = tem, com mais
+ intensidade, 2 = tem em ambas a posições.}
+
+\item{\code{afsr}}{AFSr, gravidade da doença em que as pacientes
+ foram classificadas, cujos valores variam de 0 (não tem) a 4
+ (muito grave).}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (Tabela 1.15, pág. 17).
+}
+\description{
+Estudo sobre endometriose realizado na Faculdade de
+ Medicina da Universidade de São Paulo. A endometriose
+ caracteriza-se pela localização etópica do tecido endometrial e é
+ uma das principais causas de infertilidade.
+}
+\examples{
+
+str(PaulinoTb1.15)
+
+sapply(PaulinoTb1.15, unique)
+
+library(lattice)
+library(latticeExtra)
+
+da <- na.omit(PaulinoTb1.15)
+
+useOuterStrips(
+ barchart(grupo ~ abort | dismen + dispa,
+ groups = afsr,
+ data = da,
+ horizontal = FALSE)
+)
+
+}
+\keyword{dados-categorizados}
+
--
GitLab