Adiciona correcoes feitas

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

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.

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

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

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)

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.

data-raw/SoaresTb6.18.txt

-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

data-raw/SoaresTb6.20.txt

-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

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{

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}
 

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}
 

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}
 

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,