From 0c7ec4d226b9b14040c4e5a7a35740683913ae17 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 17 Mar 2016 21:13:49 -0300
Subject: [PATCH] =?UTF-8?q?Modifica=20o=20fonte=20e=20documenta=C3=A7?=
=?UTF-8?q?=C3=A3o=20do=20dataset=20DemetrioTb1.5?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
- A coluna direta foi trocada por metodo
- Alterou-se a documentação complementando com o experimento
descrito no livro
- Na seção examples define gráficos que utilizam todas as
variáveis observadas.
---
R/DemetrioTb1.5.R | 66 +++++++++++++++++++++++--------------
data-raw/DemetrioTb1.5.txt | 66 ++++++++++++++++++-------------------
data/DemetrioTb1.5.rda | Bin 365 -> 413 bytes
man/DemetrioTb1.5.Rd | 62 +++++++++++++++++++++-------------
4 files changed, 115 insertions(+), 79 deletions(-)
diff --git a/R/DemetrioTb1.5.R b/R/DemetrioTb1.5.R
index 0c74a13..6fd2155 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 ee8e2eb..a70150b 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
GIT binary patch
literal 413
zcmZ>Y%CIzaj8qGb?E5*HkAZP>{rCUo9x4YJs~CLE_SgJZpS!?;fx&>0#et1O!I6Q1
zaRXxo2d9h6DU*x6ZnJ~0TvlJg%#vinBk<MMeXD=Kvzd}SGZYtdHkn*pEMRhSVgo~y
zOGmIW=VAwD2Pp;yDQ1TYpLZTh>{XEUTQYggl%9#bH?%u1E2=SXb~#<lG(jc8>+zBz
z!AJi+{`suf9aHC?8(GrHnAq_4-h@tG<-Vt~lNWt|)55f{X|}+;J=?=)icU;j)u5t~
z#H09aA!pu}9zJ$K7M>ZJ=URMKEK=BNTD@{lh&emV_T*mmr`)Qo@gCEaXC8dJKJj&?
z{z%-BusO%cbYr=@f~4%9KSwXvwa!tS*`;gbCwSCCdbT=?p!%$e`|VF8Hsoo$ya{6U
z4Dsqp`J5nAv-z&Ux!SY&F5LUmf*bc1-~H3MFlvWjRS&~uuic5}?|tf`cNE`p+q872
z!lE-BUn5S;yBuZ_srw>(>ij^rN3&NuFx6U3t7&+pQC`u$YsISn2m2FLmG>`fRa(~P
W-fWrqaQ~xs9?Q9e1n(Oq9smGZu(IO-
literal 365
zcmZ>Y%CIzaj8qGboGn=Yoq^G-{`-G(50!(ARt#s&_SgJZpR>S$fx&>0#et1O!I6Q1
zaRZ};fU2)nmHGk(6Tt??g;G_5%hcHXgFOl-tIbL@GGb#%$~Y+DxY&n*L&amU+cLpr
z4Gbo{3{n{xyv&Zzi)VcA4Upw)RFBn|bf)yEf^O;=&c?h`;j-x}d$KO8`<yzKtK2hx
zy9!6tTZM!1JQEtWT!>2OkqdjFk+q0ZA%iFJ%fh%!rO#sO%pFba0ivE)IU9L4GOe0j
z<d~4bdUL<*87|X?$8%0H-t=i+7XI$>(X<;a*-zf~IT&sDeCwHB<0oB4lQR?7oV0NL
zdEm}X3x!Tw=KW0!_flr<YOr3JVEN|9@8@~zvbrW^dR_1QEj-QJhr!>0cf(@yIS+Qr
zO};4`d@-i;-tNL>TcdNTGPBO_IW{Tiuk7>g2&SDzq8}M2IGms8e4<IkO>%!@K+lKU
XSqu4Ro#ht(6MItRp_5aN>;F3dgFc$b
diff --git a/man/DemetrioTb1.5.Rd b/man/DemetrioTb1.5.Rd
index 1c2ffe3..f292cb5 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}
--
GitLab