From e2e62b9e0eefef17c294fbb350d2b8a834b4e630 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Wed, 26 Oct 2016 16:06:58 -0200
Subject: [PATCH] Adiciona correcoes feitas
---
R/SoaresEx6.17.R | 2 +-
R/SoaresEx6.18.R | 19 +++++++++------
R/SoaresTb6.1.R | 2 +-
R/SoaresTb6.15.R | 7 +++---
R/SoaresTb6.18.R | 19 ++++-----------
R/SoaresTb6.20.R | 13 +++-------
data-raw/SoaresTb6.18.txt | 38 ++++++++++-------------------
data-raw/SoaresTb6.20.txt | 50 +++++++++++++-------------------------
data/SoaresTb6.18.rda | Bin 270 -> 205 bytes
data/SoaresTb6.20.rda | Bin 269 -> 196 bytes
man/SoaresEx6.17.Rd | 2 +-
man/SoaresTb6.1.Rd | 2 +-
man/SoaresTb6.15.Rd | 7 +++---
man/SoaresTb6.18.Rd | 8 +++---
man/SoaresTb6.20.Rd | 9 +++----
15 files changed, 68 insertions(+), 110 deletions(-)
diff --git a/R/SoaresEx6.17.R b/R/SoaresEx6.17.R
index 213b8779..b6a74eae 100644
--- a/R/SoaresEx6.17.R
+++ b/R/SoaresEx6.17.R
@@ -17,7 +17,7 @@
#' \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
#' estudo.}
#'
-#' \item{freq}{Frequência de casos em cada combinação.}
+#' \item{\code{freq}}{Frequência de casos em cada combinação.}
#'
#' }
#' @keywords AAS
diff --git a/R/SoaresEx6.18.R b/R/SoaresEx6.18.R
index ff9e5f04..aeae829f 100644
--- a/R/SoaresEx6.18.R
+++ b/R/SoaresEx6.18.R
@@ -6,12 +6,14 @@
#' ou no comportamento dos lactentes foi objeto de estudo de
#' Mennella e Beauchamp (1991). Durante dois dias, com intervalo de
#' uma semana, doze mulheres consumiram suco de laranja puro ou
-#' contendo etanol antes de amamentarem suas crianças e meia-hora
-#' após ter sido obtida uma amostra do leite. Amostras de leite para
-#' o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
-#' da bebida, de modo a interromper o mínimo possível a
-#' amamentação. TODO Não entendi os dados da tabela, não foi
-#' possível associar com o enunciado.
+#' contendo etanol (0.3 g/Kg de massa corporal) antes de amamentarem
+#' suas crianças e meia-hora após ter sido obtida uma amostra do
+#' leite. Metade das mulheres bebeu o etanol no suco de laranja no
+#' primeiro dia de teste e o suco de laranja puro no segundo. A
+#' ordem foi invertida para as seis mulheres remanescentes. Amostras
+#' de leite para o estudo foram obtidas 30 minutos, 1, 2, e 3 horas
+#' após o consumo da bebida, de modo a interromper o mínimo possível
+#' a amamentação.
#' @format Um \code{data.frame} com 4 observações e 6 variáveis, em que
#'
#' \describe{
@@ -19,7 +21,8 @@
#' \item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
#' ingerido pela criança e o tempo de duração da amamentação.}
#'
-#' \item{\code{exp}}{Variável explicativa com os valores.}
+#' \item{\code{exp}}{Variável explicativa com os valores em ml diante do
+#' leite ingerido e em minutos para o tempo.}
#'
#' \item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida.}
#'
@@ -31,7 +34,7 @@
#'
#' }
#' @keywords AAS
-#' @source SOARES; SIQUEIRA, (2002), tabela 18, pág. 231.
+#' @source SOARES; SIQUEIRA, (2002), tabela 18, pág. 230.
#' @references MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
#' to human milk. \emph{The New England Journal of Medicine}, v.325,
#' p.981-5, 1991.
diff --git a/R/SoaresTb6.1.R b/R/SoaresTb6.1.R
index cda42424..78b24944 100644
--- a/R/SoaresTb6.1.R
+++ b/R/SoaresTb6.1.R
@@ -18,7 +18,7 @@
#' \item{freq}{Número de casos em cada situação.}
#'
#' }
-#' @keywords AAS
+#' @keywords TC
#' @source SOARES; SIQUEIRA (2002), tabela 6.1, pág. 177.
#' @references FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
#' efficacy of azidothymidine (AZT) in treatment of patients with
diff --git a/R/SoaresTb6.15.R b/R/SoaresTb6.15.R
index 4fcc2ab0..bdc5546f 100644
--- a/R/SoaresTb6.15.R
+++ b/R/SoaresTb6.15.R
@@ -18,12 +18,11 @@
#' \item{\code{grp}}{Grupos de pacientes segundo recebimento da
#' tieneptina.}
#'
-#' \item{\code{esc}}{Escore final obtido pelo paciente. TODO os escores
-#' dessa tabela são que de dias? todos os paciêntes no dia 7?.}
+#' \item{\code{esc}}{Escore final obtido pelo paciente após os 42 dias.}
#'
#' }
-#' @keywords AAS
-#' @source SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
+#' @keywords TC
+#' @source SOARES; SIQUEIRA (2002), tabela 6.15, pág. 197.
#' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
#' episódios depressivos maiores: estudo multicêntrico, duplo-cego,
#' controlado com placebo. Belo Horizonte: Faculdade de Medicina da
diff --git a/R/SoaresTb6.18.R b/R/SoaresTb6.18.R
index 643ec029..f2a2ff2e 100644
--- a/R/SoaresTb6.18.R
+++ b/R/SoaresTb6.18.R
@@ -5,16 +5,16 @@
#' físicos na redução dos níveis de colesterol. Foram registrados os
#' níveis de colesterol no início e no final do programa de 12
#' participantes.
-#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
+#' @format Um \code{data.frame} com 12 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{prg}}{Expecificação do programa: início e final.}
+#' \item{\code{inicio}}{Nível do colesterol no início do programa.}
#'
-#' \item{\code{col}}{Colesterol dos pacientes.}
+#' \item{\code{final}}{Nível do colesterol no final do programa.}
#'
#' }
-#' @keywords AAS
+#' @keywords TC
#' @source SOARES; SIQUEIRA (2002), tabela 6.18, pág. 203.
#' @examples
#'
@@ -23,19 +23,10 @@
#' data(SoaresTb6.18)
#' str(SoaresTb6.18)
#'
-#' xyplot(exp ~ prg,
+#' xyplot(final ~ inicio,
#' data = SoaresTb6.18,
#' type = c("p", "a"),
#' xlab = "Indivíduos que participaram do programa",
#' ylab = "Níveis de colesterol")
#'
NULL
-
-# TODO: Esses dados parecem ser uma amostra pareada, ou seja, os
-# indivíduos foram medidos duas vezes gerando um par de valores (antes,
-# depois). Sendo assim, o mais apropriado é ter um data.frame com duas
-# colunas, {antes, depois} com os valores de colesterol. Cada linha
-# seria um indivíduo. Se os individuos estão na ordem correta, a função
-# unstack() faz isso facilmente.
-#
-# unstack(SoaresTb6.18, exp ~ prg)
diff --git a/R/SoaresTb6.20.R b/R/SoaresTb6.20.R
index 82151b34..5a5b0f90 100644
--- a/R/SoaresTb6.20.R
+++ b/R/SoaresTb6.20.R
@@ -12,14 +12,13 @@
#' apresentados são escores atribuídos a 16 pacientes do grupo
#' tianeptina que foram admitidos em Belo Horizonte no primeiro dia
#' e no último dia.
-#' @format Um \code{data.frame} com 32 observações e 2 variáveis, em que
+#' @format Um \code{data.frame} com 16 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{per}}{Período de tempo na qual o dado foi coletado.}
+#' \item{\code{pd}}{Escore obtido pelo paciente no primeiro dia.}
#'
-#' \item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
-#' quanto no segundo dia.}
+#' \item{\code{ud}}{Escore obtido pelo paciente no último dia.}
#'
#' }
#' @keywords AAS
@@ -36,7 +35,7 @@
#' data(SoaresTb6.20)
#' str(SoaresTb6.20)
#'
-#' xyplot(esc ~ per,
+#' xyplot(ud ~ pd,
#' data = SoaresTb6.20,
#' type = c("p", "a"),
#' jitter.x = TRUE,
@@ -45,7 +44,3 @@
#'
NULL
-# TODO Esse parece ser um dado pareado onde o indivíduo é medido duas
-# vezes, no primeiro e no último dia. É mais apropriado representar em
-# uma tabela com duas colunas, {primeiro, ultimo}, com os valores para o
-# escore sendo que cada linha seria um indivíduo.
diff --git a/data-raw/SoaresTb6.18.txt b/data-raw/SoaresTb6.18.txt
index 329db27c..55dee0ce 100644
--- a/data-raw/SoaresTb6.18.txt
+++ b/data-raw/SoaresTb6.18.txt
@@ -1,25 +1,13 @@
-prg exp
-inicio 201
-inicio 231
-inicio 221
-inicio 260
-inicio 228
-inicio 237
-inicio 326
-inicio 235
-inicio 240
-inicio 267
-inicio 284
-inicio 201
-final 200
-final 236
-final 216
-final 233
-final 224
-final 216
-final 296
-final 195
-final 207
-final 247
-final 210
-final 209
+inicio final
+201 200
+231 236
+221 216
+260 233
+228 224
+237 216
+326 296
+235 195
+240 207
+267 247
+284 210
+201 209
diff --git a/data-raw/SoaresTb6.20.txt b/data-raw/SoaresTb6.20.txt
index ead48b04..cf892c51 100644
--- a/data-raw/SoaresTb6.20.txt
+++ b/data-raw/SoaresTb6.20.txt
@@ -1,33 +1,17 @@
-per esc
-primeiro dia 24
-primeiro dia 46
-primeiro dia 26
-primeiro dia 44
-primeiro dia 27
-primeiro dia 34
-primeiro dia 33
-primeiro dia 25
-primeiro dia 35
-primeiro dia 30
-primeiro dia 38
-primeiro dia 38
-primeiro dia 31
-primeiro dia 27
-primeiro dia 34
-primeiro dia 32
-ultimo dia 6
-ultimo dia 33
-ultimo dia 21
-ultimo dia 26
-ultimo dia 10
-ultimo dia 29
-ultimo dia 33
-ultimo dia 29
-ultimo dia 37
-ultimo dia 15
-ultimo dia 2
-ultimo dia 21
-ultimo dia 7
-ultimo dia NA
-ultimo dia NA
-ultimo dia 26
+pd ud
+24 6
+46 33
+26 21
+44 26
+27 10
+34 29
+33 33
+25 29
+35 37
+30 15
+38 2
+38 21
+31 7
+27
+34
+32 26
diff --git a/data/SoaresTb6.18.rda b/data/SoaresTb6.18.rda
index 0cb2369dff5d0a3464d87c612212ef6e4f1ebd95..495b541525cf3df45de1d3b1112229286c6b4025 100644
GIT binary patch
literal 205
zcmZ>Y%CIzaj8qGbydR#e$G}ikfBe6l2MdFvp#v*}jDx-UoCXI5j)V<PF6&$x7cg}3
z3Mos?<dx!OT)=SI+1J1}Kvht2;R3d{UIt#1lZzb~7M0wK<~J=6YW&o@mHqv`+CMja
zE??|?zp-Y~%r{;o6V{qrO<~fzU$sL)?dX{`U)F|X@GsI}T<Idg)!dtqa-yTU*GGbJ
zD!<T@-m|a59zMV28Fa+3Pip0+)`b>FxV<h38^vy$B6#fW)osi?Jkm-m?2nb%|HPgY
MdFbR^8@px)0FruAsQ>@~
literal 270
zcmZ>Y%CIzaj8qGb{Ma?Wk%8g#|LgzjJX{<c4INk+WE||5-#y^Kz`(?ju))dYokQaW
zhFfdfI@KB&7&3Sn7&5-vI{U8NYU{LorIf9j;$((d%)SPU5^4^%3P}?gG8dR!U;qJ=
zWKIr?CI|7@NjFLlN;22V?4QEn%wJG>_RoXgkFOtpc66Tnn)qo^aYhOfcSWRLGRQw@
z=<U6<JS>Gl;o(Um*%_A{wlLOA>0+7KDiGnsu*5mnK<t77%NOT16-j1;);V11ne!&C
zEZ<Yu7<g3rnby)mGil?SKaM<(`ew#+@k4uCxS?pnS)B-t@+TtaXU`N!5n^WPOlGgy
Zy@o}pqeEzh<e%7+A`hLMk7?Dh008U6Y9s&v
diff --git a/data/SoaresTb6.20.rda b/data/SoaresTb6.20.rda
index 3f3362333d400db8a984f195c5abb109ef8d2e5d..045371cec26dd456f814b60d4e5cdf05868f43ea 100644
GIT binary patch
literal 196
zcmZ>Y%CIzaj8qGbJlFoqfPrCB{el16PF4SA4P;<pka4hQzt`Zv;J~<mp_A9w)TH0z
z@|6se%g(157^I}HGI=_hFff?NEnuANkh$>7)q*)MlllT)iYe{d{X}cgy<}c?Z_f><
z*$qFmvV3n}C!SDJQd?!BJ2z<-qheOViL=}<YIrjZIEob?qzLT$#Hw77$iHDhBD-YW
zrEZr?cPAGwUDSDg^7-&7-X1H})|Kj=%~`7ab1^3~&ulCC$1L1Gc2Ckg)Y4XBf3X1o
Dz4uY8
literal 269
zcmZ>Y%CIzaj8qGb<c(rl%)s!a{^0*@r>cLm1~RZP$T--m-*0eWaA06y+`w>awt$AR
zTbr-RS4l(Ll}5Y_QYnd|W{WvzGD<LTwn$|*RY`G*Xc_yuotW2h;bg~Ug|ub<!Gg>6
zZY)_6aO}a670bk{xJxeho$lH5Dlz?AL~(kYXXlZr@|hXGMAEi4o!xS2(%;?D(hM$+
zArkWL{D*B%u(-<QOm_LuvDU&vY)TuaF0Y2-0%<S9CYIc~vw}%EK^Ydj%8&BO);_-*
z8(mr%p7{G``-F>Lp(gLV4+oe%Vsf$XTgATF<^{)TvjW+xO=_tutIzgc+~h44n4yrv
a$7<ZEcQ={oW8*!&CtU>#6{NPXx&Z(taBLU=
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
index 736d5c6e..5365fa9d 100644
--- a/man/SoaresEx6.17.Rd
+++ b/man/SoaresEx6.17.Rd
@@ -14,7 +14,7 @@
\item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
estudo.}
-\item{freq}{Frequência de casos em cada combinação.}
+\item{\code{freq}}{Frequência de casos em cada combinação.}
}}
\source{
diff --git a/man/SoaresTb6.1.Rd b/man/SoaresTb6.1.Rd
index dce1b501..2ced6ba3 100644
--- a/man/SoaresTb6.1.Rd
+++ b/man/SoaresTb6.1.Rd
@@ -52,5 +52,5 @@ FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
trial. \emph{The New England Journal of Medicine}, v.317, n.4
p.185-91, 1987.
}
-\keyword{AAS}
+\keyword{TC}
diff --git a/man/SoaresTb6.15.Rd b/man/SoaresTb6.15.Rd
index 9649f510..d70c593c 100644
--- a/man/SoaresTb6.15.Rd
+++ b/man/SoaresTb6.15.Rd
@@ -11,12 +11,11 @@
\item{\code{grp}}{Grupos de pacientes segundo recebimento da
tieneptina.}
-\item{\code{esc}}{Escore final obtido pelo paciente. TODO os escores
- dessa tabela são que de dias? todos os paciêntes no dia 7?.}
+\item{\code{esc}}{Escore final obtido pelo paciente após os 42 dias.}
}}
\source{
-SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
+SOARES; SIQUEIRA (2002), tabela 6.15, pág. 197.
}
\description{
A tianeptina é um fármaco antidepressivo do grupo dos
@@ -53,5 +52,5 @@ ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
e Social).
}
-\keyword{AAS}
+\keyword{TC}
diff --git a/man/SoaresTb6.18.Rd b/man/SoaresTb6.18.Rd
index b338ece6..dbb6d975 100644
--- a/man/SoaresTb6.18.Rd
+++ b/man/SoaresTb6.18.Rd
@@ -3,13 +3,13 @@
\name{SoaresTb6.18}
\alias{SoaresTb6.18}
\title{Níveis de Colesterol no Início e no Final do Programa}
-\format{Um \code{data.frame} com 24 observações e 2 variáveis, em que
+\format{Um \code{data.frame} com 12 observações e 2 variáveis, em que
\describe{
-\item{\code{prg}}{Expecificação do programa: início e final.}
+\item{\code{inicio}}{Nível do colesterol no início do programa.}
-\item{\code{col}}{Colesterol dos pacientes.}
+\item{\code{final}}{Nível do colesterol no final do programa.}
}}
\source{
@@ -36,5 +36,5 @@ xyplot(exp ~ prg,
ylab = "Níveis de colesterol")
}
-\keyword{AAS}
+\keyword{TC}
diff --git a/man/SoaresTb6.20.Rd b/man/SoaresTb6.20.Rd
index 6c25dbdf..b0f8dbb6 100644
--- a/man/SoaresTb6.20.Rd
+++ b/man/SoaresTb6.20.Rd
@@ -3,14 +3,13 @@
\name{SoaresTb6.20}
\alias{SoaresTb6.20}
\title{Escores do Grupo Tianeptina no Primeiro e Último Dia}
-\format{Um \code{data.frame} com 32 observações e 2 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 2 variáveis, em que
\describe{
-\item{\code{per}}{Período de tempo na qual o dado foi coletado.}
+\item{\code{pd}}{Escore obtido pelo paciente no primeiro dia.}
-\item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
- quanto no segundo dia.}
+\item{\code{ud}}{Escore obtido pelo paciente no último dia.}
}}
\source{
@@ -37,7 +36,7 @@ library(lattice)
data(SoaresTb6.20)
str(SoaresTb6.20)
-xyplot(esc ~ per,
+xyplot(ud ~ pd,
data = SoaresTb6.20,
type = c("p", "a"),
jitter.x = TRUE,
--
GitLab