diff --git a/R/SoaresEx6.17.R b/R/SoaresEx6.17.R
index 213b87797b324e05777e04561a937e36309ea024..b6a74eaec975318a39a5ce8a70cfd5d8756ae000 100644
--- a/R/SoaresEx6.17.R
+++ b/R/SoaresEx6.17.R
@@ -17,7 +17,7 @@
 #' \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
 #'     estudo.}
 #'
-#' \item{freq}{Frequência de casos em cada combinação.}
+#' \item{\code{freq}}{Frequência de casos em cada combinação.}
 #'
 #' }
 #' @keywords AAS
diff --git a/R/SoaresEx6.18.R b/R/SoaresEx6.18.R
index ff9e5f04315eb012a3affd5b68c83ffbe0978d78..aeae829fa21af019562c49b77c05f073c8c5087b 100644
--- a/R/SoaresEx6.18.R
+++ b/R/SoaresEx6.18.R
@@ -6,12 +6,14 @@
 #'     ou no comportamento dos lactentes foi objeto de estudo de
 #'     Mennella e Beauchamp (1991). Durante dois dias, com intervalo de
 #'     uma semana, doze mulheres consumiram suco de laranja puro ou
-#'     contendo etanol antes de amamentarem suas crianças e meia-hora
-#'     após ter sido obtida uma amostra do leite. Amostras de leite para
-#'     o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
-#'     da bebida, de modo a interromper o mínimo possível a
-#'     amamentação. TODO Não entendi os dados da tabela, não foi
-#'     possível associar com o enunciado.
+#'     contendo etanol (0.3 g/Kg de massa corporal) antes de amamentarem 
+#'     suas crianças e meia-hora após ter sido obtida uma amostra do 
+#'     leite. Metade das mulheres bebeu o etanol no suco de laranja no 
+#'     primeiro dia de teste e o suco de laranja puro no segundo. A 
+#'     ordem foi invertida para as seis mulheres remanescentes. Amostras
+#'     de leite para o estudo foram obtidas 30 minutos, 1, 2, e 3 horas 
+#'     após o consumo da bebida, de modo a interromper o mínimo possível
+#'     a amamentação. 
 #' @format Um \code{data.frame} com 4 observações e 6 variáveis, em que
 #'
 #' \describe{
@@ -19,7 +21,8 @@
 #' \item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
 #'     ingerido pela criança e o tempo de duração da amamentação.}
 #'
-#' \item{\code{exp}}{Variável explicativa com os valores.}
+#' \item{\code{exp}}{Variável explicativa com os valores em ml diante do
+#'     leite ingerido e em minutos para o tempo.}
 #'
 #' \item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida.}
 #'
@@ -31,7 +34,7 @@
 #'
 #' }
 #' @keywords AAS
-#' @source SOARES; SIQUEIRA, (2002), tabela 18, pág. 231.
+#' @source SOARES; SIQUEIRA, (2002), tabela 18, pág. 230.
 #' @references MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
 #'     to human milk. \emph{The New England Journal of Medicine}, v.325,
 #'     p.981-5, 1991.
diff --git a/R/SoaresTb6.1.R b/R/SoaresTb6.1.R
index cda424241c546055b97c6f257e969fafc85cb8b2..78b2494449993b039669d5c1c7dd6713c51e9ab9 100644
--- a/R/SoaresTb6.1.R
+++ b/R/SoaresTb6.1.R
@@ -18,7 +18,7 @@
 #' \item{freq}{Número de casos em cada situação.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords TC
 #' @source SOARES; SIQUEIRA (2002), tabela 6.1, pág. 177.
 #' @references FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
 #'     efficacy of azidothymidine (AZT) in treatment of patients with
diff --git a/R/SoaresTb6.15.R b/R/SoaresTb6.15.R
index 4fcc2ab0770b73825ed63f240b6ab9913f4601c1..bdc5546fb4c6100fb73d530755bc740677abc27e 100644
--- a/R/SoaresTb6.15.R
+++ b/R/SoaresTb6.15.R
@@ -18,12 +18,11 @@
 #' \item{\code{grp}}{Grupos de pacientes segundo recebimento da
 #'     tieneptina.}
 #'
