diff --git a/R/SoaresEx6.17.R b/R/SoaresEx6.17.R
index 282e9689942d59cd83737312ab4e0e340a4d5195..213b87797b324e05777e04561a937e36309ea024 100644
--- a/R/SoaresEx6.17.R
+++ b/R/SoaresEx6.17.R
@@ -1,50 +1,48 @@
#' @name SoaresEx6.17
-#' @title Relação entre a depressão e o desejo pela morte de pacientes
-#' com câncer terminal.
+#' @title Relação entre a Depressão e o Desejo pela Morte de Pacientes
+#' com Câncer Terminal
#' @description Um estudo feito por Chochinov et al. (1995) contou com a
-#' participação de 190 pacientes de dois hospitais em Winnipeg,
+#' participação de 190 pacientes de dois hospitais em Winnipeg,
#' Canadá, com diagnóstico primário de câncer terminal, admitidos no
-#' período de coletas de dados. Uma das preocupações era verificar a
-#' existência de relação entre o desejo de morte relatado por alguns
+#' período de coletas de dados. Uma das preocupações era verificar a
+#' existência de relação entre o desejo de morte relatado por alguns
#' deles e a depressão diagnosticada em alguns casos.
-#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
+#' \item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
#' do estudo.}
#'
-#' \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
+#' \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
#' estudo.}
#'
-#' \item{exp}{Variável explicativa entre o desejo pela morte e a
-#' depressão.}
+#' \item{freq}{Frequência de casos em cada combinação.}
#'
#' }
#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Ex 17, pg 230.
+#' @source SOARES; SIQUEIRA (2002), exercício 17, pág. 230.
#' @references CHOCHINOV, H. M., WILSON, K.G., ENNS, M. et al. Desire
-#' for death in the terminal ill. The American Journal of Psychiatry,
-#' v.152, p.1185-91, 1995.
+#' for death in the terminal ill. \emph{The American Journal of
+#' Psychiatry}, v.152, p.1185-91, 1995.
#' @examples
#'
#' library(lattice)
-#' data(SoaresEx6.17)
#'
-#' dado <- xtabs(exp ~ dpm + dpss, data = SoaresEx6.17)
-#' barchart(dado, horizontal = FALSE,
-#' stack = FALSE,
-#' scales = list(x = list(labels = c("Ausente","Presente"))),
-#' ylab = "Frequência",
-#' xlab = "Depressão",
-#' main = "Relação entre a depressão e o desejo pela morte de
-#' pacientes com câncer terminal",
-#' auto.key = list(corner = c(0.95, 0.95),
-#' text = c("Desejo pela morte ausente",
-#' 'Desejo pela morte presente')))
-#'
-#'
+#' data(SoaresEx6.17)
+#' str(SoaresEx6.17)
+#'
+#' names(SoaresEx6.17)[3] <- "freq"
+#' dado <- xtabs(freq ~ dpm + dpss, data = SoaresEx6.17)
+#' mosaicplot(dado)
+#'
+#' barchart(dado,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Ausente", "Presente"))),
+#' ylab = "Frequência",
+#' xlab = "Depressão",
+#' auto.key = list(text = c("Desejo pela morte ausente",
+#' "Desejo pela morte presente")))
#'
NULL
diff --git a/R/SoaresEx6.18.R b/R/SoaresEx6.18.R
index 911d0bfbe3017bb1cc9d496fa11039b3e7b8668e..ff9e5f04315eb012a3affd5b68c83ffbe0978d78 100644
--- a/R/SoaresEx6.18.R
+++ b/R/SoaresEx6.18.R
@@ -1,54 +1,58 @@
#' @name SoaresEx6.18
-#' @title A transferência do álcool para o leite humano.
-#' @description O consumo de pequenas quantidades de álcool tem sido
-#' recomendado a mulheres que amamentam a fim de ajudar à lactação.
+#' @title A Transferência do Álcool para o Leite Materno
+#' @description O consumo de pequenas quantidades de álcool tem sido
+#' recomendado a mulheres que amamentam a fim de ajudar à lactação.
#' A ocorrência de alteração nas características sensoriais do leite
-#' 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
+#' 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.
-#' @format Um \code{data.frame} com 4 observações e 6 variáveis.
+#' 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.
+#' @format Um \code{data.frame} com 4 observações e 6 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
+#' \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{ba}}{Bebida alcoólica ingerida ou não ingerida..}
-#'
+#'
+#' \item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida.}
+#'
#' \item{\code{exp}}{Variável explicativa com os valores obtidos.}
-#'
+#'
#' \item{\code{teste.t}}{Valor obtido com o teste-t.}
-#'
+#'
#' \item{\code{valor.p}}{Valor-p utilizado no estudo.}
#'
#' }
#' @keywords AAS
-#' @source SOARES; SIQUEIRA, (2002), Tb 18, pg.231.
+#' @source SOARES; SIQUEIRA, (2002), tabela 18, pág. 231.
#' @references MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
-#' to human milk. The New England Journal of Medicine, v.325,
-#' p.981-5, 1991 .
+#' to human milk. \emph{The New England Journal of Medicine}, v.325,
+#' p.981-5, 1991.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresEx6.18)
-#'
+#' str(SoaresEx6.18)
+#'
#' dados <- xtabs(exp ~ var + ba, data = SoaresEx6.18)
-#' barchart(dados, horizontal = FALSE,
-#' stack = FALSE,
-#' scales = list(x = list(labels = c("Leite ingerido (mL)",
-#' 'Tempo (min)'))),
-#' ylab = "Frequência",
-#' xlab = "Variável",
-#' main = "A transferência do álcool para o leite humano",
-#' auto.key = list(corner = c(0.95, 0.95),
-#' text = c("Bebida alcoólica não ingerida",
-#' 'Bebida alcoólica ingerida')))
-#'
-#'
-NULL
\ No newline at end of file
+#' addmargins(dados)
+#'
+#' barchart(dados,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Leite ingerido (mL)",
+#' "Tempo (min)"))),
+#' ylab = "Frequência",
+#' xlab = "Variável",
+#' auto.key = list(text = c("Bebida alcoólica não ingerida",
+#' "Bebida alcoólica ingerida")))
+#'
+NULL
diff --git a/R/SoaresEx6.19.R b/R/SoaresEx6.19.R
index bf9a9fb816f7f8e7cf31041ff083244adb234751..d3253bbc6f5fd474c11ceb6e005e9d806a673f05 100644
--- a/R/SoaresEx6.19.R
+++ b/R/SoaresEx6.19.R
@@ -1,48 +1,49 @@
#' @name SoaresEx6.19
-#' @title Incidência de suicídio como causa de morte para poetas e
-#' escritores de ficção.
-#' @description Em 1992, Ludwig fez um estudo na qual compara o
-#' comportamento criativo e psicopatologico entre diversos grupos
-#' profissionais, a partir de pelo menos um fonte bibliogŕafica bem
-#' documentada e bem estudada. Mais de 1000 personalidades
-#' eminentes, já falecidas e que viveram pelo menos uma parte de suas
-#' vidas no século XX foram divididas em dezenove categorias
-#' profissionais e observações comportamentais. Uma característica
-#' estudada foi a existência de diferenças na psicopatologia para
-#' imigrantes do grupo artístico, tais como poetas e escritores de
+#' @title Incidência de Suicídio como Causa de Morte para Poetas e
+#' Escritores de Ficção
+#' @description Em 1992, Ludwig fez um estudo na qual compara o
+#' comportamento criativo e psicopatológico entre diversos grupos
+#' profissionais, a partir de pelo menos um fonte bibliográfica bem
+#' documentada e bem estudada. Mais de 1000 personalidades
+#' eminentes, já falecidas e que viveram pelo menos uma parte de
+#' suas vidas no século XX foram divididas em dezenove categorias
+#' profissionais e observações comportamentais. Uma característica
+#' estudada foi a existência de diferenças na psicopatologia para
+#' imigrantes do grupo artístico, tais como poetas e escritores de
#' ficção.
-#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{cm}}{Causa de morte.}
#'
#' \item{\code{prof}}{Profissão avaliada.}
-#'
-#' \item{\code{exp}}{Variável explicativa com os valores obtidos.}
+#'
+#' \item{\code{freq}}{Frequência de casos tem cada situação.}
#'
#' }
-#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Ex.19, cap.6, pg.231.
-#' @references LUDWING, A. M. Creative achievement and psychology:
-#' comparison among professions. The American Journal of
-#' Psychotherapy, v.46, p.330-56, 1992.
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA (2002), exercício 19, capítulo 6, pág. 231.
+#' @references LUDWING, A. M. Creative achievement and psychology:
+#' comparison among professions. \emph{The American Journal of
+#' Psychotherapy}, v.46, p.330-56, 1992.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresEx6.19)
-#' a <- xtabs(exp ~ cm + prof, data = SoaresEx6.19)
-#' barchart(a, horizontal = FALSE,
-#' stack = FALSE,
-#' scales = list(x=list(labels = c("Outras",'Suicídio'))),
-#' ylab = "Frequência",
-#' xlab = "Causa da morte",
-#' main = "Incidência de suicídio como causa de morte para poetas e
-#' escritores de ficção",
-#' auto.key = list(corner = c(0.95, 0.95),
-#' text = c("Escritores de ficção",
-#' 'Poetas')))
-#'
-NULL
\ No newline at end of file
+#' str(SoaresEx6.19)
+#'
+#' a <- xtabs(freq ~ cm + prof, data = SoaresEx6.19)
+#' addmargins(a)
+#'
+#' barchart(a,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Outras", "Suicídio"))),
+#' ylab = "Frequência",
+#' xlab = "Causa da morte",
+#' auto.key = list(text = c("Escritores de ficção",
+#' "Poetas")))
+#'
+NULL
diff --git a/R/SoaresEx6.6.R b/R/SoaresEx6.6.R
index 0803ca05a30d8a56fb78d8d231df8b89eb3ac033..26f10c6fbc036a4d2048113364bbb88ab684a9a6 100644
--- a/R/SoaresEx6.6.R
+++ b/R/SoaresEx6.6.R
@@ -1,38 +1,39 @@
#' @name SoaresEx6.6
-#' @title Presença e ausência da hiperventilação no aumento da
-#' capacidade física.
-#' @description Nove indivíduos do sexo masculino, sadios, com idade
-#' média de 21 anos participaram, voluntariamente, de uma pesquisa
-#' cujo objetivo era verificar se a alcalose respiratória, induzida
-#' por hiperventilação voluntária, aumenta a capacidade física
-#' avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
-#' nove indivíduos participaram da corrida de 800 metros em 2
-#' momentos: um deles em condições normais (sem hiperventilação) e
-#' no outro após a hiperentilação voluntária.
-#' @format Um \code{data.frame} com 18 observações e 2 variáveis.
+#' @title Presença e Ausência da Hiperventilação no Aumento da
+#' Capacidade Física
+#' @description Nove indivíduos do sexo masculino, sadios, com idade
+#' média de 21 anos participaram, voluntariamente, de uma pesquisa
+#' cujo objetivo era verificar se a alcalose respiratória, induzida
+#' por hiperventilação voluntária, aumenta a capacidade física
+#' avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
+#' nove indivíduos participaram da corrida de 800 metros em 2
+#' momentos: um deles em condições normais (sem hiperventilação) e
+#' no outro após a hiperentilação voluntária.
+#' @format Um \code{data.frame} com 18 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{hpv}}{Hiperventilação presente ou não presente.}
#'
-#' \item{\code{exp}}{Variável explicativa com os valores.}
+#' \item{\code{tempo}}{Tempo para completar a corrida de 800 metros, em
+#' segundos.}
#'
#' }
-#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Ex.6, cap.6, pg.223.
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA (2002), exercício 6, capítulo 6, pág. 223.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresEx6.6)
-#' SoaresEx6.6$n <- seq(1:9)
-#' xyplot(exp~n|hpv, data = SoaresEx6.6,
-#' type = c('g','b'),
-#' xlab = 'Indivíduos que participaram da pesquisa',
-#' ylab = 'Valores observados',
-#' main = "Presença e ausência da hiperventilação no aumento da
-#' capacidade física")
-#'
-#'
-NULL
\ No newline at end of file
+#' str(SoaresEx6.6)
+#'
+#' xyplot(tempo ~ hpv,
+#' data = SoaresEx6.6,
+#' type = c("p", "a"),
+#' grid = TRUE,
+#' jitter.x = TRUE,
+#' xlab = "Hiperventilação",
+#' ylab = "Tempo na corrida de 800 metros (s)")
+#'
+NULL
diff --git a/R/SoaresTb6.1.R b/R/SoaresTb6.1.R
index 41e9ac3bc0ee2f3e39cfe354d7595bd3506fc26d..cda424241c546055b97c6f257e969fafc85cb8b2 100644
--- a/R/SoaresTb6.1.R
+++ b/R/SoaresTb6.1.R
@@ -1,49 +1,46 @@
#' @name SoaresTb6.1
-#' @title Número de pacientes tratados com AZT ou placebo.
-#' @description Em 1987, FISCHL publicou o primeiro relato de um ensaio
+#' @title Sobreviência de Pacientes Tratados com AZT ou Placebo
+#' @description Em 1987, FISCHL publicou o primeiro relato de um ensaio
#' clínico que comprovou a eficácia do fármaco zidovudina (AZT) para
-#' prolongar a vida de pacientes com AIDS. Na tabela é apresentado
-#' os dados entre a relação dos pacientes que receberam o AZT e o
+#' prolongar a vida de pacientes com AIDS. Na tabela é apresentado
+#' os dados entre a relação dos pacientes que receberam o AZT e o
#' placebo e permaneceram vivos ou mortos durante o experimento.
-#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{grp}}{Grupo de pacientes que receberam o zidozudina
-#' (AZT) ou placebo.}
+#' \item{\code{grp}}{Grupo de pacientes que receberam o zidozudina (AZT)
+#' ou placebo.}
#'
-#' \item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
+#' \item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
#' fármacos no que diz respeito ao prolongamento de suas vidas.}
#'
-#' \item{exp}{Variável explicativa dos valores obtidos.}
+#' \item{freq}{Número de casos em cada situação.}
#'
#' }
#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Tb 6.1, pg 177.
-#'
-#' @references FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
-#' efficacy of azidothymidine (AZT) in treatment of patients with
+#' @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
#' AIDS and AIDS-related complez. A doubleblind, placebo-controlled
-#' trial. The New England Journal of Medicine, v.317, n.4 p.185-91,
-#' 1987.
+#' trial. \emph{The New England Journal of Medicine}, v.317, n.4
+#' p.185-91, 1987.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresTb6.1)
+#' str(SoaresTb6.1)
+#'
+#' dados <- xtabs(freq ~ grp + sit, data = SoaresTb6.1)
+#' addmargins(dados)
+#'
+#' barchart(dados,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("AZT", "Placebo"))),
+#' ylab = "Frequência",
+#' xlab = "Grupo",
+#' auto.key = list(text = c("Morto", "Vivo")))
#'
-#' dados <- xtabs(exp ~ grp + sit, data = SoaresTb6.1)
-#' barchart(dados, horizontal = FALSE,
-#' stack = FALSE,
-#' scales=list(x=list(labels=c("AZT","Placebo"))),
-#' ylab = "Frequência",
-#' xlab = "Grupo",
-#' main = "Número de pacientes tratados com AZT ou placebo",
-#' auto.key = list(corner = c(0.95, 0.95),
-#' text = c("Morto",
-#' 'Vivo')))
-#'
-#'
-#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/SoaresTb6.15.R b/R/SoaresTb6.15.R
index a630b3579149833f1d7c56eaf334050a1fbf3642..4fcc2ab0770b73825ed63f240b6ab9913f4601c1 100644
--- a/R/SoaresTb6.15.R
+++ b/R/SoaresTb6.15.R
@@ -1,41 +1,47 @@
#' @name SoaresTb6.15
-#' @title Escore final na escala MADRS de pacientes dos dois grupos
-#' admitidos em Belo Horizonte.
-#' @description A tianeptina é um fármaco antidepressivo do grupo dos
-#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
-#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
-#' comparar a tianeptina com o placebo. Participaram deste ensaio
-#' pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
-#' consistiu em administrar a droga a dois grupos de pacientes,
-#' compostos de forma aleatória, e quantificar a depressão através
-#' da escala de Montgomery-Asberg (MADRS), em que os valores maiores
-#' indicam maior gravidade da depressão. O escore foi obtido para
-#' cada paciente 7, 14, 21, 28 e 42 dias após o início do ensaio.
-#' @format Um \code{data.frame} com 32 observações e 2 variáveis.
+#' @title Escore Final na Escala MADRS de Pacientes dos Dois Grupos
+#' Admitidos Tratados com Tianeptina
+#' @description A tianeptina é um fármaco antidepressivo do grupo dos
+#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
+#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
+#' comparar a tianeptina com o placebo. Participaram deste ensaio
+#' pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
+#' consistiu em administrar a droga a dois grupos de pacientes,
+#' compostos de forma aleatória, e quantificar a depressão através
+#' da escala de Montgomery-Asberg (MADRS), em que os valores maiores
+#' indicam maior gravidade da depressão. O escore foi obtido para
+#' cada paciente 7, 14, 21, 28 e 42 dias após o início do ensaio.
+#' @format Um \code{data.frame} com 32 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{grp}}{Grupos de pacientes.}
+#' \item{\code{grp}}{Grupos de pacientes segundo recebimento da
+#' tieneptina.}
#'
-#' \item{\code{esc}}{Escore final obtido pelo paciente.}
+#' \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?.}
#'
#' }
#' @keywords AAS
-#' @source SOARES; SIQUEIRA, (2002), Tb 6.15, pg.207.
-#' @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
-#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+#' @source SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
+#' @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
+#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
#' e Social).
#' @examples
+#'
#' library(lattice)
+#'
#' data(SoaresTb6.15)
-#'
-#' SoaresTb6.15$n <- seq(1:16)
-#' xyplot(esc~n|grp, data = SoaresTb6.15,
-#' type = c('g','b'),
-#' xlab = 'Pacientes do ensaio',
-#' ylab = 'Escores dos pacientes')
-#'
+#' str(SoaresTb6.15)
+#'
+#' xyplot(esc ~ grp,
+#' data = SoaresTb6.15,
+#' type = c("p", "a"),
+#' grid = TRUE,
+#' jitter.x = TRUE,
+#' xlab = "Tratamento com tieneptina",
+#' ylab = "Escores dos pacientes")
#'
NULL
diff --git a/R/SoaresTb6.18.R b/R/SoaresTb6.18.R
index 973e7c65cc528396760d2a3e2d3a3a962976b37b..643ec02991cb361aec8a6bc7662fa8dbfcd37264 100644
--- a/R/SoaresTb6.18.R
+++ b/R/SoaresTb6.18.R
@@ -1,32 +1,41 @@
#' @name SoaresTb6.18
-#' @title Níveis de colesterol no início e no final do programa.
-#' @description O presente estudo teve como objetivo avaliar a
-#' efetividade de uma dieta combinada com um programa de exercícios
-#' 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
+#' @title Níveis de Colesterol no Início e no Final do Programa
+#' @description O presente estudo teve como objetivo avaliar a
+#' efetividade de uma dieta combinada com um programa de exercícios
+#' 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.
+#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{prg}}{Expecificação do programa: início e final.}
#'
-#' \item{\code{exp}}{Variável explicativa com os valores.}
+#' \item{\code{col}}{Colesterol dos pacientes.}
#'
#' }
#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Tb 6.18, pg 203.
+#' @source SOARES; SIQUEIRA (2002), tabela 6.18, pág. 203.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresTb6.18)
-#' SoaresTb6.18$n <- seq(1:12)
-#' xyplot(exp~n|prg, data = SoaresTb6.18,
-#' xlab = 'Indivíduos que participaram do programa',
-#' ylab = 'Níveis de colesterol')
-#'
-#'
-#'
-NULL
\ No newline at end of file
+#' str(SoaresTb6.18)
+#'
+#' xyplot(exp ~ prg,
+#' 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 26bbb7037b573c9bec427983f018cc0ed1cd3c0e..82151b34df6badb33e5f1dffaa1d74859eabc284 100644
--- a/R/SoaresTb6.20.R
+++ b/R/SoaresTb6.20.R
@@ -1,42 +1,51 @@
#' @name SoaresTb6.20
-#' @title Escores do grupo tianeptina nos primeiro e ultimos dias.
-#' @description A tianeptina é um fármaco antidepressivo do grupo dos
-#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
-#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
-#' comparar a tianeptina com o placebo. O ensaio consistiu em
-#' administrar a droga a dois grupos de pacientes, compostos de
-#' forma aleatória, e quantificar a depressão através da escala de
-#' Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
-#' diminuição do escore de depressão entre os pacientes de um dos
-#' grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
-#' apresentados são escores atribuídos a 16 pacientes do grupo
-#' tianeptina que foram admitidos em Belo Horizonte no primeiro dia
+#' @title Escores do Grupo Tianeptina no Primeiro e Último Dia
+#' @description A tianeptina é um fármaco antidepressivo do grupo dos
+#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
+#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
+#' comparar a tianeptina com o placebo. O ensaio consistiu em
+#' administrar a droga a dois grupos de pacientes, compostos de
+#' forma aleatória, e quantificar a depressão através da escala de
+#' Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
+#' diminuição do escore de depressão entre os pacientes de um dos
+#' grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
+#' 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.
+#' @format Um \code{data.frame} com 32 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{per}}{Período de tempo na qual o dado foi coletado.}
#'
-#' \item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
+#' \item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
#' quanto no segundo dia.}
#'
#' }
#' @keywords AAS
-#' @source SOARES; SIQUEIRA, (2002), Tb 20, pg.207.
-#' @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
-#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+#' @source SOARES; SIQUEIRA, (2002), tabela 20, pág. 207.
+#' @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
+#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
#' e Social).
#' @examples
+#'
#' library(lattice)
-#'
-#' SoaresTb6.20$n <- seq(1:16)
-#' xyplot(esc~n|per, data = SoaresTb6.20,
-#' type = c('g','b'),
-#' xlab = 'Pacientes do grupo tianeptina',
-#' ylab = 'Escores dos pacientes')
-#'
-#'
-NULL
\ No newline at end of file
+#'
+#' data(SoaresTb6.20)
+#' str(SoaresTb6.20)
+#'
+#' xyplot(esc ~ per,
+#' data = SoaresTb6.20,
+#' type = c("p", "a"),
+#' jitter.x = TRUE,
+#' xlab = "Pacientes do grupo tianeptina",
+#' ylab = "Escores dos pacientes")
+#'
+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/SoaresEx6.19.txt b/data-raw/SoaresEx6.19.txt
index 027a4a2ee35bbe2dc127a92aa4e31598f376c98d..90bcb28681fbcdecb770fcdc7ab6dfbfda4e4a6d 100644
--- a/data-raw/SoaresEx6.19.txt
+++ b/data-raw/SoaresEx6.19.txt
@@ -1,4 +1,4 @@
-cm prof exp
+cm prof freq
suicidio poetas 10
suicidio escritores de ficcao 7
outras poetas 43
diff --git a/data-raw/SoaresEx6.6.txt b/data-raw/SoaresEx6.6.txt
index 68df902c0a27b116b399c3a069ed9810a89f8d0b..c18a4d0fc76dc38725e5ef92aca5b6be38948e83 100644
--- a/data-raw/SoaresEx6.6.txt
+++ b/data-raw/SoaresEx6.6.txt
@@ -1,4 +1,4 @@
-hpv exp
+hpv tempo
com 155
com 150
com 174
diff --git a/data-raw/SoaresTb6.1.txt b/data-raw/SoaresTb6.1.txt
index 30a4b8da21295c184459776e5738d7c6ee7374bf..bcb99e6362679ab4e9d98c10023e19e28b892783 100644
--- a/data-raw/SoaresTb6.1.txt
+++ b/data-raw/SoaresTb6.1.txt
@@ -1,5 +1,5 @@
-grp;sit;exp
-azt;vivo;144
-azt;morto;1
-placebo;vivo;121
-placebo;morto;16
+grp sit freq
+azt vivo 144
+azt morto 1
+placebo vivo 121
+placebo morto 16
diff --git a/data/SoaresEx6.19.rda b/data/SoaresEx6.19.rda
index d4f3c2c2785c8c8570ffb28fd935a315387e74a6..90faa8c8f6b421440f5d26dc282d690c6541c543 100644
Binary files a/data/SoaresEx6.19.rda and b/data/SoaresEx6.19.rda differ
diff --git a/data/SoaresEx6.6.rda b/data/SoaresEx6.6.rda
index 7bc895cfa34a6cab63018c7b31f7ec31e7597d76..2f55a92ae08f62600be4cd4f330a6aa633980d93 100644
Binary files a/data/SoaresEx6.6.rda and b/data/SoaresEx6.6.rda differ
diff --git a/data/SoaresTb6.1.rda b/data/SoaresTb6.1.rda
index 7854cdb920e058bb80fa9f1c68b61e4befca437e..dc9d037d3deda1513785ac27b0b4419e1b07077b 100644
Binary files a/data/SoaresTb6.1.rda and b/data/SoaresTb6.1.rda differ
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
index 14be0f5f5043ebcf7aa9cd02c44c6568237aa9fb..736d5c6e01a1530b08034e8cd25da71ce26be25a 100644
--- a/man/SoaresEx6.17.Rd
+++ b/man/SoaresEx6.17.Rd
@@ -2,59 +2,57 @@
% Please edit documentation in R/SoaresEx6.17.R
\name{SoaresEx6.17}
\alias{SoaresEx6.17}
-\title{Relação entre a depressão e o desejo pela morte de pacientes
- com câncer terminal.}
-\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+\title{Relação entre a Depressão e o Desejo pela Morte de Pacientes
+ com Câncer Terminal}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
-\item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
+\item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
do estudo.}
-\item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
+\item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
estudo.}
-\item{exp}{Variável explicativa entre o desejo pela morte e a
- depressão.}
+\item{freq}{Frequência de casos em cada combinação.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex 17, pg 230.
+SOARES; SIQUEIRA (2002), exercício 17, pág. 230.
}
\description{
Um estudo feito por Chochinov et al. (1995) contou com a
- participação de 190 pacientes de dois hospitais em Winnipeg,
+ participação de 190 pacientes de dois hospitais em Winnipeg,
Canadá, com diagnóstico primário de câncer terminal, admitidos no
- período de coletas de dados. Uma das preocupações era verificar a
- existência de relação entre o desejo de morte relatado por alguns
+ período de coletas de dados. Uma das preocupações era verificar a
+ existência de relação entre o desejo de morte relatado por alguns
deles e a depressão diagnosticada em alguns casos.
}
\examples{
library(lattice)
-data(SoaresEx6.17)
-dado <- xtabs(exp ~ dpm + dpss, data = SoaresEx6.17)
-barchart(dado, horizontal = FALSE,
- stack = FALSE,
- scales = list(x = list(labels = c("Ausente","Presente"))),
- ylab = "Frequência",
- xlab = "Depressão",
- main = "Relação entre a depressão e o desejo pela morte de
- pacientes com câncer terminal",
- auto.key = list(corner = c(0.95, 0.95),
- text = c("Desejo pela morte ausente",
- 'Desejo pela morte presente')))
+data(SoaresEx6.17)
+str(SoaresEx6.17)
+names(SoaresEx6.17)[3] <- "freq"
+dado <- xtabs(freq ~ dpm + dpss, data = SoaresEx6.17)
+mosaicplot(dado)
+barchart(dado,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Ausente", "Presente"))),
+ ylab = "Frequência",
+ xlab = "Depressão",
+ auto.key = list(text = c("Desejo pela morte ausente",
+ "Desejo pela morte presente")))
}
\references{
CHOCHINOV, H. M., WILSON, K.G., ENNS, M. et al. Desire
- for death in the terminal ill. The American Journal of Psychiatry,
- v.152, p.1185-91, 1995.
+ for death in the terminal ill. \emph{The American Journal of
+ Psychiatry}, v.152, p.1185-91, 1995.
}
\keyword{AAS}
diff --git a/man/SoaresEx6.18.Rd b/man/SoaresEx6.18.Rd
index c8bfa6d7d903053ca4105288ab56ea4cf1a62f35..95a3081df713d63fd041a9a58e50a42363aa1869 100644
--- a/man/SoaresEx6.18.Rd
+++ b/man/SoaresEx6.18.Rd
@@ -2,17 +2,17 @@
% Please edit documentation in R/SoaresEx6.18.R
\name{SoaresEx6.18}
\alias{SoaresEx6.18}
-\title{A transferência do álcool para o leite humano.}
-\format{Um \code{data.frame} com 4 observações e 6 variáveis.
+\title{A Transferência do Álcool para o Leite Materno}
+\format{Um \code{data.frame} com 4 observações e 6 variáveis, em que
\describe{
-\item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
+\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{ba}}{Bebida alcoólica ingerida ou não ingerida..}
+\item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida.}
\item{\code{exp}}{Variável explicativa com os valores obtidos.}
@@ -22,43 +22,47 @@
}}
\source{
-SOARES; SIQUEIRA, (2002), Tb 18, pg.231.
+SOARES; SIQUEIRA, (2002), tabela 18, pág. 231.
}
\description{
-O consumo de pequenas quantidades de álcool tem sido
- recomendado a mulheres que amamentam a fim de ajudar à lactação.
+O consumo de pequenas quantidades de álcool tem sido
+ recomendado a mulheres que amamentam a fim de ajudar à lactação.
A ocorrência de alteração nas características sensoriais do leite
- 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
+ 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.
+ 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.
}
\examples{
library(lattice)
+
data(SoaresEx6.18)
+str(SoaresEx6.18)
dados <- xtabs(exp ~ var + ba, data = SoaresEx6.18)
-barchart(dados, horizontal = FALSE,
- stack = FALSE,
- scales = list(x = list(labels = c("Leite ingerido (mL)",
- 'Tempo (min)'))),
- ylab = "Frequência",
- xlab = "Variável",
- main = "A transferência do álcool para o leite humano",
- auto.key = list(corner = c(0.95, 0.95),
- text = c("Bebida alcoólica não ingerida",
- 'Bebida alcoólica ingerida')))
+addmargins(dados)
+barchart(dados,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Leite ingerido (mL)",
+ "Tempo (min)"))),
+ ylab = "Frequência",
+ xlab = "Variável",
+ auto.key = list(text = c("Bebida alcoólica não ingerida",
+ "Bebida alcoólica ingerida")))
}
\references{
MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
- to human milk. The New England Journal of Medicine, v.325,
- p.981-5, 1991 .
+ to human milk. \emph{The New England Journal of Medicine}, v.325,
+ p.981-5, 1991.
}
\keyword{AAS}
diff --git a/man/SoaresEx6.19.Rd b/man/SoaresEx6.19.Rd
index 9f34ce0fd479aa6a8f940f4caad815c02718f4ca..977c3d1e78c4e63e73d78a9f2d7cbe0069a37364 100644
--- a/man/SoaresEx6.19.Rd
+++ b/man/SoaresEx6.19.Rd
@@ -2,9 +2,9 @@
% Please edit documentation in R/SoaresEx6.19.R
\name{SoaresEx6.19}
\alias{SoaresEx6.19}
-\title{Incidência de suicídio como causa de morte para poetas e
- escritores de ficção.}
-\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+\title{Incidência de Suicídio como Causa de Morte para Poetas e
+ Escritores de Ficção}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
@@ -12,47 +12,48 @@
\item{\code{prof}}{Profissão avaliada.}
-\item{\code{exp}}{Variável explicativa com os valores obtidos.}
+\item{\code{freq}}{Frequência de casos tem cada situação.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex.19, cap.6, pg.231.
+SOARES; SIQUEIRA (2002), exercício 19, capítulo 6, pág. 231.
}
\description{
-Em 1992, Ludwig fez um estudo na qual compara o
- comportamento criativo e psicopatologico entre diversos grupos
- profissionais, a partir de pelo menos um fonte bibliogŕafica bem
- documentada e bem estudada. Mais de 1000 personalidades
- eminentes, já falecidas e que viveram pelo menos uma parte de suas
- vidas no século XX foram divididas em dezenove categorias
- profissionais e observações comportamentais. Uma característica
- estudada foi a existência de diferenças na psicopatologia para
- imigrantes do grupo artístico, tais como poetas e escritores de
+Em 1992, Ludwig fez um estudo na qual compara o
+ comportamento criativo e psicopatológico entre diversos grupos
+ profissionais, a partir de pelo menos um fonte bibliográfica bem
+ documentada e bem estudada. Mais de 1000 personalidades
+ eminentes, já falecidas e que viveram pelo menos uma parte de
+ suas vidas no século XX foram divididas em dezenove categorias
+ profissionais e observações comportamentais. Uma característica
+ estudada foi a existência de diferenças na psicopatologia para
+ imigrantes do grupo artístico, tais como poetas e escritores de
ficção.
}
\examples{
library(lattice)
+
data(SoaresEx6.19)
-a <- xtabs(exp ~ cm + prof, data = SoaresEx6.19)
-barchart(a, horizontal = FALSE,
- stack = FALSE,
- scales = list(x=list(labels = c("Outras",'Suicídio'))),
- ylab = "Frequência",
- xlab = "Causa da morte",
- main = "Incidência de suicídio como causa de morte para poetas e
- escritores de ficção",
- auto.key = list(corner = c(0.95, 0.95),
- text = c("Escritores de ficção",
- 'Poetas')))
+str(SoaresEx6.19)
+
+a <- xtabs(freq ~ cm + prof, data = SoaresEx6.19)
+addmargins(a)
+
+barchart(a,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Outras", "Suicídio"))),
+ ylab = "Frequência",
+ xlab = "Causa da morte",
+ auto.key = list(text = c("Escritores de ficção",
+ "Poetas")))
}
\references{
-LUDWING, A. M. Creative achievement and psychology:
- comparison among professions. The American Journal of
- Psychotherapy, v.46, p.330-56, 1992.
+LUDWING, A. M. Creative achievement and psychology:
+ comparison among professions. \emph{The American Journal of
+ Psychotherapy}, v.46, p.330-56, 1992.
}
\keyword{AAS}
diff --git a/man/SoaresEx6.6.Rd b/man/SoaresEx6.6.Rd
index 54645029a9e7b18022d91f0017b3daaaf3e0c07a..05f1060853bdd27ac38354951df6ee02f8962b7b 100644
--- a/man/SoaresEx6.6.Rd
+++ b/man/SoaresEx6.6.Rd
@@ -2,44 +2,45 @@
% Please edit documentation in R/SoaresEx6.6.R
\name{SoaresEx6.6}
\alias{SoaresEx6.6}
-\title{Presença e ausência da hiperventilação no aumento da
- capacidade física.}
-\format{Um \code{data.frame} com 18 observações e 2 variáveis.
+\title{Presença e Ausência da Hiperventilação no Aumento da
+ Capacidade Física}
+\format{Um \code{data.frame} com 18 observações e 2 variáveis, em que
\describe{
\item{\code{hpv}}{Hiperventilação presente ou não presente.}
-\item{\code{exp}}{Variável explicativa com os valores.}
+\item{\code{tempo}}{Tempo para completar a corrida de 800 metros, em
+ segundos.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex.6, cap.6, pg.223.
+SOARES; SIQUEIRA (2002), exercício 6, capítulo 6, pág. 223.
}
\description{
-Nove indivíduos do sexo masculino, sadios, com idade
- média de 21 anos participaram, voluntariamente, de uma pesquisa
- cujo objetivo era verificar se a alcalose respiratória, induzida
- por hiperventilação voluntária, aumenta a capacidade física
- avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
- nove indivíduos participaram da corrida de 800 metros em 2
- momentos: um deles em condições normais (sem hiperventilação) e
+Nove indivíduos do sexo masculino, sadios, com idade
+ média de 21 anos participaram, voluntariamente, de uma pesquisa
+ cujo objetivo era verificar se a alcalose respiratória, induzida
+ por hiperventilação voluntária, aumenta a capacidade física
+ avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
+ nove indivíduos participaram da corrida de 800 metros em 2
+ momentos: um deles em condições normais (sem hiperventilação) e
no outro após a hiperentilação voluntária.
}
\examples{
library(lattice)
-data(SoaresEx6.6)
-SoaresEx6.6$n <- seq(1:9)
-xyplot(exp~n|hpv, data = SoaresEx6.6,
- type = c('g','b'),
- xlab = 'Indivíduos que participaram da pesquisa',
- ylab = 'Valores observados',
- main = "Presença e ausência da hiperventilação no aumento da
- capacidade física")
+data(SoaresEx6.6)
+str(SoaresEx6.6)
+
+xyplot(tempo ~ hpv,
+ data = SoaresEx6.6,
+ type = c("p", "a"),
+ grid = TRUE,
+ jitter.x = TRUE,
+ xlab = "Hiperventilação",
+ ylab = "Tempo na corrida de 800 metros (s)")
}
\keyword{AAS}
diff --git a/man/SoaresTb6.1.Rd b/man/SoaresTb6.1.Rd
index b6bcb6076e9ce5f89c3696d60248ea43942ad519..dce1b50188854ac210c64b64024b41d0310923b3 100644
--- a/man/SoaresTb6.1.Rd
+++ b/man/SoaresTb6.1.Rd
@@ -2,57 +2,55 @@
% Please edit documentation in R/SoaresTb6.1.R
\name{SoaresTb6.1}
\alias{SoaresTb6.1}
-\title{Número de pacientes tratados com AZT ou placebo.}
-\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+\title{Sobreviência de Pacientes Tratados com AZT ou Placebo}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
-\item{\code{grp}}{Grupo de pacientes que receberam o zidozudina
- (AZT) ou placebo.}
+\item{\code{grp}}{Grupo de pacientes que receberam o zidozudina (AZT)
+ ou placebo.}
-\item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
+\item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
fármacos no que diz respeito ao prolongamento de suas vidas.}
-\item{exp}{Variável explicativa dos valores obtidos.}
+\item{freq}{Número de casos em cada situação.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Tb 6.1, pg 177.
+SOARES; SIQUEIRA (2002), tabela 6.1, pág. 177.
}
\description{
-Em 1987, FISCHL publicou o primeiro relato de um ensaio
+Em 1987, FISCHL publicou o primeiro relato de um ensaio
clínico que comprovou a eficácia do fármaco zidovudina (AZT) para
- prolongar a vida de pacientes com AIDS. Na tabela é apresentado
- os dados entre a relação dos pacientes que receberam o AZT e o
+ prolongar a vida de pacientes com AIDS. Na tabela é apresentado
+ os dados entre a relação dos pacientes que receberam o AZT e o
placebo e permaneceram vivos ou mortos durante o experimento.
}
\examples{
library(lattice)
-data(SoaresTb6.1)
-dados <- xtabs(exp ~ grp + sit, data = SoaresTb6.1)
-barchart(dados, horizontal = FALSE,
- stack = FALSE,
- scales=list(x=list(labels=c("AZT","Placebo"))),
- ylab = "Frequência",
- xlab = "Grupo",
- main = "Número de pacientes tratados com AZT ou placebo",
- auto.key = list(corner = c(0.95, 0.95),
- text = c("Morto",
- 'Vivo')))
+data(SoaresTb6.1)
+str(SoaresTb6.1)
+dados <- xtabs(freq ~ grp + sit, data = SoaresTb6.1)
+addmargins(dados)
+barchart(dados,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("AZT", "Placebo"))),
+ ylab = "Frequência",
+ xlab = "Grupo",
+ auto.key = list(text = c("Morto", "Vivo")))
}
\references{
-FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
- efficacy of azidothymidine (AZT) in treatment of patients with
+FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
+ efficacy of azidothymidine (AZT) in treatment of patients with
AIDS and AIDS-related complez. A doubleblind, placebo-controlled
- trial. The New England Journal of Medicine, v.317, n.4 p.185-91,
- 1987.
+ trial. \emph{The New England Journal of Medicine}, v.317, n.4
+ p.185-91, 1987.
}
\keyword{AAS}
diff --git a/man/SoaresTb6.15.Rd b/man/SoaresTb6.15.Rd
index 0d5145074a318dba9de2163fda31a924e190dd67..9649f510bdcaf2911b4306ed6caab0a407e79156 100644
--- a/man/SoaresTb6.15.Rd
+++ b/man/SoaresTb6.15.Rd
@@ -2,49 +2,55 @@
% Please edit documentation in R/SoaresTb6.15.R
\name{SoaresTb6.15}
\alias{SoaresTb6.15}
-\title{Escore final na escala MADRS de pacientes dos dois grupos
- admitidos em Belo Horizonte.}
-\format{Um \code{data.frame} com 32 observações e 2 variáveis.
+\title{Escore Final na Escala MADRS de Pacientes dos Dois Grupos
+ Admitidos Tratados com Tianeptina}
+\format{Um \code{data.frame} com 32 observações e 2 variáveis, em que
\describe{
-\item{\code{grp}}{Grupos de pacientes.}
+\item{\code{grp}}{Grupos de pacientes segundo recebimento da
+ tieneptina.}
-\item{\code{esc}}{Escore final obtido pelo paciente.}
+\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?.}
}}
\source{
-SOARES; SIQUEIRA, (2002), Tb 6.15, pg.207.
+SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
}
\description{
-A tianeptina é um fármaco antidepressivo do grupo dos
- tricíclicos. Rocha (1995) relata os resultados de um ensaio
- clínico aleatorizado, duplo-cego, realizado com o objetivo de
- comparar a tianeptina com o placebo. Participaram deste ensaio
- pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
- consistiu em administrar a droga a dois grupos de pacientes,
- compostos de forma aleatória, e quantificar a depressão através
- da escala de Montgomery-Asberg (MADRS), em que os valores maiores
- indicam maior gravidade da depressão. O escore foi obtido para
+A tianeptina é um fármaco antidepressivo do grupo dos
+ tricíclicos. Rocha (1995) relata os resultados de um ensaio
+ clínico aleatorizado, duplo-cego, realizado com o objetivo de
+ comparar a tianeptina com o placebo. Participaram deste ensaio
+ pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
+ consistiu em administrar a droga a dois grupos de pacientes,
+ compostos de forma aleatória, e quantificar a depressão através
+ da escala de Montgomery-Asberg (MADRS), em que os valores maiores
+ indicam maior gravidade da depressão. O escore foi obtido para
cada paciente 7, 14, 21, 28 e 42 dias após o início do ensaio.
}
\examples{
+
library(lattice)
-data(SoaresTb6.15)
-SoaresTb6.15$n <- seq(1:16)
-xyplot(esc~n|grp, data = SoaresTb6.15,
- type = c('g','b'),
- xlab = 'Pacientes do ensaio',
- ylab = 'Escores dos pacientes')
+data(SoaresTb6.15)
+str(SoaresTb6.15)
+xyplot(esc ~ grp,
+ data = SoaresTb6.15,
+ type = c("p", "a"),
+ grid = TRUE,
+ jitter.x = TRUE,
+ xlab = "Tratamento com tieneptina",
+ ylab = "Escores dos pacientes")
}
\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
- UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+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
+ UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
e Social).
}
\keyword{AAS}
diff --git a/man/SoaresTb6.18.Rd b/man/SoaresTb6.18.Rd
index 5d74392dd225541f5e46c565163972cedfaeec93..b338ece6580670d14deaa9cd6e2c2760f67ff73a 100644
--- a/man/SoaresTb6.18.Rd
+++ b/man/SoaresTb6.18.Rd
@@ -2,38 +2,38 @@
% Please edit documentation in R/SoaresTb6.18.R
\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.
+\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
\describe{
\item{\code{prg}}{Expecificação do programa: início e final.}
-\item{\code{exp}}{Variável explicativa com os valores.}
+\item{\code{col}}{Colesterol dos pacientes.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Tb 6.18, pg 203.
+SOARES; SIQUEIRA (2002), tabela 6.18, pág. 203.
}
\description{
-O presente estudo teve como objetivo avaliar a
- efetividade de uma dieta combinada com um programa de exercícios
- 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
+O presente estudo teve como objetivo avaliar a
+ efetividade de uma dieta combinada com um programa de exercícios
+ 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.
}
\examples{
library(lattice)
-data(SoaresTb6.18)
-SoaresTb6.18$n <- seq(1:12)
-xyplot(exp~n|prg, data = SoaresTb6.18,
- xlab = 'Indivíduos que participaram do programa',
- ylab = 'Níveis de colesterol')
+data(SoaresTb6.18)
+str(SoaresTb6.18)
+xyplot(exp ~ prg,
+ data = SoaresTb6.18,
+ type = c("p", "a"),
+ xlab = "Indivíduos que participaram do programa",
+ ylab = "Níveis de colesterol")
}
\keyword{AAS}
diff --git a/man/SoaresTb6.20.Rd b/man/SoaresTb6.20.Rd
index 3aaf179aaad2752588612a87a92aec6f210151dc..6c25dbdf90df7fb1d614f50a3c505098c489fe6b 100644
--- a/man/SoaresTb6.20.Rd
+++ b/man/SoaresTb6.20.Rd
@@ -2,50 +2,54 @@
% Please edit documentation in R/SoaresTb6.20.R
\name{SoaresTb6.20}
\alias{SoaresTb6.20}
-\title{Escores do grupo tianeptina nos primeiro e ultimos dias.}
-\format{Um \code{data.frame} com 32 observações e 2 variáveis.
+\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
\describe{
\item{\code{per}}{Período de tempo na qual o dado foi coletado.}
-\item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
+\item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
quanto no segundo dia.}
}}
\source{
-SOARES; SIQUEIRA, (2002), Tb 20, pg.207.
+SOARES; SIQUEIRA, (2002), tabela 20, pág. 207.
}
\description{
-A tianeptina é um fármaco antidepressivo do grupo dos
- tricíclicos. Rocha (1995) relata os resultados de um ensaio
- clínico aleatorizado, duplo-cego, realizado com o objetivo de
- comparar a tianeptina com o placebo. O ensaio consistiu em
- administrar a droga a dois grupos de pacientes, compostos de
- forma aleatória, e quantificar a depressão através da escala de
- Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
- diminuição do escore de depressão entre os pacientes de um dos
- grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
- apresentados são escores atribuídos a 16 pacientes do grupo
- tianeptina que foram admitidos em Belo Horizonte no primeiro dia
+A tianeptina é um fármaco antidepressivo do grupo dos
+ tricíclicos. Rocha (1995) relata os resultados de um ensaio
+ clínico aleatorizado, duplo-cego, realizado com o objetivo de
+ comparar a tianeptina com o placebo. O ensaio consistiu em
+ administrar a droga a dois grupos de pacientes, compostos de
+ forma aleatória, e quantificar a depressão através da escala de
+ Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
+ diminuição do escore de depressão entre os pacientes de um dos
+ grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
+ 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.
}
\examples{
+
library(lattice)
-SoaresTb6.20$n <- seq(1:16)
-xyplot(esc~n|per, data = SoaresTb6.20,
- type = c('g','b'),
- xlab = 'Pacientes do grupo tianeptina',
- ylab = 'Escores dos pacientes')
+data(SoaresTb6.20)
+str(SoaresTb6.20)
+xyplot(esc ~ per,
+ data = SoaresTb6.20,
+ type = c("p", "a"),
+ jitter.x = TRUE,
+ xlab = "Pacientes do grupo tianeptina",
+ ylab = "Escores dos pacientes")
}
\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
- UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+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
+ UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
e Social).
}
\keyword{AAS}