From 94ce8c7f662d5fa3b987a77049ce30c0581b952b Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Thu, 6 Oct 2016 14:26:54 -0300
Subject: [PATCH] Adiciona tabela 12.6 livro categoricos

---
 R/PaulinoTb12.6.R          |  44 ++++
 data-raw/PaulinoTb12.6.txt | 416 +++++++++++++++++++++++++++++++++++++
 data/PaulinoTb12.6.rda     | Bin 0 -> 427 bytes
 man/PaulinoTb12.6.Rd       |  54 +++++
 4 files changed, 514 insertions(+)
 create mode 100644 R/PaulinoTb12.6.R
 create mode 100644 data-raw/PaulinoTb12.6.txt
 create mode 100644 data/PaulinoTb12.6.rda
 create mode 100644 man/PaulinoTb12.6.Rd

diff --git a/R/PaulinoTb12.6.R b/R/PaulinoTb12.6.R
new file mode 100644
index 00000000..3eda2dc3
--- /dev/null
+++ b/R/PaulinoTb12.6.R
@@ -0,0 +1,44 @@
+#' @name PaulinoTb12.6
+#' @title Índice para avaliação da consistência do colo uterino.
+#' @description Um estudo realizado no Hospital Universitário da 
+#'     Universidade de São Paulo cujo objetivo principal era avaliar o 
+#'     efeito de uma enzima (hialuronidase) na maturação do colo uterino
+#'     de mulheres com 37 a 42 semanas de gestação. Um objetivo 
+#'     secundário era comparar gestantes nulíparas (N) e multíparas (M) 
+#'     quanto à evolução de um índice (com categorias 0 = macio, 
+#'     1 = médio e 2 = duro) construído para avaliar a consistência do 
+#'     colo do útero. As avaliações foram realizadas por ocasião da 
+#'     admissão ao estudo e 24, 48, 72, e 98 horas após esse instante.
+#' @format Um \code{data.frame} com 415 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{pari}}{Paridade de gestantes nulíparas (N) e multíparas 
+#'     (M)}
+#'
+#' \item{\code{aval}}{Avaliação realizada no período de 0 horas, 
+#'     24 horas, 48 horas, 72 horas e 96 horas.}
+#'
+#' \item{\code{freq}}{Variável com os valores associados a avaliação.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 12.5, pág. 422.
+#' @references Spallicci, M. D. B., Chiea, M. A., Singer, J. M., 
+#'     Albuquerque, P. B. & Brittar, R. E. (2006). Use of hialuronidase 
+#'     for cervical ripening: a randomized tiral, European Journal of 
+#'     Obstetrics e Gynecology and Reproductive Biology To appear.
+#' @examples
+#' 
+#' library(lattice)
+#' data(PaulinoTb12.6) 
+#' 
+#' dados <- xtabs(freq ~ pari + aval, data = PaulinoTb12.6)
+#' barchart(dados, horizontal = FALSE, 
+#'     stack = FALSE,
+#'     scales = list(x = list(labels = c("M","N"))),
+#'     ylab = "Frequência",
+#'     xlab = "Paridade",
+#'     main = "Índice para avaliação da consistência do colo uterino.",
+#'     auto.key = list(corner = c(0.05, 0.95), 
+#'     text = c("0 horas", "24 horas", "48 horas", "72 horas", "96 horas")))
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb12.6.txt b/data-raw/PaulinoTb12.6.txt
new file mode 100644
index 00000000..65909357
--- /dev/null
+++ b/data-raw/PaulinoTb12.6.txt
@@ -0,0 +1,416 @@
+pari	aval	freq
+N	0 horas	2
+N	24 horas	2
+N	48 horas	1
+N	72 horas	0
+N	96 horas	0
+N	0 horas	2
+N	24 horas	0
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	2
+N	48 horas	2
+N	72 horas	0
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	1
+N	48 horas	1
+N	72 horas	0
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	0
+N	96 horas	
+N	0 horas	2
+N	24 horas	2
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	2
+N	48 horas	1
+N	72 horas	0
+N	96 horas	0
+N	0 horas	2
+N	24 horas	2
+N	48 horas	2
+N	72 horas	1
+N	96 horas	1
+N	0 horas	2
+N	24 horas	2
+N	48 horas	1
+N	72 horas	0
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	2
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	1
+N	48 horas	1
+N	72 horas	0
+N	96 horas	
+N	0 horas	2
+N	24 horas	1
+N	48 horas	1
+N	72 horas	0
+N	96 horas	0
+N	0 horas	2
+N	24 horas	1
+N	48 horas	1
+N	72 horas	0
+N	96 horas	0
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	2
+N	48 horas	1
+N	72 horas	0
+N	96 horas	0
+N	0 horas	2
+N	24 horas	1
+N	48 horas	0
+N	72 horas	0
+N	96 horas	
+N	0 horas	2
+N	24 horas	
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	2
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	1
+N	24 horas	1
+N	48 horas	1
+N	72 horas	0
+N	96 horas	
+N	0 horas	1
+N	24 horas	
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	0
+N	96 horas	0
+N	0 horas	1
+N	24 horas	0
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	1
+N	48 horas	1
+N	72 horas	0
+N	96 horas	0
+N	0 horas	2
+N	24 horas	0
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	0
+N	96 horas	0
+N	0 horas	2
+N	24 horas	0
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	1
+N	24 horas	0
+N	48 horas	0
+N	72 horas	0
+N	96 horas	0
+N	0 horas	1
+N	24 horas	0
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	1
+N	24 horas	1
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	1
+N	24 horas	0
+N	48 horas	
+N	72 horas	
+N	96 horas	
+N	0 horas	1
+N	24 horas	1
+N	48 horas	0
+N	72 horas	0
+N	96 horas	
+N	0 horas	2
+N	24 horas	1
+N	48 horas	0
+N	72 horas	
+N	96 horas	
+N	0 horas	1
+N	24 horas	1
+N	48 horas	1
+N	72 horas	
+N	96 horas	
+N	0 horas	1
+N	24 horas	1
+N	48 horas	1
+N	72 horas	
+N	96 horas	
+N	0 horas	1
+N	24 horas	0
+N	48 horas	0
+N	72 horas	0
+N	96 horas	
+M	0 horas	2
+M	24 horas	2
+M	48 horas	2
+M	72 horas	2
+M	96 horas	2
+M	0 horas	2
+M	24 horas	2
+M	48 horas	2
+M	72 horas	1
+M	96 horas	0
+M	0 horas	2
+M	24 horas	2
+M	48 horas	2
+M	72 horas	2
+M	96 horas	2
+M	0 horas	1
+M	24 horas	1
+M	48 horas	1
+M	72 horas	0
+M	96 horas	0
+M	0 horas	2
+M	24 horas	1
+M	48 horas	1
+M	72 horas	0
+M	96 horas	
+M	0 horas	2
+M	24 horas	2
+M	48 horas	2
+M	72 horas	0
+M	96 horas	
+M	0 horas	2
+M	24 horas	2
+M	48 horas	1
+M	72 horas	1
+M	96 horas	0
+M	0 horas	2
+M	24 horas	2
+M	48 horas	1
+M	72 horas	0
+M	96 horas	
+M	0 horas	1
+M	24 horas	1
+M	48 horas	1
+M	72 horas	0
+M	96 horas	
+M	0 horas	1
+M	24 horas	1
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	1
+M	24 horas	
+M	48 horas	
+M	72 horas	
+M	96 horas	
+M	0 horas	1
+M	24 horas	0
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	1
+M	24 horas	1
+M	48 horas	1
+M	72 horas	1
+M	96 horas	1
+M	0 horas	1
+M	24 horas	0
+M	48 horas	0
+M	72 horas	0
+M	96 horas	0
+M	0 horas	1
+M	24 horas	1
+M	48 horas	1
+M	72 horas	0
+M	96 horas	0
+M	0 horas	1
+M	24 horas	1
+M	48 horas	1
+M	72 horas	1
+M	96 horas	
+M	0 horas	1
+M	24 horas	0
+M	48 horas	
+M	72 horas	
+M	96 horas	
+M	0 horas	1
+M	24 horas	0
+M	48 horas	0
+M	72 horas	0
+M	96 horas	
+M	0 horas	1
+M	24 horas	0
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	2
+M	24 horas	1
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	2
+M	24 horas	0
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	1
+M	24 horas	0
+M	48 horas	
+M	72 horas	
+M	96 horas	
+M	0 horas	2
+M	24 horas	2
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	1
+M	24 horas	
+M	48 horas	
+M	72 horas	
+M	96 horas	
+M	0 horas	1
+M	24 horas	1
+M	48 horas	1
+M	72 horas	0
+M	96 horas	
+M	0 horas	1
+M	24 horas	0
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	2
+M	24 horas	0
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	2
+M	24 horas	2
+M	48 horas	2
+M	72 horas	0
+M	96 horas	0
+M	0 horas	1
+M	24 horas	0
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	1
+M	24 horas	1
+M	48 horas	1
+M	72 horas	0
+M	96 horas	0
+M	0 horas	2
+M	24 horas	1
+M	48 horas	1
+M	72 horas	0
+M	96 horas	0
+M	0 horas	1
+M	24 horas	1
+M	48 horas	0
+M	72 horas	0
+M	96 horas	0
+M	0 horas	2
+M	24 horas	0
+M	48 horas	
+M	72 horas	
+M	96 horas	
+M	0 horas	2
+M	24 horas	
+M	48 horas	
+M	72 horas	
+M	96 horas	
+M	0 horas	2
+M	24 horas	0
+M	48 horas	0
+M	72 horas	
+M	96 horas	
+M	0 horas	2
+M	24 horas	
+M	48 horas	
+M	72 horas	
+M	96 horas	
+M	0 horas	2
+M	24 horas	0
+M	48 horas	
+M	72 horas	
+M	96 horas	
diff --git a/data/PaulinoTb12.6.rda b/data/PaulinoTb12.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2586f092ed43c3abcb713e34aeca96f90c58e3b2
GIT binary patch
literal 427
zcmZ>Y%CIzaj8qGbY}mFynSpav{e%C%PB1tymOfx%4sozg|KH%iz`)SJcz{W8Nt@%6
z;42rOT;gS%U~<{l*4f$D#@CU{)n@?%!wCjvhYXgG-r%pkD?Twva2)XInU%oIz;J;<
z(u9FQio+;l(Xu4<g`$Ugl(-g7S+-W`;Z)Yp;E+q6E}<qXma2d5XiDq5D0=dm*$bf^
z9*Yj8vaAYX&GB^9b<<y=6mUk-t0~`esmhG~_IESvZ!db&wqVh;MVV4w3zsx?YGkEM
z`}_Ny)vXn(KB59yO^e*-6d!47O5gh1ersLv0<L`lj{X)3OHAJXU*_q`XdJ=9U&z74
zc=_3C=F@$gqB<cvlh>SF=xQqAq<N|JnA6pm>nc`r&$v!*OP$)!(!<^I*x0%`C`%yV
zw$_eGN`WgwDh_GX{H=JmR5Nqcj+PITujHgwoH_SAa?O-L=g2hnI||3U&p9oxTe^2g
z&-S(MTp2U{6vagLi|9J4`B#~82*kOZF_UOqT%>!hM6m3{Is14MxekU`rzc&UcwSQa
l496Lnj1|jvemJ$jSDI@MU!Qa3`X9R|X&!26Vcp6o0RRRXwuk@#

literal 0
HcmV?d00001

diff --git a/man/PaulinoTb12.6.Rd b/man/PaulinoTb12.6.Rd
new file mode 100644
index 00000000..568c18b4
--- /dev/null
+++ b/man/PaulinoTb12.6.Rd
@@ -0,0 +1,54 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb12.6.R
+\name{PaulinoTb12.6}
+\alias{PaulinoTb12.6}
+\title{Índice para avaliação da consistência do colo uterino.}
+\format{Um \code{data.frame} com 415 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{pari}}{Paridade de gestantes nulíparas (N) e multíparas 
+    (M)}
+
+\item{\code{aval}}{Avaliação realizada no período de 0 horas, 
+    24 horas, 48 horas, 72 horas e 96 horas.}
+
+\item{\code{freq}}{Variável com os valores associados a avaliação.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 12.5, pág. 422.
+}
+\description{
+Um estudo realizado no Hospital Universitário da 
+    Universidade de São Paulo cujo objetivo principal era avaliar o 
+    efeito de uma enzima (hialuronidase) na maturação do colo uterino
+    de mulheres com 37 a 42 semanas de gestação. Um objetivo 
+    secundário era comparar gestantes nulíparas (N) e multíparas (M) 
+    quanto à evolução de um índice (com categorias 0 = macio, 
+    1 = médio e 2 = duro) construído para avaliar a consistência do 
+    colo do útero. As avaliações foram realizadas por ocasião da 
+    admissão ao estudo e 24, 48, 72, e 98 horas após esse instante.
+}
+\examples{
+
+library(lattice)
+data(PaulinoTb12.6) 
+
+dados <- xtabs(freq ~ pari + aval, data = PaulinoTb12.6)
+barchart(dados, horizontal = FALSE, 
+    stack = FALSE,
+    scales = list(x = list(labels = c("M","N"))),
+    ylab = "Frequência",
+    xlab = "Paridade",
+    main = "Índice para avaliação da consistência do colo uterino.",
+    auto.key = list(corner = c(0.05, 0.95), 
+    text = c("0 horas", "24 horas", "48 horas", "72 horas", "96 horas")))
+}
+\references{
+Spallicci, M. D. B., Chiea, M. A., Singer, J. M., 
+    Albuquerque, P. B. & Brittar, R. E. (2006). Use of hialuronidase 
+    for cervical ripening: a randomized tiral, European Journal of 
+    Obstetrics e Gynecology and Reproductive Biology To appear.
+}
+\keyword{TC}
+
-- 
GitLab