From d3b7697e2b48ed969e33598c71e6e0bf2898f8f3 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Sat, 22 Oct 2016 15:28:01 -0200
Subject: [PATCH] Faz correcoes na documentacao.
---
R/SoaresEx6.17.R | 56 +++++++++++++++---------------
R/SoaresEx6.18.R | 70 ++++++++++++++++++++------------------
R/SoaresEx6.19.R | 69 +++++++++++++++++++------------------
R/SoaresEx6.6.R | 53 +++++++++++++++--------------
R/SoaresTb6.1.R | 59 +++++++++++++++-----------------
R/SoaresTb6.15.R | 60 +++++++++++++++++---------------
R/SoaresTb6.18.R | 45 ++++++++++++++----------
R/SoaresTb6.20.R | 65 ++++++++++++++++++++---------------
data-raw/SoaresEx6.19.txt | 2 +-
data-raw/SoaresEx6.6.txt | 2 +-
data-raw/SoaresTb6.1.txt | 10 +++---
data/SoaresEx6.19.rda | Bin 256 -> 257 bytes
data/SoaresEx6.6.rda | Bin 227 -> 231 bytes
data/SoaresTb6.1.rda | Bin 241 -> 238 bytes
man/SoaresEx6.17.Rd | 52 ++++++++++++++--------------
man/SoaresEx6.18.Rd | 54 +++++++++++++++--------------
man/SoaresEx6.19.Rd | 61 +++++++++++++++++----------------
man/SoaresEx6.6.Rd | 45 ++++++++++++------------
man/SoaresTb6.1.Rd | 52 ++++++++++++++--------------
man/SoaresTb6.15.Rd | 56 ++++++++++++++++--------------
man/SoaresTb6.18.Rd | 30 ++++++++--------
man/SoaresTb6.20.Rd | 52 +++++++++++++++-------------
22 files changed, 465 insertions(+), 428 deletions(-)
diff --git a/R/SoaresEx6.17.R b/R/SoaresEx6.17.R
index 282e9689..213b8779 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 911d0bfb..ff9e5f04 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 bf9a9fb8..d3253bbc 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 0803ca05..26f10c6f 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 41e9ac3b..cda42424 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 a630b357..4fcc2ab0 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 973e7c65..643ec029 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 26bbb703..82151b34 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 027a4a2e..90bcb286 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 68df902c..c18a4d0f 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 30a4b8da..bcb99e63 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
GIT binary patch
literal 257
zcmZ>Y%CIzaj8qGb)RARxWnkD;f8qZ(9|i|bLj^Vl2?u@k{|6ix7?>DXH!$32Tve$#
zYyJwUSt+-A*%}u+_WG_!V92=aAZfzZtYE^XxoF0$%w@d{3{sg3j4UiAn>aa)rap??
zu(_vS!IAq!c<wn*wRyAk0;3&S0-Aj{K74k1<;r*SZ!<BbxOgzC)+M;;A3M58h09Ze
zA=#x}V4}+=o=%o4JCzO!br#Lf{`{{0<14Fo+y0-GkukW-*PhDVzW2=<|DLeLPXiPu
ztLr#LURr+Hq<#6!i%g+To2$$?&McoCkm8bQl(6kmAydO<<%m@6KB3y_77d?77Oa2t
O&SN>35Nq>-4+{VwwP~vW
literal 256
zcmZ>Y%CIzaj8qGboD#B$i-BQN{e}PEd>9-!4HeiJBpmeB?;mhrU|?ck-N108apk0$
zE1w!D`^-u?VQ9iTIp9FXi422=47OPej7qb*sxp@?%eZoYg?;5RVUvk!t0ivQSS{09
ze@#i$h^ef~`1{dMxjT;Me|^_4rYL5leOs8fc;D@1)9f}h1YC4>^w*obsK!Fkm5DpZ
zhqZBuC-1T;Mp91U_H7F?S-d*_q_5+yi<{|Z{_IujI{DSj$+MZ;cdIV(Tw=cVnG)|b
z?|z5V8uc9CrFPAEaogo(o%Tu|>weB77iK+<znT50pvf`IZJ{Yw3d`s1Y7=A*1quI&
OJt^|g$tf`Cga!bw!)m$!
diff --git a/data/SoaresEx6.6.rda b/data/SoaresEx6.6.rda
index 7bc895cfa34a6cab63018c7b31f7ec31e7597d76..2f55a92ae08f62600be4cd4f330a6aa633980d93 100644
GIT binary patch
delta 206
zcmaFN_?(f?DJsL#&@oaiI5N}S&ut=~a{U6I*}f}gTu@)2#vpK5v6q*ZL6Vn&fq_9t
zl~vkj*}MrCn0*<{mh~=Qwlas&F<ZKA>Umq$YirK%&a~XLn5VqpxTM>!9o~yIQ`5!2
z{9JxVWw*^k_qP*Ut#3I<-PQ3~*W@d*B*!C3@X@6f6W*>}icDsIoE9#5dsyq=@}G$%
z$3qItle>(+{#m~zxr)`r@m=7THIE8}0?RJcD>yj2sw>uhh!0%!Ry5LHH;L0UMev{A
Oldgh=3YYrk^Z)>#G*?*w
delta 202
zcmaFP_?VH;DJsL#&@oaiIP!C@9Q#B*<@&`AQVbUu7#NrpdwF>oBzYMa7#M_9O_t4@
z{8fRc!Q`tE<16;%%T`)29m>g*ijrsP73Q85{^ZqZAH&~w`%L;@mj^G_N}X^1wsQ3?
zm0f=pD1Wv|)QM;?-DxscE>l%ee2F2)hfF6awxhWd8s+UatjV-|IPLr1x^4V1+w><1
zuxc7xOE2nkYhu)x-pt9jfJY}ud!jlkV~EtgHMbot-m2HETT}5`AaM19{*UD<!L6M9
JW)~k6006GeO<e#0
diff --git a/data/SoaresTb6.1.rda b/data/SoaresTb6.1.rda
index 7854cdb920e058bb80fa9f1c68b61e4befca437e..dc9d037d3deda1513785ac27b0b4419e1b07077b 100644
GIT binary patch
literal 238
zcmZ>Y%CIzaj8qGb?0PX%n1Nya{|Enfc`z_A8Zxjj$T-+9|GU9~!GVE+bpyk-6w}}@
zom=Mhs;N);($*~H_~NJ`lcK=|H8%z(o{I}624A_v*4Dtlz}7HDF-?n!No5J|m!^fL
zT&#~7<mVck=$Q6L{)V5CBTLAs^s`)r>rLG)UrsGxSlBYld29S`5ziJ=C#GMX4QmXA
z6}McPtk~o|?dB97_MICK{JXVg*U#KtJK`BmmOOcV^+QwQnqUPj6Y&bK<zJew%)P3x
x%WwOHbsN6u7zDlW-gk9|#>anIVQMKSPW+ttgq6ud`N!@_nul6i!d*_x004N`X-EJ7
literal 241
zcmZ>Y%CIzaj8qGbjO}Il!oaZp|AYU#JQx@l4H;M%WE||5-~Hgg;K0DZx`E-wgsc9S
zW>xy6+B#o$GC8^UN>%TYPl^pD7cMRqoWRQ<C7}}R68LiB5;g`mH|Hz2{FFJh+srK|
zoiuv0X@_E@O8>eWC%1h#nI98d@!Uy2b@TUz8P}hFJXLo2n~+DFNW%QDQ&z1qSRBfb
z>S-XF<1*n^X5fT_svoy`u`wpROzO`|pEtvLUM2S;omo7mUd?k1Jm<!>tb^O<NV4UX
zxm|PC-VcAo9oH(>EzIe&&E(*U%fV_J%IEd&oABACVTp_2o!FBi51ky#OoT500I+Ur
A<p2Nx
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
index 14be0f5f..736d5c6e 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 c8bfa6d7..95a3081d 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 9f34ce0f..977c3d1e 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 54645029..05f10608 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 b6bcb607..dce1b501 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 0d514507..9649f510 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 5d74392d..b338ece6 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 3aaf179a..6c25dbdf 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}
--
GitLab