From 5a867aab75f75627064f743cffc4a5f50aca38a5 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmeszeviani@gmail.com>
Date: Wed, 19 Aug 2015 11:14:20 -0300
Subject: [PATCH] Dataset from Pimentel page 91 included.
---
data-raw/plowing.R | 26 ++++++++++++++++++++++++++
data/plowing.RData | Bin 0 -> 340 bytes
2 files changed, 26 insertions(+)
create mode 100644 data-raw/plowing.R
create mode 100644 data/plowing.RData
diff --git a/data-raw/plowing.R b/data-raw/plowing.R
new file mode 100644
index 0000000..fcb683f
--- /dev/null
+++ b/data-raw/plowing.R
@@ -0,0 +1,26 @@
+##----------------------------------------------------------------------
+## Data generation.
+
+plowing <- read.table("http://www.leg.ufpr.br/~walmes/data/pimentel_aradura.txt",
+ header=TRUE, sep="\t")
+names(plowing) <- c("plow", "block", "yield")
+levels(plowing$plow) <- c("normal", "deep")
+str(plowing)
+
+plowing <- plowing[with(plowing, order(block, plow)),]
+
+save(plowing, file="../data/plowing.RData")
+
+##----------------------------------------------------------------------
+## Examples.
+
+require(lattice)
+
+xyplot(yield~plow|block, data=plowing, type=c("p", "a"),
+ ylab=expression(Yield~(t~ha^{-1})),
+ xlab="Plowing level")
+
+rm(list=ls())
+load("../data/plowing.RData")
+ls()
+str(plowing)
diff --git a/data/plowing.RData b/data/plowing.RData
new file mode 100644
index 0000000000000000000000000000000000000000..2b2f402942ed05c5af6f034048dc665fcc13283e
GIT binary patch
literal 340
zcmb2|=3oE==C#3reuoWs&Q4mF+{&n(EW60*5!3Gm?k~;4AGY4VuuMZKdwJfgBY_Wm
z3YIorzSZjbnBRN-M%m{_PiD)>i<KW#O6Vz6vq+C=cwPA8%Z%e~27F=5?!0<5)3A_H
z@l3a1&*o)ISl#~=@44QVAF}q0)Sl02Vw+tfb(bDIae7LW<?CN7CuT=ooA}h|?iA6A
z-OR@eZ!2-I&uiYtTra;(_h0MWA2&Sx7aumQbb38M#kcgyhp6o#O)L21y5`<;R{a){
zaPn(y@=1}$630)rZ#}P4wfWn<t7i@DkJWS(&M?3B@z{*{N&ikg?40|D_uBoSp3jP(
zF76B5eedd~3Er+zTtavM%@6sIa_UQKQ}|k+X8}B`i>%e9gz8$pyDpkv8olLEALB#)
yz_->j7}y$=52zlvx908vyQLhJ{fz4MD@0R@l%H3!u3eC{JO5x_NI?%X0|NjP9I5jF
literal 0
HcmV?d00001
--
GitLab