From fa526593dfd5e910f760526be2cde36b8b5ff959 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 25 Mar 2016 00:51:52 -0300
Subject: [PATCH] =?UTF-8?q?Corrige=20tabela=20e=20documenta=C3=A7=C3=A3o?=
=?UTF-8?q?=20e=20remove=20dataset=20duplicado?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
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 | 37 ----------------------
R/DemetrioTb2.10.R | 34 +++++++++++---------
data-raw/DemetrioEx1.4.1.3.txt | 12 -------
data-raw/DemetrioTb2.10.txt | 55 +++++++++++----------------------
data/DemetrioEx1.4.1.3.rda | Bin 248 -> 0 bytes
data/DemetrioTb2.10.rda | Bin 357 -> 281 bytes
man/DemetrioEx1.4.1.3.Rd | 40 ------------------------
man/DemetrioTb2.10.Rd | 34 +++++++++++---------
8 files changed, 56 insertions(+), 156 deletions(-)
delete mode 100644 R/DemetrioEx1.4.1.3.R
delete mode 100644 data-raw/DemetrioEx1.4.1.3.txt
delete mode 100644 data/DemetrioEx1.4.1.3.rda
delete mode 100644 man/DemetrioEx1.4.1.3.Rd
diff --git a/R/DemetrioEx1.4.1.3.R b/R/DemetrioEx1.4.1.3.R
deleted file mode 100644
index 890cada..0000000
--- 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 ffc0770..70fc19b 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 8f0e28f..0000000
--- 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 3a39890..b163771 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
GIT binary patch
literal 0
HcmV?d00001
literal 248
zcmZ>Y%CIzaj8qGboZ|SThk>EL{^)<}3I+y78-`;H0*Up@=N@oiaA0#`bYtDXaAv|q
z0bvf4Tgna>q*4r-uUvL)U|?Xlz`(%3FwvuJ7E@A!z>$M18yF398m_-Q>m2t>Ycfl~
zq&@-F-j)emVIh+^Jglt}P2!(!nE2!WPe+w?8-+GLG%^+9xRl`@%Fqy&cJb7uiK`15
zgl`BMs7+&(4&1I*^K9R&s?W<sLyg4wlw2E+EIIOVL678&jn_6Gwarl2b=~26$hH@y
zPxqy65WSF=<Fx(sWS#@3vX>rTwA9}uyFu|-xXFD@1-;)jPb>M)XEOd4FLJdAm;mxA
E02te8-v9sr
diff --git a/data/DemetrioTb2.10.rda b/data/DemetrioTb2.10.rda
index 1ba825ee011f9b905f1a217cc61bac349eb6572d..6f6cf9c4643ac45b60146fa7a665b49a74f8d39b 100644
GIT binary patch
literal 281
zcmZ>Y%CIzaj8qGbT;uk~nt@@}|L6ZdS1>RzRxli45J{|GKDWVvfx*CmjX}YM(S_B3
z;mi$_4)-NTE|{Ek>v71q>~`hCt(hiL^A^op)@#TsmAS0JP(pzD3d1CgSyBvO!1ahN
zblP@J-xIqUy<)tdOtxcNF*AWdXoiIHgq7?T*OdPX3GKUUwqw$|6C5|P+spzKTGbqV
zCt1r0ayW=Y7MweG?nU6HDb|g`j7$k;K1E_q*CrR1{+L&HeW#V6i@q^aM2HpJr3Jo=
zbf0*zhzK>Tc-**i$^q3YJC9DO?%Qc7yt?A(j)vXxCj*?7?rGl4miE!!B-=D2=0F}l
l^THJ`SaXaxb(eIk`&+S^lluU>{LwoT{X|r>1^4qE005#(a7X|E
literal 357
zcmZ>Y%CIzaj8qGboEfu$kAZR4|L^}lS1_<JRxli45J{|GKDXfj1A~D8g996biVLF)
z>juUME?!UGmCK}j)L3|pGBTI-O1Sw-vKw$NV>FUr;A~1@U{LZ@nZI(P+=5&;|KLj|
zC!~Fyzq(!dWHMv!DY@$r4vkJJ&KlCcn5S4CekH3odwV1A&*M)6PTkdv(@=Q!_-Kml
zyj>YeE%x%a*CtQ={Udvii=BY)jeymCN|s4euP=Dfdt&E-u0mJe_M{jw{f<Nxf!~f^
zt4^x8eNx;jut>vENorGINuHCyzS;Y&O<sO}e7L1**XDUSd-q&ny>#RLjpz%k8^w->
zM{srJr$sTba0u|2RDWi(tI^@RWA<gXY4+=j7PgVh?U{WlD$K98Iy5k5D}>DDXV`hl
zu+iH#(71MsT5wNdC-XO+Cr?#<FD(kqlzZpjd12uh>E@vQ@BZ^&*=zkL`O!kbBN6jI
Pma7D}a&k^R&F}yKb#ayl
diff --git a/man/DemetrioEx1.4.1.3.Rd b/man/DemetrioEx1.4.1.3.Rd
deleted file mode 100644
index 55701e6..0000000
--- 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 8bc6c08..da30046 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}
--
GitLab