From e640c6fa3c16dd2033114c4a2435ed5ec101ca76 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 25 Mar 2016 02:17:53 -0300
Subject: [PATCH] =?UTF-8?q?Modifica=20nome=20e=20classes=20de=20vari=C3=A1?=
=?UTF-8?q?veis=20do=20dataset=20e=20complementa=20documenta=C3=A7=C3=A3o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
- Utiliza prod ao invés de valor para que o nome das variáveis seja
representativo.
- Modifica a variável bloco para fator e a variável data para formato
Date, pois são as classes naturais dessas variáveis.
- O gráfico na sessão examples foi acrescido com as médias e um
intervalo (média +- desvio).
---
R/DemetrioTb2.12.R | 39 ++++++++++++++++++++++------------
data-raw/DemetrioTb2.12.txt | 2 +-
data/DemetrioTb2.12.rda | Bin 350 -> 371 bytes
man/DemetrioTb2.12.Rd | 41 ++++++++++++++++++++++++------------
4 files changed, 54 insertions(+), 28 deletions(-)
diff --git a/R/DemetrioTb2.12.R b/R/DemetrioTb2.12.R
index 23afe6e..6737bba 100644
--- a/R/DemetrioTb2.12.R
+++ b/R/DemetrioTb2.12.R
@@ -1,26 +1,29 @@
#' @name DemetrioTb2.12
#' @title Produção de Ruibarbo
#'
-#' @description Foi mensurada a produção de ruibarbos para enlatamento,
-#' considerando-se as datas de colheita, em um experimento realizado
-#' em blocos.
+#' @description Dados de um experimento conduzido em delineamento de
+#' blocos ao acaso onde foi mensurada a produção de ruibarbos para
+#' enlatamento, considerando diferentes datas de colheita.
#'
#' @format Um \code{data.frame} de 28 linhas e 3 colunas.
#'
#' \describe{
#'
-#' \item{\code{data}}{Data de colheita dos ruibarbos.}
+#' \item{\code{data}}{Data de colheita dos ruibarbos. Obs.: Para
+#' utilizar o formato \code{\link{Date}} foi considerado o ano 1983
+#' (Date de publicação do livro que referencia os dados).}
#'
-#' \item{\code{bloco}}{Bloco ao qual a observação pertence.}
+#' \item{\code{bloco}}{Fator que indica o bloco, para controle de
+#' variação, ao qual a observação pertence.}
#'
-#' \item{\code{valor}}{Valor da produção de ruibarbo.}
+#' \item{\code{prod}}{Valor da produção de ruibarbo.}
#'
#' }
#'
#' @keywords TODO
#'
#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
-#' Regressão. Piracicaba: ESALQ. (Tabela 2.12 pág. 67)
+#' Regressão. Piracicaba: ESALQ. (Tabela 2.12 pág. 66-67)
#'
#' @examples
#'
@@ -28,12 +31,22 @@
#'
#' library(lattice)
#'
-#' xyplot(valor ~ data, data = DemetrioTb2.12,
-#' main = "Data VS Valor",
-#' xlab = "Data",
-#' ylab = "Valor",
-#' type = c("p", "r"), col.line = 3)
+#' # Estatísticas descritivas
+#' with(DemetrioTb2.12, tapply(prod, data, summary))
#'
-#' with(DemetrioTb2.12, tapply(valor, data, summary))
+#' with(DemetrioTb2.12, {
+#' mu <<- aggregate(prod, list(data), mean)
+#' des <<- aggregate(prod, list(data), sd)
+#' })
+#'
+#' xyplot(prod ~ data, data = DemetrioTb2.12,
+#' type = c("p", "r"), grid = TRUE,
+#' panel = function(x, y, ...) {
+#' panel.points(x = mu$G - 0.5, y = mu$x, pch = 15, col = 1)
+#' panel.arrows(x0 = mu$G - 0.5, y0 = mu$x - des$x,
+#' x1 = mu$G - 0.5, y1 = mu$x + des$x,
+#' code = 3, length = 0.05, angle = 90)
+#' panel.xyplot(x, y, ...)
+#' })
#'
NULL
diff --git a/data-raw/DemetrioTb2.12.txt b/data-raw/DemetrioTb2.12.txt
index 0d6b65b..28007e4 100644
--- a/data-raw/DemetrioTb2.12.txt
+++ b/data-raw/DemetrioTb2.12.txt
@@ -1,4 +1,4 @@
-data bloco valor
+data bloco prod
03/5 1 21.2
07/5 1 19.3
11/5 1 22.8
diff --git a/data/DemetrioTb2.12.rda b/data/DemetrioTb2.12.rda
index 7c39339d260f5edd167b2b8bf90a998cfbf7df8c..1a5fb57c1b32e193919c2b2da883217b29dee32e 100644
GIT binary patch
literal 371
zcmZ>Y%CIzaj8qGb42g1WV_<BkfB)Y+(v;EB{&E?Mh=aZQ-3A8+1_KTT2Q~%;76t~!
z4U7?-yrL#4UuMiQVaT{(!Yj9caY4$Lb_33anG%c=GiLaxab$KbV{!=&ncpGuX|_nl
z#aSk8&ddR~<}Kr0k>lPR8QNH3(7wfp?M3><<z4sN6w{BHnNKld;#v~1#Q5Bcy<aaC
zb0r;=`t!(^Eqcby72opXS=a<SX5Uibso3f_-@{>IFvG^CUeiyJd1r&BCWS7UCEm58
zA#{W9f@_yVE(%PRObt;z+@k%)a|725?Zys?vIq0Fd$Bl+uo%pn!8Msvvpr9*OH%Fo
zua$=sw!FF$zH`T=a5uA`%4bit^R`%&3Ir_m<PzL$&hy~spSoM`>|&}tjadJc^6bmo
zs-5L@)br4rggy87GGE%r66$fivi|I%g?l4!zIt%&vvY&V2ABTkX%brxO=9xwRXM>D
d*jlKd7IH@AMjtaHOI7zyr8ycNTDnSy831@qo7?~Z
literal 350
zcmZ>Y%CIzaj8qGbd>*wik%2Ms|NH;jJyaMSe}67x5pl3rpWEQTz+k|^;K0V9z{0@5
zxPj3^z(gx^;$&Yb28OC;2Pwt{$sWZ%J}jAy5^f9(3~GW66P0{gZp}25Vz|I?ae-6@
zn_5Zj)@FHqxwB5CtKHblb6Ew{#FvOakC>6TEIi=g?gtJAH`wC26wWR?vUKINGm&3I
zyI!%ZK3?T1GsEDQ-)#@UV1b|`E0zR*T=64gLxcVTDe*@aoV=GVxy4@@(5Ye;IhSRQ
zg=e<eL5{DxB_q9sdnN_=?Z2h7XZogdoAS3^;R`qRncG-?ry+{F&UICdPzP65s~THR
zMD*)kJuewE785fj&L@Fs?wcOoeiYc56*0|GM)7E3X<o2X?xkl5dmryx{xs7+-^eUJ
zHSd<$>-HJ1?mK5qG`BpwSdO8{aTlwTgS+9Oc&6V1!g^^Hv*QC6Im|zLXQH2oisiL6
G5e@+Oh>Xqv
diff --git a/man/DemetrioTb2.12.Rd b/man/DemetrioTb2.12.Rd
index 883eb51..d6a6d47 100644
--- a/man/DemetrioTb2.12.Rd
+++ b/man/DemetrioTb2.12.Rd
@@ -7,21 +7,24 @@
\describe{
- \item{\code{data}}{Data de colheita dos ruibarbos.}
+ \item{\code{data}}{Data de colheita dos ruibarbos. Obs.: Para
+ utilizar o formato \code{\link{Date}} foi considerado o ano 1983
+ (Date de publicação do livro que referencia os dados).}
- \item{\code{bloco}}{Bloco ao qual a observação pertence.}
+ \item{\code{bloco}}{Fator que indica o bloco, para controle de
+ variação, ao qual a observação pertence.}
- \item{\code{valor}}{Valor da produção de ruibarbo.}
+ \item{\code{prod}}{Valor da produção de ruibarbo.}
}}
\source{
Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
- Regressão. Piracicaba: ESALQ. (Tabela 2.12 pág. 67)
+ Regressão. Piracicaba: ESALQ. (Tabela 2.12 pág. 66-67)
}
\description{
-Foi mensurada a produção de ruibarbos para enlatamento,
- considerando-se as datas de colheita, em um experimento realizado
- em blocos.
+Dados de um experimento conduzido em delineamento de
+ blocos ao acaso onde foi mensurada a produção de ruibarbos para
+ enlatamento, considerando diferentes datas de colheita.
}
\examples{
@@ -29,13 +32,23 @@ data(DemetrioTb2.12)
library(lattice)
-xyplot(valor ~ data, data = DemetrioTb2.12,
- main = "Data VS Valor",
- xlab = "Data",
- ylab = "Valor",
- type = c("p", "r"), col.line = 3)
-
-with(DemetrioTb2.12, tapply(valor, data, summary))
+# Estatísticas descritivas
+with(DemetrioTb2.12, tapply(prod, data, summary))
+
+with(DemetrioTb2.12, {
+ mu <<- aggregate(prod, list(data), mean)
+ des <<- aggregate(prod, list(data), sd)
+})
+
+xyplot(prod ~ data, data = DemetrioTb2.12,
+ type = c("p", "r"), grid = TRUE,
+ panel = function(x, y, ...) {
+ panel.points(x = mu$G - 0.5, y = mu$x, pch = 15, col = 1)
+ panel.arrows(x0 = mu$G - 0.5, y0 = mu$x - des$x,
+ x1 = mu$G - 0.5, y1 = mu$x + des$x,
+ code = 3, length = 0.05, angle = 90)
+ panel.xyplot(x, y, ...)
+ })
}
\keyword{TODO}
--
GitLab