diff --git a/R/DemetrioEx1.4.1.3.R b/R/DemetrioEx1.4.1.3.R
deleted file mode 100644
index 890cadab65c04393c9eab5c2f284535137118465..0000000000000000000000000000000000000000
--- a/R/DemetrioEx1.4.1.3.R
+++ /dev/null
@@ -1,37 +0,0 @@
-#' @name DemetrioEx1.4.1.3
-#' @title Absorção de CO2 por Folhas de Trigo
-#'
-#' @description Foi aplicado \eqn{CO_2} sobre folhas de trigo a uma
-#' temperatura de 35°C. Mediu-se a quantia de \eqn{CO_2} absorvido
-#' pelas folhas.
-#'
-#' @format Um \code{data.frame} de 11 linhas e 2 colunas.
-#'
-#' \describe{
-#'
-#' \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
-#' folhas de trigo.}
-#'
-#' \item{\code{absorv}}{Quantia de \eqn{CO2} absorvida pelas folhas
-#' de trigo, medida em \eqn{cm^3/dm^2/hora.}}
-#'
-#' }
-#'
-#' @keywords TODO
-#'
-#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
-#' Regressão. Piracicaba: ESALQ. (ExercÃcio 1.4.1.3 pág. 14)
-#'
-#' @examples
-#'
-#' data(DemetrioEx1.4.1.3)
-#'
-#' library(lattice)
-#'
-#' xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
-#' main = "CO2 Aplicado VS Absorvido",
-#' xlab = "Aplicado",
-#' ylab = "Absorvido",
-#' type = c("p", "r"), col.line = 3)
-#'
-NULL
diff --git a/R/DemetrioTb2.10.R b/R/DemetrioTb2.10.R
index ffc07708f4bcbd1ba8497c2a34d26905320d83a5..70fc19bfda7f42c39d5527a29d0677f25a62ace5 100644
--- a/R/DemetrioTb2.10.R
+++ b/R/DemetrioTb2.10.R
@@ -1,28 +1,28 @@
#' @name DemetrioTb2.10
-#' @title Absorção de CO2 por Folhas de Trigo (Bloco)
+#' @title Absorção de CO2 por Folhas de Trigo
#'
-#' @description Foi aplicado \eqn{CO_2} sobre folhas de trigo a uma
-#' temperatura de 35°C. Mediu-se a quantia de \eqn{CO_2} absorvido
+#' @description Dados provenientes de um ensaio inteiramente casualizado
+#' onde aplicou-se \eqn{CO_2} sobre folhas de trigo a uma
+#' temperatura de 35°C e mediu-se a quantia de \eqn{CO_2} absorvido
#' pelas folhas.
#'
-#' @format Um \code{data.frame} de 36 linhas e 3 colunas.
+#' @format Um \code{data.frame} de 17 linhas e 2 colunas.
#'
#' \describe{
#'
#' \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
#' folhas de trigo.}
#'
-#' \item{\code{absorv}}{Quantia de \eqn{CO2} absorvida pelas folhas
+#' \item{\code{absorv}}{Quantia de \eqn{CO_2} absorvida pelas folhas
#' de trigo, medida em \eqn{cm^3/dm^2/hora.}}
#'
-#' \item{\code{bloco}}{Bloco ao qual a observação pertence.}
-#'
#' }
#'
#' @keywords TODO
#'
#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
-#' Regressão. Piracicaba: ESALQ. (Tabela 2.10 pág. 65)
+#' Regressão. Piracicaba: ESALQ. (Tabela 2.10 pág. 65, ExercÃcio
+#' 1.4.1.3 pág. 14)
#'
#' @examples
#'
@@ -30,13 +30,17 @@
#'
#' library(lattice)
#'
-#' b1co2 <- DemetrioTb2.10[DemetrioTb2.10[,3]==1,]$co2
-#' b1absorv <- DemetrioTb2.10[DemetrioTb2.10[,3]==1,]$absorv
+#' xyplot(absorv ~ co2, data = DemetrioTb2.10,
+#' main = "CO2 Aplicado VS Absorvido",
+#' xlab = "Aplicado",
+#' ylab = "Absorvido",
+#' type = c("p", "r"), col.line = 3)
+#'
+#' # Subconjunto do exercÃcio 1.4.1.3
+#' obs <- c(1, 2, 3, 5, 6, 7, 8, 11, 12, 16, 17)
+#' DemetrioEx1.4.1.3 <- DemetrioTb2.10[obs, ]
#'
-#' xyplot(b1absorv ~ b1co2, data = DemetrioTb2.10,
-#' main = "CO2 Aplicado VS Absorvido",
-#' xlab = "Aplicado",
-#' ylab = "Absorvido",
-#' type = c("p", "r"), col.line = 3)
+#' xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
+#' type = c("p", "r"), col.line = 3)
#'
NULL
diff --git a/data-raw/DemetrioEx1.4.1.3.txt b/data-raw/DemetrioEx1.4.1.3.txt
deleted file mode 100644
index 8f0e28faed39d02cfe03acac31520acdf070199a..0000000000000000000000000000000000000000
--- a/data-raw/DemetrioEx1.4.1.3.txt
+++ /dev/null
@@ -1,12 +0,0 @@
-co2 absorv
-75 0
-100 0.65
-100 0.5
-120 1
-130 0.95
-130 1.3
-160 1.8
-190 2.8
-200 2.5
-240 4.3
-250 4.5
diff --git a/data-raw/DemetrioTb2.10.txt b/data-raw/DemetrioTb2.10.txt
index 3a39890ba2fc18ac3b1575551c9a6442f3d16fab..b1637710ee64a23cc4d78a202f38490e97743a20 100644
--- a/data-raw/DemetrioTb2.10.txt
+++ b/data-raw/DemetrioTb2.10.txt
@@ -1,37 +1,18 @@
-co2 absorv bloco
-75 0 1
-100 0.65 1
-120 1 1
-130 0.95 1
-160 1.8 1
-190 2.8 1
-200 2.5 1
-240 4.3 1
-250 4.5 1
-75 NA 2
-100 0.5 2
-120 NA 2
-130 1.3 2
-160 1.8 2
-190 NA 2
-200 2.9 2
-240 NA 2
-250 NA 2
-75 NA 3
-100 0.4 3
-120 NA 3
-130 NA 3
-160 2.1 3
-190 NA 3
-200 2.45 3
-240 NA 3
-250 NA 3
-75 NA 4
-100 NA 4
-120 NA 4
-130 NA 4
-160 NA 4
-190 NA 4
-200 3.05 4
-240 NA 4
-250 NA 4
+co2 absorv
+75 0
+100 0.65
+100 0.5
+100 0.4
+120 1
+130 0.95
+130 1.3
+160 1.8
+160 1.8
+160 2.1
+190 2.8
+200 2.5
+200 2.9
+200 2.45
+200 3.05
+240 4.3
+250 4.5
diff --git a/data/DemetrioEx1.4.1.3.rda b/data/DemetrioEx1.4.1.3.rda
deleted file mode 100644
index 080ba8e793b87b5d1d277a7fb78c918861b660d3..0000000000000000000000000000000000000000
Binary files a/data/DemetrioEx1.4.1.3.rda and /dev/null differ
diff --git a/data/DemetrioTb2.10.rda b/data/DemetrioTb2.10.rda
index 1ba825ee011f9b905f1a217cc61bac349eb6572d..6f6cf9c4643ac45b60146fa7a665b49a74f8d39b 100644
Binary files a/data/DemetrioTb2.10.rda and b/data/DemetrioTb2.10.rda differ
diff --git a/man/DemetrioEx1.4.1.3.Rd b/man/DemetrioEx1.4.1.3.Rd
deleted file mode 100644
index 55701e640975e881d8212540158102900a3851c7..0000000000000000000000000000000000000000
--- a/man/DemetrioEx1.4.1.3.Rd
+++ /dev/null
@@ -1,40 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/DemetrioEx1.4.1.3.R
-\name{DemetrioEx1.4.1.3}
-\alias{DemetrioEx1.4.1.3}
-\title{Absorção de CO2 por Folhas de Trigo}
-\format{Um \code{data.frame} de 11 linhas e 2 colunas.
-
-\describe{
-
- \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
- folhas de trigo.}
-
- \item{\code{absorv}}{Quantia de \eqn{CO2} absorvida pelas folhas
- de trigo, medida em \eqn{cm^3/dm^2/hora.}}
-
-}}
-\source{
-Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
- Regressão. Piracicaba: ESALQ. (ExercÃcio 1.4.1.3 pág. 14)
-}
-\description{
-Foi aplicado \eqn{CO_2} sobre folhas de trigo a uma
- temperatura de 35°C. Mediu-se a quantia de \eqn{CO_2} absorvido
- pelas folhas.
-}
-\examples{
-
-data(DemetrioEx1.4.1.3)
-
-library(lattice)
-
-xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
- main = "CO2 Aplicado VS Absorvido",
- xlab = "Aplicado",
- ylab = "Absorvido",
- type = c("p", "r"), col.line = 3)
-
-}
-\keyword{TODO}
-
diff --git a/man/DemetrioTb2.10.Rd b/man/DemetrioTb2.10.Rd
index 8bc6c0872ade4ec769e20c7f83f0a6f2881f267c..da30046cf82a6d1cfd9303deae6e417c329cd521 100644
--- a/man/DemetrioTb2.10.Rd
+++ b/man/DemetrioTb2.10.Rd
@@ -2,27 +2,27 @@
% Please edit documentation in R/DemetrioTb2.10.R
\name{DemetrioTb2.10}
\alias{DemetrioTb2.10}
-\title{Absorção de CO2 por Folhas de Trigo (Bloco)}
-\format{Um \code{data.frame} de 36 linhas e 3 colunas.
+\title{Absorção de CO2 por Folhas de Trigo}
+\format{Um \code{data.frame} de 17 linhas e 2 colunas.
\describe{
\item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
folhas de trigo.}
- \item{\code{absorv}}{Quantia de \eqn{CO2} absorvida pelas folhas
+ \item{\code{absorv}}{Quantia de \eqn{CO_2} absorvida pelas folhas
de trigo, medida em \eqn{cm^3/dm^2/hora.}}
- \item{\code{bloco}}{Bloco ao qual a observação pertence.}
-
}}
\source{
Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
- Regressão. Piracicaba: ESALQ. (Tabela 2.10 pág. 65)
+ Regressão. Piracicaba: ESALQ. (Tabela 2.10 pág. 65, ExercÃcio
+ 1.4.1.3 pág. 14)
}
\description{
-Foi aplicado \eqn{CO_2} sobre folhas de trigo a uma
- temperatura de 35°C. Mediu-se a quantia de \eqn{CO_2} absorvido
+Dados provenientes de um ensaio inteiramente casualizado
+ onde aplicou-se \eqn{CO_2} sobre folhas de trigo a uma
+ temperatura de 35°C e mediu-se a quantia de \eqn{CO_2} absorvido
pelas folhas.
}
\examples{
@@ -31,14 +31,18 @@ data(DemetrioTb2.10)
library(lattice)
-b1co2 <- DemetrioTb2.10[DemetrioTb2.10[,3]==1,]$co2
-b1absorv <- DemetrioTb2.10[DemetrioTb2.10[,3]==1,]$absorv
+xyplot(absorv ~ co2, data = DemetrioTb2.10,
+ main = "CO2 Aplicado VS Absorvido",
+ xlab = "Aplicado",
+ ylab = "Absorvido",
+ type = c("p", "r"), col.line = 3)
+
+# Subconjunto do exercÃcio 1.4.1.3
+obs <- c(1, 2, 3, 5, 6, 7, 8, 11, 12, 16, 17)
+DemetrioEx1.4.1.3 <- DemetrioTb2.10[obs, ]
-xyplot(b1absorv ~ b1co2, data = DemetrioTb2.10,
- main = "CO2 Aplicado VS Absorvido",
- xlab = "Aplicado",
- ylab = "Absorvido",
- type = c("p", "r"), col.line = 3)
+xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
+ type = c("p", "r"), col.line = 3)
}
\keyword{TODO}