From dfe60077cceadabb034053615006f2d91f81538f Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmeszeviani@gmail.com>
Date: Mon, 17 Aug 2015 20:39:30 -0300
Subject: [PATCH] Add dataset potatoyield (Pimentel, page 76).

---
 data-raw/potatoyield.R |  26 ++++++++++++++++++++++++++
 data/potatoyield.RData | Bin 0 -> 464 bytes
 2 files changed, 26 insertions(+)
 create mode 100644 data-raw/potatoyield.R
 create mode 100644 data/potatoyield.RData

diff --git a/data-raw/potatoyield.R b/data-raw/potatoyield.R
new file mode 100644
index 0000000..c1b1600
--- /dev/null
+++ b/data-raw/potatoyield.R
@@ -0,0 +1,26 @@
+##----------------------------------------------------------------------
+## Data generation.
+
+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)
+
+potatoyield <- potatoyield[with(potatoyield, order(block, variety)),]
+
+save(potatoyield, file="../data/potatoyield.RData")
+
+##----------------------------------------------------------------------
+## Examples.
+
+require(lattice)
+
+xyplot(yield~variety, data=potatoyield,
+       groups=block, type="o",
+       ylab=expression(Yield~(t~ha^{-1})),
+       xlab="Variety")
+
+rm(list=ls())
+load("../data/potatoyield.RData")
+ls()
+str(potatoyield)
diff --git a/data/potatoyield.RData b/data/potatoyield.RData
new file mode 100644
index 0000000000000000000000000000000000000000..c650a954d79af8e08247412563bcb3aa15f310ef
GIT binary patch
literal 464
zcmb2|=3oE==B*(&{SG;Z%+)*bXkT}Ba!)kV#4N$>ON4xLzHka3dfjokB_Nua_3`o-
z`9Gw8N!PJe-M+WlDQ4cBCkExSi}~l?p5~`jwQ5pQ&q<$&s%qK^tBn45_@sK?_?>S%
z|M$IGUyJKKnvVsVq*4XSbaj5qev%LP*YL}F*OG6Ri*)CxMJOklb$N+NZE~HK6gmH3
z5x@7ES0B_S)&$(%^QxM6gOzQ4+&?7~u@I(54M+YzXTJGKTFZCAC6~a{Pd`a2yPrCE
zUc##C<f3KLlF8oIe|g@#l1z@aUiMpWTg&OKMQdLc^Bg@NWxD-d(Tc-63t|gZSCu?6
zT0M2gS=omlJf=7;+E-hXqft@wEbkZNwZ%IRA4<);@zALB%jWY3s|<P9L?5g9r}&Bc
z_QPK%F7IS|cKyR2#$)Ce?W=k#zD?}^_4-7(Lp^Kls%X`^p8Qysns$lv3;AB{@B4i(
zIK=<g_eHzztt|f8yI^IoM#a;Lt5$cNW}9an+P_?8-^5s*lWpbGRn=x)vhefeS?+ao
z<)ng5Z6CeZHvVQ%_@UHN&OL+8hf$5uxPkM4M1qJw4c|0|?grL3=KM2QmoOIF^SHd4
X_1h-f+(C=a^|`EUbK>@H76t|Y@)h3*

literal 0
HcmV?d00001

-- 
GitLab