From 0c631ae2a733f3826e79f7d40b19980b8c23b43a Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Tue, 6 Oct 2015 22:15:55 -0300
Subject: [PATCH] Prepares all RData files
- Includes data() and str() in examples.
- Uncomment save().
- Add the correponding page in the book.
---
data-raw/castorbeansYield.R | 5 ++++-
data-raw/peanutYield.R | 5 ++++-
data-raw/peanutYield2.R | 7 +++++--
data-raw/potatoYield2.R | 7 +++++--
4 files changed, 18 insertions(+), 6 deletions(-)
diff --git a/data-raw/castorbeansYield.R b/data-raw/castorbeansYield.R
index 1acd1c6..c406968 100644
--- a/data-raw/castorbeansYield.R
+++ b/data-raw/castorbeansYield.R
@@ -27,13 +27,16 @@ names(mse) <- levels(castorbeansYield$loc)
attr(castorbeansYield, which="MSE") <- mse
str(castorbeansYield)
-## save(castorbeansYield, file="../data/castorbeansYield.RData")
+save(castorbeansYield, file="../data/castorbeansYield.RData")
##----------------------------------------------------------------------
## Examples.
require(lattice)
+data(castorbeansYield)
+str(castorbeansYield)
+
xyplot(meanYield~variety, data=castorbeansYield,
groups=loc, type="o",
ylab=expression(Yield~(t~ha^{-1})),
diff --git a/data-raw/peanutYield.R b/data-raw/peanutYield.R
index 1834b7b..d8d3fe5 100644
--- a/data-raw/peanutYield.R
+++ b/data-raw/peanutYield.R
@@ -1,5 +1,5 @@
##----------------------------------------------------------------------
-## Data generation.
+## Data generation. Pimentel page 149.
peanutYield <- expand.grid(
variety=c("40-Roxo", "54-Roxo", "49-Cateto", "53-Tatu"),
@@ -28,6 +28,9 @@ str(peanutYield)
require(lattice)
+data(peanutYield)
+str(peanutYield)
+
xyplot(meanYield~variety|year, data=peanutYield,
groups=loc, type="o",
ylab=expression(Yield~(t~ha^{-1})),
diff --git a/data-raw/peanutYield2.R b/data-raw/peanutYield2.R
index 5e2b09f..86f2650 100644
--- a/data-raw/peanutYield2.R
+++ b/data-raw/peanutYield2.R
@@ -1,5 +1,5 @@
##----------------------------------------------------------------------
-## Data generation.
+## Data generation. Pimentel page 156.
peanutYield2 <- expand.grid(
variety=c("40-Roxo", "54-Roxo", "49-Cateto", "53-Tatu"),
@@ -25,13 +25,16 @@ names(mse) <- levels(peanutYield2$loc)
attr(peanutYield2, which="MSE") <- mse
str(peanutYield2)
-## save(peanutYield2, file="../data/peanutYield2.RData")
+save(peanutYield2, file="../data/peanutYield2.RData")
##----------------------------------------------------------------------
## Examples.
require(lattice)
+data(peanutYield2)
+str(peanutYield2)
+
xyplot(meanYield~variety, data=peanutYield2,
groups=loc, type="o",
ylab=expression(Yield~(t~ha^{-1})),
diff --git a/data-raw/potatoYield2.R b/data-raw/potatoYield2.R
index 5103bbf..1d8b166 100644
--- a/data-raw/potatoYield2.R
+++ b/data-raw/potatoYield2.R
@@ -1,5 +1,5 @@
##----------------------------------------------------------------------
-## Data generation.
+## Data generation. Pimentel page 147.
potatoYield2 <- expand.grid(
variety=c("Kennebec", "B 25-50 E", "B 1-52", "Huinkul",
@@ -26,13 +26,16 @@ names(mse) <- paste0("loc:", 1:length(mse))
attr(potatoYield2, which="MSE") <- mse
str(potatoYield2)
-## save(potatoYield2, file="../data/potatoYield2.RData")
+save(potatoYield2, file="../data/potatoYield2.RData")
##----------------------------------------------------------------------
## Examples.
require(lattice)
+data(potatoYield2)
+str(potatoYield2)
+
xyplot(sumYield/4~variety, data=potatoYield2,
groups=loc, type="o",
ylab=expression(Yield~(t~ha^{-1})),
--
GitLab