From ed36a4b2c3f5bb7db5f90c50ade3f7a3badc9874 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Fri, 2 Oct 2015 21:13:39 -0300
Subject: [PATCH] Fix names and scale of variables.
---
data-raw/castorbeansYield.R | 4 ++--
data-raw/potatoYield2.R | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/data-raw/castorbeansYield.R b/data-raw/castorbeansYield.R
index 7868f5f..1acd1c6 100644
--- a/data-raw/castorbeansYield.R
+++ b/data-raw/castorbeansYield.R
@@ -13,7 +13,7 @@ castorbeansYield$meanYield <-
1825, 1394, 1407, 1436, 1291, 1622, 1521, 1832, 1595, 1851, 1613,
1747, 2297, 2233, 2391, 1992, 1644, 1422, 1458, 1567, 1532, 1532,
1683, 1699, 1467, 2192, 2294, 1920, 1856, 2178, 2026, 2458, 2040,
- 1963)/1000
+ 1963)
addmargins(with(castorbeansYield,
tapply(meanYield, list(variety, loc), FUN=sum)))
@@ -22,7 +22,7 @@ castorbeansYield <- castorbeansYield[with(castorbeansYield,
order(loc, variety)),]
## Put MSE as an attibute to the data.frame.
-mse <- c(29930, 69170, 88210, 35720, 64520)/1000
+mse <- c(29930, 69170, 88210, 35720, 64520)
names(mse) <- levels(castorbeansYield$loc)
attr(castorbeansYield, which="MSE") <- mse
str(castorbeansYield)
diff --git a/data-raw/potatoYield2.R b/data-raw/potatoYield2.R
index 9f104bb..5103bbf 100644
--- a/data-raw/potatoYield2.R
+++ b/data-raw/potatoYield2.R
@@ -16,7 +16,7 @@ potatoYield2$sumYield <- c(470, 483, 646, 822, 611, 694, 685, 477,
492, 583, 940, 929, 928, 797, 929, 532)/10
addmargins(with(potatoYield2,
- tapply(SumYield, list(variety, loc), FUN=sum)))
+ tapply(sumYield, list(variety, loc), FUN=sum)))
potatoYield2 <- potatoYield2[with(potatoYield2, order(loc, variety)),]
--
GitLab