-#' \item{\code{esc}}{Escore final obtido pelo paciente. TODO os escores
-#'     dessa tabela são que de dias? todos os paciêntes no dia 7?.}
+#' \item{\code{esc}}{Escore final obtido pelo paciente após os 42 dias.}
 #'
 #' }
-#' @keywords AAS
-#' @source SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
+#' @keywords TC
+#' @source SOARES; SIQUEIRA (2002), tabela 6.15, pág. 197.
 #' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
 #'     episódios depressivos maiores: estudo multicêntrico, duplo-cego,
 #'     controlado com placebo. Belo Horizonte: Faculdade de Medicina da
diff --git a/R/SoaresTb6.18.R b/R/SoaresTb6.18.R
index 643ec02991cb361aec8a6bc7662fa8dbfcd37264..f2a2ff2e0685fd782fbd8ad9d87ac297ff45e4d4 100644
--- a/R/SoaresTb6.18.R
+++ b/R/SoaresTb6.18.R
@@ -5,16 +5,16 @@
 #'     físicos na redução dos níveis de colesterol. Foram registrados os
 #'     níveis de colesterol no início e no final do programa de 12
 #'     participantes.
-#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
+#' @format Um \code{data.frame} com 12 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{prg}}{Expecificação do programa: início e final.}
+#' \item{\code{inicio}}{Nível do colesterol no início do programa.}
 #'
-#' \item{\code{col}}{Colesterol dos pacientes.}
+#' \item{\code{final}}{Nível do colesterol no final do programa.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords TC
 #' @source SOARES; SIQUEIRA (2002), tabela 6.18, pág. 203.
 #' @examples
 #'
@@ -23,19 +23,10 @@
 #' data(SoaresTb6.18)
 #' str(SoaresTb6.18)
 #'
-#' xyplot(exp ~ prg,
+#' xyplot(final ~ inicio,
 #'        data = SoaresTb6.18,
 #'        type = c("p", "a"),
 #'        xlab = "Indivíduos que participaram do programa",
 #'        ylab = "Níveis de colesterol")
 #'
 NULL
-
-# TODO: Esses dados parecem ser uma amostra pareada, ou seja, os
-# indivíduos foram medidos duas vezes gerando um par de valores (antes,
-# depois). Sendo assim, o mais apropriado é ter um data.frame com duas
-# colunas, {antes, depois} com os valores de colesterol. Cada linha
-# seria um indivíduo. Se os individuos estão na ordem correta, a função
-# unstack() faz isso facilmente.
-#
-# unstack(SoaresTb6.18, exp ~ prg)
diff --git a/R/SoaresTb6.20.R b/R/SoaresTb6.20.R
index 82151b34df6badb33e5f1dffaa1d74859eabc284..5a5b0f90c9b1f53f444a94b5a20a8b63f5f32b54 100644
--- a/R/SoaresTb6.20.R
+++ b/R/SoaresTb6.20.R
@@ -12,14 +12,13 @@
 #'     apresentados são escores atribuídos a 16 pacientes do grupo
 #'     tianeptina que foram admitidos em Belo Horizonte no primeiro dia
 #'     e no último dia.
-#' @format Um \code{data.frame} com 32 observações e 2 variáveis, em que
+#' @format Um \code{data.frame} com 16 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{per}}{Período de tempo na qual o dado foi coletado.}
+#' \item{\code{pd}}{Escore obtido pelo paciente no primeiro dia.}
 #'
-#' \item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
-#'     quanto no segundo dia.}
+#' \item{\code{ud}}{Escore obtido pelo paciente no último dia.}
 #'
 #' }
 #' @keywords AAS
@@ -36,7 +35,7 @@
 #' data(SoaresTb6.20)
 #' str(SoaresTb6.20)
 #'
-#' xyplot(esc ~ per,
+#' xyplot(ud ~ pd,
 #'        data = SoaresTb6.20,
 #'        type = c("p", "a"),
 #'        jitter.x = TRUE,
