diff --git a/R/PaulinoTb1.9.R b/R/PaulinoTb1.9.R
index f66989265886af884ee82ed98da4616039abaa4a..b667aaa4b1e8357bacf56ee74a2a62f0f423ba6e 100644
--- a/R/PaulinoTb1.9.R
+++ b/R/PaulinoTb1.9.R
@@ -1,19 +1,20 @@
 #' @name PaulinoTb1.9
 #' @title Grupos Sanguíneos em 3 Amostras
 #' @description Distribuições observadas de grupos (fenótipos) de sangue
-#'     em 3 amostras de populações de Londres, uma de controlo e as
-#'     outras de pacientes com úlcera estomacal ou doudenal 
+#'     em 3 amostras de populações de Londres, uma de controle e as
+#'     outras de pacientes com úlcera estomacal ou doudenal.
 #'     
 #' @format Um \code{data.frame} com 12 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{amost}}{Amostras de sangue (controlo, úlcera estomacal e
-#'     duodenal).}
+#' \item{\code{amost}}{Característica da amostra (controle, úlcera
+#'     estomacal e duodenal).}
 #'
 #' \item{\code{sang}}{Grupo sanguíneo (O, A, B, AB).}
 #'
-#' \item{\code{dist}}{Distribuição observada dos grupos sanguíneos.}
+#' \item{\code{freq}}{Frequência de pacientes na amostra \code{amost} do
+#'     grupo sanguíneo \code{sang}.}
 #'
 #' }
 #' @keywords contingência
@@ -30,13 +31,13 @@
 #' 
 #' str(PaulinoTb1.9)
 #' 
-#' xt <- xtabs(dist ~ amost + sang, data = PaulinoTb1.9)
+#' xt <- xtabs(freq ~ amost + sang, data = PaulinoTb1.9)
 #'
 #' xt
 #' prop.table(xt)
 #'
 #' mosaicplot(xt, main = NULL,
 #'            xlab = "Amostras",
-#'            ylab = "Tipo de sangue")
+#'            ylab = "Tipos de sangue")
 #'
 NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb1.9.txt b/data-raw/PaulinoTb1.9.txt
index dc252f60f40594287484087e4b1d08b2b0607c52..9828f5b5c68c8f02fd6fddc9d9a434bff3b48d9a 100644
--- a/data-raw/PaulinoTb1.9.txt
+++ b/data-raw/PaulinoTb1.9.txt
@@ -1,8 +1,8 @@
-amost	sang	dist
-controlo	O	4578
-controlo	A	4219
-controlo	B	890
-controlo	AB	313
+amost	sang	freq
+controle	O	4578
+controle	A	4219
+controle	B	890
+controle	AB	313
 estomacal	O	181
 estomacal	A	96
 estomacal	B	18
diff --git a/data/PaulinoTb1.9.rda b/data/PaulinoTb1.9.rda
index 4df411ee6f33ab36489b487bff965e4344553980..45971c27912498e7c621d5cb9201815f2547464c 100644
Binary files a/data/PaulinoTb1.9.rda and b/data/PaulinoTb1.9.rda differ
diff --git a/man/PaulinoTb1.9.Rd b/man/PaulinoTb1.9.Rd
index 80fa0bd99663ac7f5aecfc49824382ceac7b83c4..d2aa8b183755c5b155b3cd52cee7d62ffb88058a 100644
--- a/man/PaulinoTb1.9.Rd
+++ b/man/PaulinoTb1.9.Rd
@@ -7,12 +7,13 @@
 
 \describe{
 
-\item{\code{amost}}{Amostras de sangue (controlo, úlcera estomacal e
-    duodenal).}
+\item{\code{amost}}{Característica da amostra (controle, úlcera
+    estomacal e duodenal).}
 
 \item{\code{sang}}{Grupo sanguíneo (O, A, B, AB).}
 
-\item{\code{dist}}{Distribuição observada dos grupos sanguíneos.}
+\item{\code{freq}}{Frequência de pacientes na amostra \code{amost} do
+    grupo sanguíneo \code{sang}.}
 
 }}
 \source{
@@ -21,23 +22,24 @@ Paulino, C. D., Singer, J. M. (2006). Análise de Dados
     (Tabela 1.9, pág. 12).
 }
 \description{
-Distribuições observadas de grupos (fenótipos) de sague
-    em 3 amostras de populações de Londres, uma de controlos e as
-    outras de pacientes com úlcera, estomacal num caso e doudenal no
-    outro.
+Distribuições observadas de grupos (fenótipos) de sangue
+    em 3 amostras de populações de Londres, uma de controle e as
+    outras de pacientes com úlcera estomacal ou doudenal.
 }
 \examples{
 
+data(PaulinoTb1.9) 
+
 str(PaulinoTb1.9)
 
-xt <- xtabs(dist ~ amost + sang, data = PaulinoTb1.9)
+xt <- xtabs(freq ~ amost + sang, data = PaulinoTb1.9)
 
 xt
 prop.table(xt)
 
 mosaicplot(xt, main = NULL,
            xlab = "Amostras",
-           ylab = "Tipo de sangue")
+           ylab = "Tipos de sangue")
 
 }
 \references{