diff --git a/.RData b/.RData
new file mode 100644
index 0000000000000000000000000000000000000000..da983b9fec055a5d48a0bfaf4070a94eb1fd0533
Binary files /dev/null and b/.RData differ
diff --git a/DESCRIPTION b/DESCRIPTION
index 64f998a1b18663c63686a5f9788a775688d10b35..4092c8312a7ce2fc2c03c52b8ae8d2b62d3a2062 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -43,6 +43,6 @@ Suggests:
     reshape2,
     MASS,
     qcc,
-    multicomp
+    multcomp
 VignetteBuilder: knitr
 RoxygenNote: 5.0.1
diff --git a/R/SoaresEx18.R b/R/SoaresEx18.R
new file mode 100644
index 0000000000000000000000000000000000000000..427bee640a04da43e261df759641d55bd1e7d270
--- /dev/null
+++ b/R/SoaresEx18.R
@@ -0,0 +1,40 @@
+#' @name SoaresEx18
+#' @title Valores de creatinina fosfocinase (CFC) em 360 pacientes.
+#' @description Em um hospital do coração, foram analisados os valores 
+#'     de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com 
+#'     infarto agudo do miocárdio.  
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{cfc}}{Indice dos valores de CFC.}
+#'
+#' \item{\code{ia}}{Infarto agudo presente ou não presente.}
+#'
+#' \item{exp}{Variável explicativa com os valores obtidos.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e 
+#'     Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002. 
+#'     Ex 18, pg 127.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx18)
+#'
+#' coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
+#' barchart(coleta, horizontal = FALSE, 
+#'     stack = FALSE,
+#'     scales = list(x = list(labels = c("CFC < 80","CFC >= 280",
+#'     "80 <= CFC < 280"))),
+#'     ylab = "Frequência",
+#'     xlab = "CFC",
+#'     main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
+#'     auto.key = list(corner = c(0.75, 0.95), 
+#'     text = c("não", 
+#'     'sim')))
+#' 
+#' 
+#'
+NULL
diff --git a/R/SoaresEx19.R b/R/SoaresEx19.R
new file mode 100644
index 0000000000000000000000000000000000000000..a32c9f7dc968a92c30087ad8772672f5138ef767
--- /dev/null
+++ b/R/SoaresEx19.R
@@ -0,0 +1,49 @@
+#' @name SoaresEx19
+#' @title Eficácia do exame clínico neurológico
+#' @description A hemorragia peri-intraventricular (HPIV) é uma das
+#'     causas mais frequentes de agressão ao sistema nervoso central no
+#'     período de neonatal e a segunda causa mais frequente de morte em 
+#'     prematuros. Atualmente, o método de escolha para diagnóstico 
+#'     consiste em técnicas não invasivas (ultra-sonografia e tomografia
+#'     computacionalizada). Tavares (1995) estudou a ocorrência desta 
+#'     enfermidade em 120 dos 129 recém-nascidos com peso menor que 
+#'     2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de 
+#'     18/01/1994 a 17/05/1995. Para avaliar a eficácia do exame clínico
+#'     neurológico, as crianças foram examinadas por um pediatra clínico
+#'     com formação em neonatologia, sem o conhecimento prévio dos 
+#'     exames ultrasonográficos, que confirmam ou não diagnóstico 
+#'     fornecido pelo médico.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{hpiv}}{Hemorragia peri-intraventricular presente ou não.}
+#'
+#' \item{\code{ex}}{Exame neurológico alterado ou normal.}
+#'
+#' \item{ef}{Eficiência do exame.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e 
+#'     Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002. 
+#'     Ex 19, pg 128.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx19)
+#'
+#' a <- xtabs(ef ~ hpiv + ex, data = SoaresEx19)
+#' barchart(a, horizontal = FALSE, 
+#'     stack = FALSE,
+#'     scales=list(x=list(labels=c("Ausente","Presente"))),
+#'     ylab = "Frequência",
+#'     xlab = "HPIV",
+#'     main = "Eficácia do exame clínico neurológico",
+#'     auto.key = list(corner = c(0.95, 0.95), 
+#'     text = c("Exame Neurológico Alterado", 
+#'     'Exame Neurológico Normal')))
+#' 
+#' 
+#'
+NULL
diff --git a/R/SoaresEx6.17.R b/R/SoaresEx6.17.R
new file mode 100644
index 0000000000000000000000000000000000000000..b6a74eaec975318a39a5ce8a70cfd5d8756ae000
--- /dev/null
+++ b/R/SoaresEx6.17.R
@@ -0,0 +1,48 @@
+#' @name SoaresEx6.17
+#' @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,
+#'     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
+#'     deles e a depressão diagnosticada em alguns casos.
+#' @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
+#'     do estudo.}
+#'
+#' \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
+#'     estudo.}
+#'
+#' \item{\code{freq}}{Frequência de casos em cada combinação.}
+#'
+#' }
+#' @keywords AAS
+#' @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. \emph{The American Journal of
+#'     Psychiatry}, v.152, p.1185-91, 1995.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' 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
new file mode 100644
index 0000000000000000000000000000000000000000..aeae829fa21af019562c49b77c05f073c8c5087b
--- /dev/null
+++ b/R/SoaresEx6.18.R
@@ -0,0 +1,61 @@
+#' @name SoaresEx6.18
+#' @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 (0.3 g/Kg de massa corporal) antes de amamentarem 
+#'     suas crianças e meia-hora após ter sido obtida uma amostra do 
+#'     leite. Metade das mulheres bebeu o etanol no suco de laranja no 
+#'     primeiro dia de teste e o suco de laranja puro no segundo. A 
+#'     ordem foi invertida para as seis mulheres remanescentes. Amostras
+#'     de leite para o estudo foram obtidas 30 minutos, 1, 2, e 3 horas 
+#'     após o consumo da bebida, de modo a interromper o mínimo possível
+#'     a amamentação. 
+#' @format Um \code{data.frame} com 4 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \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 em ml diante do
+#'     leite ingerido e em minutos para o tempo.}
+#'
+#' \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), tabela 18, pág. 230.
+#' @references MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
+#'     to human milk. \emph{The New England Journal of Medicine}, v.325,
+#'     p.981-5, 1991.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(SoaresEx6.18)
+#' str(SoaresEx6.18)
+#'
+#' dados <- xtabs(exp ~ var + ba, data = SoaresEx6.18)
+#' 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
new file mode 100644
index 0000000000000000000000000000000000000000..d3253bbc6f5fd474c11ceb6e005e9d806a673f05
--- /dev/null
+++ b/R/SoaresEx6.19.R
@@ -0,0 +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 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, em que
+#'
+#' \describe{
+#'
+#' \item{\code{cm}}{Causa de morte.}
+#'
+#' \item{\code{prof}}{Profissão avaliada.}
+#'
+#' \item{\code{freq}}{Frequência de casos tem cada situação.}
+#'
+#' }
+#' @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)
+#' 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
new file mode 100644
index 0000000000000000000000000000000000000000..26f10c6fbc036a4d2048113364bbb88ab684a9a6
--- /dev/null
+++ b/R/SoaresEx6.6.R
@@ -0,0 +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, em que
+#'
+#' \describe{
+#'
+#' \item{\code{hpv}}{Hiperventilação presente ou não presente.}
+#'
+#' \item{\code{tempo}}{Tempo para completar a corrida de 800 metros, em
+#'     segundos.}
+#'
+#' }
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA (2002), exercício 6, capítulo 6, pág. 223.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' 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)")
+#'
+NULL
diff --git a/R/SoaresTb6.1.R b/R/SoaresTb6.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..78b2494449993b039669d5c1c7dd6713c51e9ab9
--- /dev/null
+++ b/R/SoaresTb6.1.R
@@ -0,0 +1,46 @@
+#' @name SoaresTb6.1
+#' @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
+#'     placebo e permaneceram vivos ou mortos durante o experimento.
+#' @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{sit}}{Situação dos pacientes com AIDS após o uso dos
+#'     fármacos no que diz respeito ao prolongamento de suas vidas.}
+#'
+#' \item{freq}{Número de casos em cada situação.}
+#'
+#' }
+#' @keywords TC
+#' @source SOARES; SIQUEIRA (2002), tabela 6.1, pág. 177.
+#' @references FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
+#'     efficacy of azidothymidine (AZT) in treatment of patients with
+#'     AIDS and AIDS-related complez. A doubleblind, placebo-controlled
+#'     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")))
+#'
+NULL
diff --git a/R/SoaresTb6.15.R b/R/SoaresTb6.15.R
new file mode 100644
index 0000000000000000000000000000000000000000..bdc5546fb4c6100fb73d530755bc740677abc27e
--- /dev/null
+++ b/R/SoaresTb6.15.R
@@ -0,0 +1,46 @@
+#' @name SoaresTb6.15
+#' @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 segundo recebimento da
+#'     tieneptina.}
+#'
+#' \item{\code{esc}}{Escore final obtido pelo paciente após os 42 dias.}
+#'
+#' }
+#' @keywords TC
+#' @source SOARES; SIQUEIRA (2002), tabela 6.15, pág. 197.
+#' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
+#'     episódios depressivos maiores: estudo multicêntrico, duplo-cego,
+#'     controlado com placebo. Belo Horizonte: Faculdade de Medicina da
+#'     UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+#'     e Social).
+#' @examples
+#'
+#' library(lattice)
+#'
+#' 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")
+#'
+NULL
diff --git a/R/SoaresTb6.18.R b/R/SoaresTb6.18.R
new file mode 100644
index 0000000000000000000000000000000000000000..f2a2ff2e0685fd782fbd8ad9d87ac297ff45e4d4
--- /dev/null
+++ b/R/SoaresTb6.18.R
@@ -0,0 +1,32 @@
+#' @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
+#'     participantes.
+#' @format Um \code{data.frame} com 12 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{inicio}}{Nível do colesterol no início do programa.}
+#'
+#' \item{\code{final}}{Nível do colesterol no final do programa.}
+#'
+#' }
+#' @keywords TC
+#' @source SOARES; SIQUEIRA (2002), tabela 6.18, pág. 203.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(SoaresTb6.18)
+#' str(SoaresTb6.18)
+#'
+#' xyplot(final ~ inicio,
+#'        data = SoaresTb6.18,
+#'        type = c("p", "a"),
+#'        xlab = "Indivíduos que participaram do programa",
+#'        ylab = "Níveis de colesterol")
+#'
+NULL
diff --git a/R/SoaresTb6.20.R b/R/SoaresTb6.20.R
new file mode 100644
index 0000000000000000000000000000000000000000..5a5b0f90c9b1f53f444a94b5a20a8b63f5f32b54
--- /dev/null
+++ b/R/SoaresTb6.20.R
@@ -0,0 +1,46 @@
+#' @name SoaresTb6.20
+#' @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 16 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{pd}}{Escore obtido pelo paciente no primeiro dia.}
+#'
+#' \item{\code{ud}}{Escore obtido pelo paciente no último dia.}
+#'
+#' }
+#' @keywords AAS
+#' @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)
+#'
+#' data(SoaresTb6.20)
+#' str(SoaresTb6.20)
+#'
+#' xyplot(ud ~ pd,
+#'        data = SoaresTb6.20,
+#'        type = c("p", "a"),
+#'        jitter.x = TRUE,
+#'        xlab = "Pacientes do grupo tianeptina",
+#'        ylab = "Escores dos pacientes")
+#'
+NULL
+
diff --git a/data-raw/SoaresEx18.txt b/data-raw/SoaresEx18.txt
new file mode 100644
index 0000000000000000000000000000000000000000..2259f023f84e3b6d21c6491e6854ff4ea0ca107e
--- /dev/null
+++ b/data-raw/SoaresEx18.txt
@@ -0,0 +1,7 @@
+cfc	ia	exp
+< 80	sim	15
+< 80	não	114
+80-279	sim	118
+80-279	não	15
+>279	sim	97
+>279	não	1
diff --git a/data-raw/SoaresEx19.txt b/data-raw/SoaresEx19.txt
new file mode 100644
index 0000000000000000000000000000000000000000..93ab5f99301ab90e8df6c20c46b36b0baf94e77f
--- /dev/null
+++ b/data-raw/SoaresEx19.txt
@@ -0,0 +1,5 @@
+hpiv	ex	ef
+p	a	25
+p	n	13
+a	a	31
+a	n	50
diff --git a/data-raw/SoaresEx6.17.txt b/data-raw/SoaresEx6.17.txt
new file mode 100644
index 0000000000000000000000000000000000000000..caf6ddba3e9581e6d7758fb1f0b1e06a968fa75c
--- /dev/null
+++ b/data-raw/SoaresEx6.17.txt
@@ -0,0 +1,5 @@
+dpm;dpss;exp
+presente;presente;10
+presente;ausente;7
+ausente;presente;14
+ausente;ausente;168
diff --git a/data-raw/SoaresEx6.18.txt b/data-raw/SoaresEx6.18.txt
new file mode 100644
index 0000000000000000000000000000000000000000..25ac7c3dfbd6aaaf5c2dbcaf24270d287de7ea31
--- /dev/null
+++ b/data-raw/SoaresEx6.18.txt
@@ -0,0 +1,5 @@
+var	ba	exp	ep	teste t	valor-p
+leite ingerido	sim	156.4	8.2	4.69	0.0003
+leite ingerido	nao	120.4	9.5	4.69	0.0003
+tempo	sim	28.6	7.7	0.15	0.88
+tempo	nao	28.2	7.3	0.15	0.88
diff --git a/data-raw/SoaresEx6.19.txt b/data-raw/SoaresEx6.19.txt
new file mode 100644
index 0000000000000000000000000000000000000000..90bcb28681fbcdecb770fcdc7ab6dfbfda4e4a6d
--- /dev/null
+++ b/data-raw/SoaresEx6.19.txt
@@ -0,0 +1,5 @@
+cm	prof	freq
+suicidio	poetas	10
+suicidio	escritores de ficcao	7
+outras	poetas	43
+outras	escritores de ficcao	173
diff --git a/data-raw/SoaresEx6.6.txt b/data-raw/SoaresEx6.6.txt
new file mode 100644
index 0000000000000000000000000000000000000000..c18a4d0fc76dc38725e5ef92aca5b6be38948e83
--- /dev/null
+++ b/data-raw/SoaresEx6.6.txt
@@ -0,0 +1,19 @@
+hpv	tempo
+com	155
+com	150
+com	174
+com	158
+com	155
+com	148
+com	142
+com	164
+com	143
+sem	151
+sem	152
+sem	172
+sem	150
+sem	152
+sem	150
+sem	144
+sem	169
+sem	144
diff --git a/data-raw/SoaresTb6.1.txt b/data-raw/SoaresTb6.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..bcb99e6362679ab4e9d98c10023e19e28b892783
--- /dev/null
+++ b/data-raw/SoaresTb6.1.txt
@@ -0,0 +1,5 @@
+grp	sit	freq
+azt	vivo	144
+azt	morto	1
+placebo	vivo	121
+placebo	morto	16
diff --git a/data-raw/SoaresTb6.15.txt b/data-raw/SoaresTb6.15.txt
new file mode 100644
index 0000000000000000000000000000000000000000..91b629d57d054ae5175f989561fd744b3b84d2fe
--- /dev/null
+++ b/data-raw/SoaresTb6.15.txt
@@ -0,0 +1,33 @@
+grp,esc
+placebo,6
+placebo,33
+placebo,21
+placebo,26
+placebo,10
+placebo,29
+placebo,33
+placebo,29
+placebo,37
+placebo,15
+placebo,2
+placebo,21
+placebo,7
+placebo,26
+placebo,13
+placebo,
+tianeptina,10
+tianeptina,8
+tianeptina,17
+tianeptina,4
+tianeptina,17
+tianeptina,14
+tianeptina,9
+tianeptina,4
+tianeptina,21
+tianeptina,3
+tianeptina,7
+tianeptina,10
+tianeptina,29
+tianeptina,13
+tianeptina,14
+tianeptina,2
diff --git a/data-raw/SoaresTb6.18.txt b/data-raw/SoaresTb6.18.txt
new file mode 100644
index 0000000000000000000000000000000000000000..55dee0ceaa21f019d737638096c3a3ca413caa3a
--- /dev/null
+++ b/data-raw/SoaresTb6.18.txt
@@ -0,0 +1,13 @@
+inicio	final
+201	200
+231	236
+221	216
+260	233
+228	224
+237	216
+326	296
+235	195
+240	207
+267	247
+284	210
+201	209
diff --git a/data-raw/SoaresTb6.20.txt b/data-raw/SoaresTb6.20.txt
new file mode 100644
index 0000000000000000000000000000000000000000..cf892c51d8225223ad5045692ec2b2cb3aa87fea
--- /dev/null
+++ b/data-raw/SoaresTb6.20.txt
@@ -0,0 +1,17 @@
+pd	ud
+24	6
+46	33
+26	21
+44	26
+27	10
+34	29
+33	33
+25	29
+35	37
+30	15
+38	2
+38	21
+31	7
+27	
+34	
+32	26
diff --git a/data/SoaresEx18.rda b/data/SoaresEx18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..aef79019dfe543cb37ac7231c44612988a88775f
Binary files /dev/null and b/data/SoaresEx18.rda differ
diff --git a/data/SoaresEx19.rda b/data/SoaresEx19.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ccbd78e3e2e67ea7319057f55eb6b8c2e94b8a5e
Binary files /dev/null and b/data/SoaresEx19.rda differ
diff --git a/data/SoaresEx6.17.rda b/data/SoaresEx6.17.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f8c808b10ef81ed99b0ca076d7246d78db01aff6
Binary files /dev/null and b/data/SoaresEx6.17.rda differ
diff --git a/data/SoaresEx6.18.rda b/data/SoaresEx6.18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..98365a63fc28bc7deb2e27e6f0a09c52f84e09eb
Binary files /dev/null and b/data/SoaresEx6.18.rda differ
diff --git a/data/SoaresEx6.19.rda b/data/SoaresEx6.19.rda
new file mode 100644
index 0000000000000000000000000000000000000000..90faa8c8f6b421440f5d26dc282d690c6541c543
Binary files /dev/null and b/data/SoaresEx6.19.rda differ
diff --git a/data/SoaresEx6.6.rda b/data/SoaresEx6.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2f55a92ae08f62600be4cd4f330a6aa633980d93
Binary files /dev/null and b/data/SoaresEx6.6.rda differ
diff --git a/data/SoaresTb6.1.rda b/data/SoaresTb6.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..dc9d037d3deda1513785ac27b0b4419e1b07077b
Binary files /dev/null and b/data/SoaresTb6.1.rda differ
diff --git a/data/SoaresTb6.15.rda b/data/SoaresTb6.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f29557e870c0cb233caedf928b7fe026485d3dc5
Binary files /dev/null and b/data/SoaresTb6.15.rda differ
diff --git a/data/SoaresTb6.18.rda b/data/SoaresTb6.18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..495b541525cf3df45de1d3b1112229286c6b4025
Binary files /dev/null and b/data/SoaresTb6.18.rda differ
diff --git a/data/SoaresTb6.20.rda b/data/SoaresTb6.20.rda
new file mode 100644
index 0000000000000000000000000000000000000000..045371cec26dd456f814b60d4e5cdf05868f43ea
Binary files /dev/null and b/data/SoaresTb6.20.rda differ
diff --git a/man/SoaresEx18.Rd b/man/SoaresEx18.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..96c058bf87396a87dc74eb202ca2587f2093a034
--- /dev/null
+++ b/man/SoaresEx18.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx18.R
+\name{SoaresEx18}
+\alias{SoaresEx18}
+\title{Valores de creatinina fosfocinase (CFC) em 360 pacientes.}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{cfc}}{Indice dos valores de CFC.}
+
+\item{\code{ia}}{Infarto agudo presente ou não presente.}
+
+\item{exp}{Variável explicativa com os valores obtidos.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e 
+    Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002. 
+    Ex 18, pg 127.
+}
+\description{
+Em um hospital do coração, foram analisados os valores 
+    de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com 
+    infarto agudo do miocárdio.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx18)
+
+coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
+barchart(coleta, horizontal = FALSE, 
+    stack = FALSE,
+    scales = list(x = list(labels = c("CFC < 80","CFC >= 280",
+    "80 <= CFC < 280"))),
+    ylab = "Frequência",
+    xlab = "CFC",
+    main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
+    auto.key = list(corner = c(0.75, 0.95), 
+    text = c("não", 
+    'sim')))
+
+
+
+}
+\keyword{AAS}
+
diff --git a/man/SoaresEx19.Rd b/man/SoaresEx19.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..2d068d7f2872031dbb7c18633e3ee25a70341991
--- /dev/null
+++ b/man/SoaresEx19.Rd
@@ -0,0 +1,57 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx19.R
+\name{SoaresEx19}
+\alias{SoaresEx19}
+\title{Eficácia do exame clínico neurológico}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{hpiv}}{Hemorragia peri-intraventricular presente ou não.}
+
+\item{\code{ex}}{Exame neurológico alterado ou normal.}
+
+\item{ef}{Eficiência do exame.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e 
+    Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002. 
+    Ex 19, pg 128.
+}
+\description{
+A hemorragia peri-intraventricular (HPIV) é uma das
+    causas mais frequentes de agressão ao sistema nervoso central no
+    período de neonatal e a segunda causa mais frequente de morte em 
+    prematuros. Atualmente, o método de escolha para diagnóstico 
+    consiste em técnicas não invasivas (ultra-sonografia e tomografia
+    computacionalizada). Tavares (1995) estudou a ocorrência desta 
+    enfermidade em 120 dos 129 recém-nascidos com peso menor que 
+    2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de 
+    18/01/1994 a 17/05/1995. Para avaliar a eficácia do exame clínico
+    neurológico, as crianças foram examinadas por um pediatra clínico
+    com formação em neonatologia, sem o conhecimento prévio dos 
+    exames ultrasonográficos, que confirmam ou não diagnóstico 
+    fornecido pelo médico.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx19)
+
+a <- xtabs(ef ~ hpiv + ex, data = SoaresEx19)
+barchart(a, horizontal = FALSE, 
+    stack = FALSE,
+    scales=list(x=list(labels=c("Ausente","Presente"))),
+    ylab = "Frequência",
+    xlab = "HPIV",
+    main = "Eficácia do exame clínico neurológico",
+    auto.key = list(corner = c(0.95, 0.95), 
+    text = c("Exame Neurológico Alterado", 
+    'Exame Neurológico Normal')))
+
+
+
+}
+\keyword{AAS}
+
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..5365fa9d0895a62a255b92f7b89061009972bca1
--- /dev/null
+++ b/man/SoaresEx6.17.Rd
@@ -0,0 +1,58 @@
+% Generated by roxygen2: do not edit by hand
+% 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, em que
+
+\describe{
+
+\item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
+    do estudo.}
+
+\item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
+    estudo.}
+
+\item{\code{freq}}{Frequência de casos em cada combinação.}
+
+}}
+\source{
+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,
+    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
+    deles e a depressão diagnosticada em alguns casos.
+}
+\examples{
+
+library(lattice)
+
+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. \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
new file mode 100644
index 0000000000000000000000000000000000000000..95a3081df713d63fd041a9a58e50a42363aa1869
--- /dev/null
+++ b/man/SoaresEx6.18.Rd
@@ -0,0 +1,68 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx6.18.R
+\name{SoaresEx6.18}
+\alias{SoaresEx6.18}
+\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
+    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{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.}
+
+}}
+\source{
+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.
+    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
+    após ter sido obtida uma amostra do leite. Amostras de leite para
+    o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
+    da bebida, de modo a interromper o mínimo possível a
+    amamentação. TODO Não entendi os dados da tabela, não foi
+    possível associar com o enunciado.
+}
+\examples{
+
+library(lattice)
+
+data(SoaresEx6.18)
+str(SoaresEx6.18)
+
+dados <- xtabs(exp ~ var + ba, data = SoaresEx6.18)
+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. \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
new file mode 100644
index 0000000000000000000000000000000000000000..977c3d1e78c4e63e73d78a9f2d7cbe0069a37364
--- /dev/null
+++ b/man/SoaresEx6.19.Rd
@@ -0,0 +1,59 @@
+% Generated by roxygen2: do not edit by hand
+% 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, em que
+
+\describe{
+
+\item{\code{cm}}{Causa de morte.}
+
+\item{\code{prof}}{Profissão avaliada.}
+
+\item{\code{freq}}{Frequência de casos tem cada situação.}
+
+}}
+\source{
+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 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)
+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. \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
new file mode 100644
index 0000000000000000000000000000000000000000..05f1060853bdd27ac38354951df6ee02f8962b7b
--- /dev/null
+++ b/man/SoaresEx6.6.Rd
@@ -0,0 +1,47 @@
+% Generated by roxygen2: do not edit by hand
+% 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, em que
+
+\describe{
+
+\item{\code{hpv}}{Hiperventilação presente ou não presente.}
+
+\item{\code{tempo}}{Tempo para completar a corrida de 800 metros, em
+    segundos.}
+
+}}
+\source{
+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
+    no outro após a hiperentilação voluntária.
+}
+\examples{
+
+library(lattice)
+
+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
new file mode 100644
index 0000000000000000000000000000000000000000..2ced6ba3d527fdd0c812a42c48028a95b549d277
--- /dev/null
+++ b/man/SoaresTb6.1.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresTb6.1.R
+\name{SoaresTb6.1}
+\alias{SoaresTb6.1}
+\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{sit}}{Situação dos pacientes com AIDS após o uso dos
+    fármacos no que diz respeito ao prolongamento de suas vidas.}
+
+\item{freq}{Número de casos em cada situação.}
+
+}}
+\source{
+SOARES; SIQUEIRA (2002), tabela 6.1, pág. 177.
+}
+\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
+    placebo e permaneceram vivos ou mortos durante o experimento.
+}
+\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")))
+
+}
+\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. \emph{The New England Journal of Medicine}, v.317, n.4
+    p.185-91, 1987.
+}
+\keyword{TC}
+
diff --git a/man/SoaresTb6.15.Rd b/man/SoaresTb6.15.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..d70c593ca8b7ae9cb8c3dd04084c226e5cbdc82c
--- /dev/null
+++ b/man/SoaresTb6.15.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% 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 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 segundo recebimento da
+    tieneptina.}
+
+\item{\code{esc}}{Escore final obtido pelo paciente após os 42 dias.}
+
+}}
+\source{
+SOARES; SIQUEIRA (2002), tabela 6.15, pág. 197.
+}
+\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.
+}
+\examples{
+
+library(lattice)
+
+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
+    e Social).
+}
+\keyword{TC}
+
diff --git a/man/SoaresTb6.18.Rd b/man/SoaresTb6.18.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..dbb6d975ca5e2bcbd61435ac19f830c85223288b
--- /dev/null
+++ b/man/SoaresTb6.18.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% 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 12 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{inicio}}{Nível do colesterol no início do programa.}
+
+\item{\code{final}}{Nível do colesterol no final do programa.}
+
+}}
+\source{
+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
+    participantes.
+}
+\examples{
+
+library(lattice)
+
+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{TC}
+
diff --git a/man/SoaresTb6.20.Rd b/man/SoaresTb6.20.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..b0f8dbb61e1923bf4a15359f18ef862c6ddf3f77
--- /dev/null
+++ b/man/SoaresTb6.20.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresTb6.20.R
+\name{SoaresTb6.20}
+\alias{SoaresTb6.20}
+\title{Escores do Grupo Tianeptina no Primeiro e Último Dia}
+\format{Um \code{data.frame} com 16 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{pd}}{Escore obtido pelo paciente no primeiro dia.}
+
+\item{\code{ud}}{Escore obtido pelo paciente no último dia.}
+
+}}
+\source{
+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
+    e no último dia.
+}
+\examples{
+
+library(lattice)
+
+data(SoaresTb6.20)
+str(SoaresTb6.20)
+
+xyplot(ud ~ pd,
+       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
+    e Social).
+}
+\keyword{AAS}
+
diff --git a/man/labestData.Rd b/man/labestData.Rd
index 24932f76be1612880326d9307b30336969655914..8a8c53af520513d49f2faa67bf573918ceb4ae96 100644
--- a/man/labestData.Rd
+++ b/man/labestData.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.1): do not edit by hand
+% Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/labestData.R
 \docType{package}
 \name{labestData}