@@ -45,7 +44,3 @@
 #'
 NULL
 
-# TODO Esse parece ser um dado pareado onde o indivíduo é medido duas
-# vezes, no primeiro e no último dia. É mais apropriado representar em
-# uma tabela com duas colunas, {primeiro, ultimo}, com os valores para o
-# escore sendo que cada linha seria um indivíduo.
diff --git a/data-raw/SoaresTb6.18.txt b/data-raw/SoaresTb6.18.txt
index 329db27c8b4a99f67268dc1bc5e2b2c96a5fa47c..55dee0ceaa21f019d737638096c3a3ca413caa3a 100644
--- a/data-raw/SoaresTb6.18.txt
+++ b/data-raw/SoaresTb6.18.txt
@@ -1,25 +1,13 @@
-prg	exp
-inicio 	201
-inicio 	231
-inicio 	221
-inicio 	260
-inicio 	228
-inicio 	237
-inicio 	326
-inicio 	235
-inicio 	240
-inicio 	267
-inicio 	284
-inicio 	201
-final	200
-final	236
-final	216
-final	233
-final	224
-final	216
-final	296
-final	195
-final	207
-final	247
-final	210
-final	209
+inicio	final
+201	200
+231	236
+221	216
+260	233
+228	224
+237	216
+326	296
+235	195
+240	207
+267	247
+284	210
+201	209
diff --git a/data-raw/SoaresTb6.20.txt b/data-raw/SoaresTb6.20.txt
index ead48b04dc9feb8862e25dd416020084ed960c3f..cf892c51d8225223ad5045692ec2b2cb3aa87fea 100644
--- a/data-raw/SoaresTb6.20.txt
+++ b/data-raw/SoaresTb6.20.txt
@@ -1,33 +1,17 @@
-per	esc
-primeiro dia	24
-primeiro dia	46
-primeiro dia	26
-primeiro dia	44
-primeiro dia	27
-primeiro dia	34
-primeiro dia	33
-primeiro dia	25
-primeiro dia	35
-primeiro dia	30
-primeiro dia	38
-primeiro dia	38
-primeiro dia	31
-primeiro dia	27
-primeiro dia	34
-primeiro dia	32
-ultimo dia	6
-ultimo dia	33
-ultimo dia	21
-ultimo dia	26
-ultimo dia	10
-ultimo dia	29
-ultimo dia	33
-ultimo dia	29
-ultimo dia	37
-ultimo dia	15
-ultimo dia	2
-ultimo dia	21
-ultimo dia	7
-ultimo dia	NA
-ultimo dia	NA
-ultimo dia	26
+pd	ud
+24	6
+46	33
+26	21
+44	26
+27	10
+34	29
+33	33
+25	29
+35	37
+30	15
+38	2
+38	21
+31	7
+27	
+34	
+32	26
diff --git a/data/SoaresTb6.18.rda b/data/SoaresTb6.18.rda
index 0cb2369dff5d0a3464d87c612212ef6e4f1ebd95..495b541525cf3df45de1d3b1112229286c6b4025 100644
Binary files a/data/SoaresTb6.18.rda and b/data/SoaresTb6.18.rda differ
diff --git a/data/SoaresTb6.20.rda b/data/SoaresTb6.20.rda
index 3f3362333d400db8a984f195c5abb109ef8d2e5d..045371cec26dd456f814b60d4e5cdf05868f43ea 100644
Binary files a/data/SoaresTb6.20.rda and b/data/SoaresTb6.20.rda differ
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
index 736d5c6e01a1530b08034e8cd25da71ce26be25a..5365fa9d0895a62a255b92f7b89061009972bca1 100644
--- a/man/SoaresEx6.17.Rd
+++ b/man/SoaresEx6.17.Rd
@@ -14,7 +14,7 @@
 \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
     estudo.}
 
