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