Corrige tabela e documentação e remove dataset duplicado

Para a tabela 2.10 temos apenas 17 observações desbalanceadas (com
um nº diferente de repetições para cada tratamento). Além disto
notou-se que os dados apresentados no exercício 1.4.1.3 são um
subconjunto deste, portanto eles foram removidos.

R/DemetrioEx1.4.1.3.R

-#' @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

R/DemetrioTb2.10.R

 #' @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(b1absorv ~ b1co2, data = DemetrioTb2.10,
+#' 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(absorv ~ co2, data = DemetrioEx1.4.1.3,
+#'        type = c("p", "r"), col.line = 3)
+#'
 NULL

data-raw/DemetrioEx1.4.1.3.txt

-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

data-raw/DemetrioTb2.10.txt

-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

man/DemetrioEx1.4.1.3.Rd

-% 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}
-

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,15 +31,19 @@ data(DemetrioTb2.10)
 
 library(lattice)
 
-b1co2 <- DemetrioTb2.10[DemetrioTb2.10[,3]==1,]$co2
-b1absorv <- DemetrioTb2.10[DemetrioTb2.10[,3]==1,]$absorv
-
-xyplot(b1absorv ~ b1co2, data = DemetrioTb2.10,
+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(absorv ~ co2, data = DemetrioEx1.4.1.3,
+       type = c("p", "r"), col.line = 3)
+
 }
 \keyword{TODO}