From c68f9790e987f7f4f607f50e2687a9c5f3367d41 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmeszeviani@gmail.com>
Date: Sat, 19 Sep 2015 22:44:13 -0300
Subject: [PATCH] Capital Y in potatoYield.
---
data-raw/{potatoyield.R => potatoYield.R} | 16 ++++++++--------
data/{potatoyield.RData => potatoYield.RData} | Bin
2 files changed, 8 insertions(+), 8 deletions(-)
rename data-raw/{potatoyield.R => potatoYield.R} (53%)
rename data/{potatoyield.RData => potatoYield.RData} (100%)
diff --git a/data-raw/potatoyield.R b/data-raw/potatoYield.R
similarity index 53%
rename from data-raw/potatoyield.R
rename to data-raw/potatoYield.R
index c1b1600..6dea6d0 100644
--- a/data-raw/potatoyield.R
+++ b/data-raw/potatoYield.R
@@ -1,26 +1,26 @@
##----------------------------------------------------------------------
## Data generation.
-potatoyield <- read.table("http://www.leg.ufpr.br/~walmes/data/pimentel_batatinha.txt",
+potatoYield <- read.table("http://www.leg.ufpr.br/~walmes/data/pimentel_batatinha.txt",
header=TRUE, sep="\t")
-names(potatoyield) <- c("block", "variety", "yield")
-str(potatoyield)
+names(potatoYield) <- c("block", "variety", "yield")
+str(potatoYield)
-potatoyield <- potatoyield[with(potatoyield, order(block, variety)),]
+potatoYield <- potatoYield[with(potatoYield, order(block, variety)),]
-save(potatoyield, file="../data/potatoyield.RData")
+save(potatoYield, file="../data/potatoYield.RData")
##----------------------------------------------------------------------
## Examples.
require(lattice)
-xyplot(yield~variety, data=potatoyield,
+xyplot(yield~variety, data=potatoYield,
groups=block, type="o",
ylab=expression(Yield~(t~ha^{-1})),
xlab="Variety")
rm(list=ls())
-load("../data/potatoyield.RData")
+load("../data/potatoYield.RData")
ls()
-str(potatoyield)
+str(potatoYield)
diff --git a/data/potatoyield.RData b/data/potatoYield.RData
similarity index 100%
rename from data/potatoyield.RData
rename to data/potatoYield.RData
--
GitLab