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] =?UTF-8?q?Adiciona=20dados=20do=20exerc=C3=ADcio=209.31?=
=?UTF-8?q?=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