diff --git a/R/DemetrioTb1.5.R b/R/DemetrioTb1.5.R
index 0c74a13f666ba645ed25a593b44a6256a1947f18..6fd2155c36df3fe4bd0662292d78b28c51dce5fe 100644
--- a/R/DemetrioTb1.5.R
+++ b/R/DemetrioTb1.5.R
@@ -1,32 +1,40 @@
#' @name DemetrioTb1.5
-#' @title Valores de CTC direta e indereta
-#'
-#' @description O experimento foi realizado em quatro blocos, sendo
-#' planejado para estudar o efeito da calagem sobre a CTC
-#' (Capacidade de troca catiônica) do solo medida por dois métodos
-#' diferentes.
-#'
-#' Os valores foram medidos 18 meses após a calagem incorporada ao
-#' solo, segundo a dose de calcário, medida em tonelados por hectare
-#' (t/ha).
+#' @title Valores de CTC Direta e Indereta
#'
+#' @description O experimento foi realizado em quatro blocos, sendo
+#' planejado para estudar o efeito da calagem sobre a CTC
+#' (Capacidade de Troca Catiônica) do solo medida por dois métodos
+#' diferentes. Os valores de CTC foram medidos 18 meses após a
+#' calagem incorporada ao solo, na profundidade de 5 a 10 cm, segundo
+#' a dose de calcário.
+#'
#' @format Um \code{data.frame} de 32 linhas e 4 colunas.
#'
#' \describe{
#'
-#' \item{\code{bloco}}{Indica a qual bloco a amostra pertence.}
+#' \item{\code{bloco}}{Fator que indica a qual bloco a amostra
+#' pertence, usado para controle de variação.}
#'
-#' \item{\code{dose}}{Indica a dose usada na referida observação.}
+#' \item{\code{dose}}{Indica a dose de calcário usada na referida
+#' observação, medida em tonelados por hectare (t/ha).}
#'
-#' \item{\code{direta}}{Indica se é valor de CTC direta (1) ou
-#' indireta (0).}
+#' \item{\code{metodo}}{Fator que indica o método para determinação
+#' da CTC, direto (1) ou indireto (0).}
#'
#' \item{\code{ctc}}{É o valor observado de CTC, medido em
-#' mmol_{c}/kg.}
+#' \eqn{mmol_{c}/kg}.}
#'
#' }
-#'
-#' @keywords CTC solo
+#'
+#' @details Na análise inicial do estudo do estudo foi detectada a
+#' presença de um dado discrepante (177,00) correspondente ao
+#' \code{bloco} I, \code{dose} 7,80 e \code{metodo} indireto. Em
+#' conversa com o pesquisador verificou-se que se tratava de um erro
+#' na transcrição dos dados e que o valor correto seria
+#' 124,00. Neste conjunto de dados mante-ve o valor discrepante para
+#' efeitos didáticos.
+#'
+#' @keywords TODO
#'
#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
#' Regressão. Piracicaba: ESALQ. (Tabela 1.5 pág. 12)
@@ -35,12 +43,22 @@
#'
#' library(lattice)
#'
-#' data(DemetrioTb1.5)
+#' xyplot(ctc ~ dose | bloco, groups = metodo,
+#' data = DemetrioTb1.5,
+#' main = "Dose VS CTC",
+#' xlab = "Dose", ylab = "CTC",
+#' type = c("p", "r"),
+#' auto.key = list(space = "right", title = "Método"))
+#'
+#' # Corrigindo dado, conforme erro verificado pelo pesquisador
+#' select <- with(DemetrioTb1.5, bloco == 1 & dose == 7.8 & metodo == 0)
+#' DemetrioTb1.5$ctc[select] <- 124
#'
-#' xyplot(ctc ~ dose, data = DemetrioTb1.5,
-#' main = "Dose VS CTC",
-#' xlab = "Dose",
-#' ylab = "CTC",
-#' type = c("p", "r"), col.line = 3)
+#' xyplot(ctc ~ dose | bloco, groups = metodo,
+#' data = DemetrioTb1.5,
+#' main = "Dose VS CTC",
+#' xlab = "Dose", ylab = "CTC",
+#' type = c("p","r"),
+#' auto.key = list(space = "right", title = "Método"))
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/DemetrioTb1.5.txt b/data-raw/DemetrioTb1.5.txt
index ee8e2ebe47806155dff5fc6c9bd006e0310ecfe7..a70150b8f0e13d5c454bf1733648dacbadfabdc4 100644
--- a/data-raw/DemetrioTb1.5.txt
+++ b/data-raw/DemetrioTb1.5.txt
@@ -1,33 +1,33 @@
-bloco dose direta ctc
-1 0 0 83
-2 0 0 90.7
-3 0 0 85.8
-4 0 0 85.5
-1 2 0 87.6
-2 2 0 84.6
-3 2 0 97.5
-4 2 0 80.8
-1 4.9 0 106.6
-2 4.9 0 111.4
-3 4.9 0 102.4
-4 4.9 0 112.4
-1 7.8 0 177
-2 7.8 0 112.2
-3 7.8 0 125.6
-4 7.8 0 106.4
-1 0 1 38.8
-2 0 1 38.8
-3 0 1 45.6
-4 0 1 50.2
-1 2 1 59.2
-2 2 1 53
-3 2 1 57.2
-4 2 1 62.8
-1 4.9 1 68.6
-2 4.9 1 73.3
-3 4.9 1 79.3
-4 4.9 1 77.9
-1 7.8 1 68.8
-2 7.8 1 90.7
-3 7.8 1 84.5
-4 7.8 1 73.8
+bloco dose metodo ctc
+I 0 0 83
+II 0 0 90.7
+III 0 0 85.8
+IV 0 0 85.5
+I 2 0 87.6
+II 2 0 84.6
+III 2 0 97.5
+IV 2 0 80.8
+I 4.9 0 106.6
+II 4.9 0 111.4
+III 4.9 0 102.4
+IV 4.9 0 112.4
+I 7.8 0 177
+II 7.8 0 112.2
+III 7.8 0 125.6
+IV 7.8 0 106.4
+I 0 1 38.8
+II 0 1 38.8
+III 0 1 45.6
+IV 0 1 50.2
+I 2 1 59.2
+II 2 1 53
+III 2 1 57.2
+IV 2 1 62.8
+I 4.9 1 68.6
+II 4.9 1 73.3
+III 4.9 1 79.3
+IV 4.9 1 77.9
+I 7.8 1 68.8
+II 7.8 1 90.7
+III 7.8 1 84.5
+IV 7.8 1 73.8
diff --git a/data/DemetrioTb1.5.rda b/data/DemetrioTb1.5.rda
index c612691747ebf05d697aedfc7fb826e4bcbb3824..7e86c42a19ce8a6631bf89b5ec3fa88d337ca52e 100644
Binary files a/data/DemetrioTb1.5.rda and b/data/DemetrioTb1.5.rda differ
diff --git a/man/DemetrioTb1.5.Rd b/man/DemetrioTb1.5.Rd
index 1c2ffe33e7a711f95cdf05ab7769e6a266569afa..f292cb50e0bbb180bc101b90024ac26c716f639e 100644
--- a/man/DemetrioTb1.5.Rd
+++ b/man/DemetrioTb1.5.Rd
@@ -2,20 +2,22 @@
% Please edit documentation in R/DemetrioTb1.5.R
\name{DemetrioTb1.5}
\alias{DemetrioTb1.5}
-\title{Valores de CTC direta e indereta}
+\title{Valores de CTC Direta e Indereta}
\format{Um \code{data.frame} de 32 linhas e 4 colunas.
\describe{
- \item{\code{bloco}}{Indica a qual bloco a amostra pertence.}
+ \item{\code{bloco}}{Fator que indica a qual bloco a amostra
+ pertence, usado para controle de variação.}
- \item{\code{dose}}{Indica a dose usada na referida observação.}
+ \item{\code{dose}}{Indica a dose de calcário usada na referida
+ observação, medida em tonelados por hectare (t/ha).}
- \item{\code{direta}}{Indica se é valor de CTC direta (1) ou
- indireta (0).}
+ \item{\code{metodo}}{Fator que indica o método para determinação
+ da CTC, direto (1) ou indireto (0).}
\item{\code{ctc}}{É o valor observado de CTC, medido em
- mmol_{c}/kg.}
+ \eqn{mmol_{c}/kg}.}
}}
\source{
@@ -23,28 +25,44 @@ Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
Regressão. Piracicaba: ESALQ. (Tabela 1.5 pág. 12)
}
\description{
-O experimento foi realizado em quatro blocos, sendo
- planejado para estudar o efeito da calagem sobre a CTC
- (Capacidade de troca catiônica) do solo medida por dois métodos
- diferentes.
-
- Os valores foram medidos 18 meses após a calagem incorporada ao
- solo, segundo a dose de calcário, medida em tonelados por hectare
- (t/ha).
+O experimento foi realizado em quatro blocos, sendo
+ planejado para estudar o efeito da calagem sobre a CTC
+ (Capacidade de Troca Catiônica) do solo medida por dois métodos
+ diferentes. Os valores de CTC foram medidos 18 meses após a
+ calagem incorporada ao solo, na profundidade de 5 a 10 cm, segundo
+ a dose de calcário.
+}
+\details{
+Na análise inicial do estudo do estudo foi detectada a
+ presença de um dado discrepante (177,00) correspondente ao
+ \code{bloco} I, \code{dose} 7,80 e \code{metodo} indireto. Em
+ conversa com o pesquisador verificou-se que se tratava de um erro
+ na transcrição dos dados e que o valor correto seria
+ 124,00. Neste conjunto de dados mante-ve o valor discrepante para
+ efeitos didáticos.
}
\examples{
library(lattice)
-data(DemetrioTb1.5)
+xyplot(ctc ~ dose | bloco, groups = metodo,
+ data = DemetrioTb1.5,
+ main = "Dose VS CTC",
+ xlab = "Dose", ylab = "CTC",
+ type = c("p", "r"),
+ auto.key = list(space = "right", title = "Método"))
+
+# Corrigindo dado, conforme erro verificado pelo pesquisador
+select <- with(DemetrioTb1.5, bloco == 1 & dose == 7.8 & metodo == 0)
+DemetrioTb1.5$ctc[select] <- 124
-xyplot(ctc ~ dose, data = DemetrioTb1.5,
- main = "Dose VS CTC",
- xlab = "Dose",
- ylab = "CTC",
- type = c("p", "r"), col.line = 3)
+xyplot(ctc ~ dose | bloco, groups = metodo,
+ data = DemetrioTb1.5,
+ main = "Dose VS CTC",
+ xlab = "Dose", ylab = "CTC",
+ type = c("p","r"),
+ auto.key = list(space = "right", title = "Método"))
}
-\keyword{CTC}
-\keyword{solo}
+\keyword{TODO}