-\item{freq}{Frequência de casos em cada combinação.}
+\item{\code{freq}}{Frequência de casos em cada combinação.}
 
 }}
 \source{
diff --git a/man/SoaresTb6.1.Rd b/man/SoaresTb6.1.Rd
index dce1b50188854ac210c64b64024b41d0310923b3..2ced6ba3d527fdd0c812a42c48028a95b549d277 100644
--- a/man/SoaresTb6.1.Rd
+++ b/man/SoaresTb6.1.Rd
@@ -52,5 +52,5 @@ FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
     trial. \emph{The New England Journal of Medicine}, v.317, n.4
     p.185-91, 1987.
 }
-\keyword{AAS}
+\keyword{TC}
 
diff --git a/man/SoaresTb6.15.Rd b/man/SoaresTb6.15.Rd
index 9649f510bdcaf2911b4306ed6caab0a407e79156..d70c593ca8b7ae9cb8c3dd04084c226e5cbdc82c 100644
--- a/man/SoaresTb6.15.Rd
+++ b/man/SoaresTb6.15.Rd
@@ -11,12 +11,11 @@
 \item{\code{grp}}{Grupos de pacientes segundo recebimento da
     tieneptina.}
 
-\item{\code{esc}}{Escore final obtido pelo paciente. TODO os escores
-    dessa tabela são que de dias? todos os paciêntes no dia 7?.}
+\item{\code{esc}}{Escore final obtido pelo paciente após os 42 dias.}
 
 }}
 \source{
-SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
+SOARES; SIQUEIRA (2002), tabela 6.15, pág. 197.
 }
 \description{
 A tianeptina é um fármaco antidepressivo do grupo dos
@@ -53,5 +52,5 @@ ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
     UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
     e Social).
 }
-\keyword{AAS}
+\keyword{TC}
 
diff --git a/man/SoaresTb6.18.Rd b/man/SoaresTb6.18.Rd
index b338ece6580670d14deaa9cd6e2c2760f67ff73a..dbb6d975ca5e2bcbd61435ac19f830c85223288b 100644
--- a/man/SoaresTb6.18.Rd
+++ b/man/SoaresTb6.18.Rd
@@ -3,13 +3,13 @@
 \name{SoaresTb6.18}
 \alias{SoaresTb6.18}
 \title{Níveis de Colesterol no Início e no Final do Programa}
-\format{Um \code{data.frame} com 24 observações e 2 variáveis, em que
+\format{Um \code{data.frame} com 12 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{prg}}{Expecificação do programa: início e final.}
+\item{\code{inicio}}{Nível do colesterol no início do programa.}
 
-\item{\code{col}}{Colesterol dos pacientes.}
+\item{\code{final}}{Nível do colesterol no final do programa.}
 
 }}
 \source{
@@ -36,5 +36,5 @@ xyplot(exp ~ prg,
        ylab = "Níveis de colesterol")
 
 }
-\keyword{AAS}
+\keyword{TC}
 
diff --git a/man/SoaresTb6.20.Rd b/man/SoaresTb6.20.Rd
index 6c25dbdf90df7fb1d614f50a3c505098c489fe6b..b0f8dbb61e1923bf4a15359f18ef862c6ddf3f77 100644
--- a/man/SoaresTb6.20.Rd
+++ b/man/SoaresTb6.20.Rd
@@ -3,14 +3,13 @@
 \name{SoaresTb6.20}
 \alias{SoaresTb6.20}
 \title{Escores do Grupo Tianeptina no Primeiro e Último Dia}
-\format{Um \code{data.frame} com 32 observações e 2 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 2 variáveis, em que
 
 \describe{
 
-\item{\code{per}}{Período de tempo na qual o dado foi coletado.}
+\item{\code{pd}}{Escore obtido pelo paciente no primeiro dia.}
 
-\item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
-    quanto no segundo dia.}
+\item{\code{ud}}{Escore obtido pelo paciente no último dia.}
 
 }}
 \source{
@@ -37,7 +36,7 @@ library(lattice)
 data(SoaresTb6.20)
 str(SoaresTb6.20)
 
-xyplot(esc ~ per,
+xyplot(ud ~ pd,
        data = SoaresTb6.20,
        type = c("p", "a"),
        jitter.x = TRUE,