From de7d230a0a2f752b105ced8af7915bedce20bdbb Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Wed, 5 Oct 2016 17:17:32 -0300
Subject: [PATCH] Adiciona tbela 12.2 livro categoricos
---
R/PaulinoTb12.2.R | 38 ++++++++++
data-raw/PaulinoTb12.2.txt | 151 +++++++++++++++++++++++++++++++++++++
data/PaulinoTb12.2.rda | Bin 0 -> 407 bytes
man/PaulinoTb12.2.Rd | 33 ++++++++
4 files changed, 222 insertions(+)
create mode 100644 R/PaulinoTb12.2.R
create mode 100644 data-raw/PaulinoTb12.2.txt
create mode 100644 data/PaulinoTb12.2.rda
create mode 100644 man/PaulinoTb12.2.Rd
diff --git a/R/PaulinoTb12.2.R b/R/PaulinoTb12.2.R
new file mode 100644
index 00000000..26f0b4f0
--- /dev/null
+++ b/R/PaulinoTb12.2.R
@@ -0,0 +1,38 @@
+#' @name PaulinoTb12.2
+#' @title Nível de corrimento vaginal em três avaliações.
+#' @description Um estudo realizado, cujo objetivo era avaliar a eficácia
+#' de um tratamento para infecção urinária no que concerne ao
+#' desaparecimento de um de seus sintomas, foi realizado em 50
+#' pacientes com esse tipo de infecção. Foram examinadas em três
+#' instantes: no dia de início do tratamento e 14 e 21 dias após
+#' essa primeira avaliação. A característica observada foi o nível
+#' de corrimento vaginal, classificado como ausente (0), leve(1),
+#' moderado (2) ou intenso (3).
+#' @format Um \code{data.frame} com 150 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{pac}}{{Pacientes do sexo feminino que participaram do
+#' estudo.}
+#'
+#' \item{\code{aval}}{Avaliação dada as pacientes examiadas em três
+#' instantes.}
+#'
+#' \item{\code{nivel}}{Nível de corrimento vaginal classificado como
+#' ausente(0), leve (1), moderado (2) ou intenso (3).}
+#' }
+#' @keywords longitudinais
+#' @source AULINO; SINGER (2006), Tabela 12.2, pág. 420.
+#' @examples
+#'
+#' library(lattice)
+#' data(PaulinoTb12.2)
+#'
+#' xyplot(nivel~pac|aval, data = PaulinoTb12.2,
+#' type = c('g','b'),
+#' xlab = 'Indivíduos que participaram do estudo',
+#' ylab = 'Valores observados',
+#' main = " Nível de corrimento vaginal em três avaliações")
+#'
+#'
+NULL
diff --git a/data-raw/PaulinoTb12.2.txt b/data-raw/PaulinoTb12.2.txt
new file mode 100644
index 00000000..156b1116
--- /dev/null
+++ b/data-raw/PaulinoTb12.2.txt
@@ -0,0 +1,151 @@
+pac aval nivel
+1 inicial 1
+2 inicial 2
+3 inicial 1
+4 inicial 2
+5 inicial 2
+6 inicial 2
+7 inicial 2
+8 inicial 1
+9 inicial 3
+10 inicial 2
+11 inicial 2
+12 inicial 1
+13 inicial 2
+14 inicial 2
+15 inicial 2
+16 inicial 2
+17 inicial 2
+18 inicial 1
+19 inicial 1
+20 inicial 2
+21 inicial 1
+22 inicial 3
+23 inicial 3
+24 inicial 2
+25 inicial 2
+26 inicial 2
+27 inicial 2
+28 inicial 3
+29 inicial 2
+30 inicial 2
+31 inicial 3
+32 inicial 0
+33 inicial 1
+34 inicial 1
+35 inicial 1
+36 inicial 1
+37 inicial 0
+38 inicial 0
+39 inicial 1
+40 inicial 2
+41 inicial 1
+42 inicial 1
+43 inicial 2
+44 inicial 2
+45 inicial 2
+46 inicial 2
+47 inicial 3
+48 inicial 3
+49 inicial 2
+50 inicial 3
+1 14 dias 0
+2 14 dias 0
+3 14 dias 0
+4 14 dias 0
+5 14 dias 1
+6 14 dias
+7 14 dias
+8 14 dias 1
+9 14 dias 0
+10 14 dias 1
+11 14 dias 1
+12 14 dias 1
+13 14 dias 0
+14 14 dias 0
+15 14 dias 1
+16 14 dias 1
+17 14 dias 1
+18 14 dias 0
+19 14 dias 0
+20 14 dias 0
+21 14 dias 1
+22 14 dias 1
+23 14 dias 0
+24 14 dias 1
+25 14 dias 0
+26 14 dias 0
+27 14 dias 3
+28 14 dias 0
+29 14 dias 2
+30 14 dias 0
+31 14 dias
+32 14 dias
+33 14 dias 1
+34 14 dias 0
+35 14 dias 0
+36 14 dias 1
+37 14 dias 0
+38 14 dias 0
+39 14 dias 0
+40 14 dias 0
+41 14 dias 1
+42 14 dias 0
+43 14 dias
+44 14 dias 2
+45 14 dias 0
+46 14 dias
+47 14 dias 1
+48 14 dias 0
+49 14 dias 1
+50 14 dias 0
+1 21 dias 0
+2 21 dias
+3 21 dias 0
+4 21 dias 0
+5 21 dias
+6 21 dias
+7 21 dias
+8 21 dias 1
+9 21 dias 0
+10 21 dias 2
+11 21 dias 3
+12 21 dias 0
+13 21 dias 0
+14 21 dias 0
+15 21 dias 1
+16 21 dias 1
+17 21 dias 0
+18 21 dias 0
+19 21 dias 0
+20 21 dias 0
+21 21 dias 0
+22 21 dias 0
+23 21 dias 0
+24 21 dias 1
+25 21 dias 0
+26 21 dias 0
+27 21 dias
+28 21 dias 1
+29 21 dias 1
+30 21 dias 0
+31 21 dias 0
+32 21 dias 0
+33 21 dias 0
+34 21 dias 0
+35 21 dias 0
+36 21 dias 0
+37 21 dias 1
+38 21 dias 1
+39 21 dias 0
+40 21 dias 0
+41 21 dias 0
+42 21 dias 0
+43 21 dias
+44 21 dias
+45 21 dias 1
+46 21 dias 0
+47 21 dias 0
+48 21 dias 0
+49 21 dias 1
+50 21 dias 0
diff --git a/data/PaulinoTb12.2.rda b/data/PaulinoTb12.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e9e209bca6381feae64940da339bb16ad1541a05
GIT binary patch
literal 407
zcmZ>Y%CIzaj8qGb+$MDGF9Y++`Un5P;0pr_Lx_XD`TYh521W)3#tn=!CNysK2+p|d
zGplW0@K?dbzEYX57~~c(T*%y%C6jV;vA~hbjLb}#O$I)`CKni61VxRO1=#vBfI#K~
z28L++Y-g5eZcZLUZ&4r5KU-Qq&0-f4l2BAj2veGNVS|dcSr&8a;yI_evsSL#Q=7K%
z_AO4|-*L>meN3C1-tN*;eB?OuYp=onRdMqE*N$o`8g9z&)t|w;IOkBFpzdYCJ;~<h
zm=zDDT6CT>p77MNuXw>rtG>+}-fE~W)KpLXTU&ke)Qa6LU)<l;&B_#DHBaJ5((ixX
zY;gHdxCYy+i7l+oN1xxz<U6)|VXnF2jAxH6&aUF^ir5`-+40Im1|4a^Gp>c=0&GXv
zAInZ;76@_(zI|+kQ}wg$E^~i1Uiu>zmzH*R@paSC`i%8rQ(heowb07#is@@z_9$t4
zaFNU6+;-!`Q~PhNecqwG>sZvZZ)RtGcivPzvTmc(*EvqvlGa^od)6(o44(h!oyT%6
LA+bYI_ZI*F!-lnZ
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb12.2.Rd b/man/PaulinoTb12.2.Rd
new file mode 100644
index 00000000..4fa3631e
--- /dev/null
+++ b/man/PaulinoTb12.2.Rd
@@ -0,0 +1,33 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb12.2.R
+\name{PaulinoTb12.2}
+\alias{PaulinoTb12.2}
+\title{Nível de corrimento vaginal em três avaliações.}
+\source{
+AULINO; SINGER (2006), Tabela 12.2, pág. 420.
+}
+\description{
+Um estudo realizado, cujo objetivo era avaliar a eficácia
+ de um tratamento para infecção urinária no que concerne ao
+ desaparecimento de um de seus sintomas, foi realizado em 50
+ pacientes com esse tipo de infecção. Foram examinadas em três
+ instantes: no dia de início do tratamento e 14 e 21 dias após
+ essa primeira avaliação. A característica observada foi o nível
+ de corrimento vaginal, classificado como ausente (0), leve(1),
+ moderado (2) ou intenso (3).
+}
+\examples{
+
+library(lattice)
+data(PaulinoTb12.2)
+
+xyplot(nivel~pac|aval, data = PaulinoTb12.2,
+ type = c('g','b'),
+ xlab = 'Indivíduos que participaram do estudo',
+ ylab = 'Valores observados',
+ main = " Nível de corrimento vaginal em três avaliações")
+
+
+}
+\keyword{longitudinais}
+
--
GitLab