From e7ff8b34cd773b22baf362158f912a6ff74cbb6d Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmeszeviani@gmail.com>
Date: Thu, 17 Sep 2015 22:16:56 -0300
Subject: [PATCH] Add dataset from a CRBD experiment with sugar cane, Pimentel
 pg 92.

---
 R/legTools.R              |  39 ++++++++++++++++++++++++++++++++++++++
 data-raw/sugarcaneYield.R |  26 +++++++++++++++++++++++++
 data/sugarcaneYield.RData | Bin 0 -> 437 bytes
 man/sugarcaneYield.Rd     |  38 +++++++++++++++++++++++++++++++++++++
 4 files changed, 103 insertions(+)
 create mode 100644 data-raw/sugarcaneYield.R
 create mode 100644 data/sugarcaneYield.RData
 create mode 100644 man/sugarcaneYield.Rd

diff --git a/R/legTools.R b/R/legTools.R
index 1302641..9dde281 100644
--- a/R/legTools.R
+++ b/R/legTools.R
@@ -247,3 +247,42 @@ NULL
 #'      xlab="Variety")
 #'
 NULL
+
+#' @name sugarcaneYield
+#'
+#' @title Sugarcane variety experiment
+#'
+#' @description These data are from an experiment done by The West São
+#'     Paulo State Sugar Mills Cooperative. The experiment was done in a
+#'     randomized complete block design with 4 blocks. Sugarcane yield
+#'     (kg/plot) was recorded in each experimental unit.
+#'
+#' \itemize{
+#'     \item \code{block} a categorical unordered factor with 4 levels.
+#'     \item \code{variety} a categorical unordered factor with 7
+#'     levels.
+#'     \item \code{yield} sugarcane yield (kg/plot).
+#' }
+#'
+#' @docType data
+#'
+#' @keywords datasets
+#'
+#' @usage data(sugarcaneYield)
+#'
+#' @format a \code{data.frame} with 28 records and 3 variables.
+#'
+#' @source Frederico, P. (2009). Curso de Estatística Experimental (15th
+#'     ed.). Piracicaba, São Paulo: FEALQ. (page 92)
+#'
+#' @examples
+#' 
+#' require(lattice)
+#' data(sugarcaneYield)
+#'
+#' plot(yield~variety, data=sugarcaneYield,
+#'      groups=block, type="o",
+#'      ylab=expression(Yield~(kg~plot^{-1})),
+#'      xlab="Variety")
+#'
+NULL
diff --git a/data-raw/sugarcaneYield.R b/data-raw/sugarcaneYield.R
new file mode 100644
index 0000000..13f0c65
--- /dev/null
+++ b/data-raw/sugarcaneYield.R
@@ -0,0 +1,26 @@
+##----------------------------------------------------------------------
+## Data generation.
+
+sugarcaneYield <- read.table("http://www.leg.ufpr.br/~walmes/data/pimentel_canadeacucar1.txt",
+                             header=TRUE, sep="\t")
+names(sugarcaneYield) <- c("block", "variety", "yield")
+str(sugarcaneYield)
+
+sugarcaneYield <- sugarcaneYield[with(sugarcaneYield, order(block, variety)),]
+
+save(sugarcaneYield, file="../data/sugarcaneYield.RData")
+
+##----------------------------------------------------------------------
+## Examples.
+
+require(lattice)
+
+xyplot(yield~variety, data=sugarcaneYield,
+       groups=block, type="o",
+       ylab=expression(Yield~(kg~plot^{-1})),
+       xlab="Variety")
+
+rm(list=ls())
+load("../data/sugarcaneYield.RData")
+ls()
+str(sugarcaneYield)
diff --git a/data/sugarcaneYield.RData b/data/sugarcaneYield.RData
new file mode 100644
index 0000000000000000000000000000000000000000..ed83ef19f70e11e971cd8111b50669ad97e383ac
GIT binary patch
literal 437
zcmb2|=3oE==B>ed{g@mD;>r#(|M~A6$Sv={QGakkM9dNO4GJ0^ddCy>=EW2#v>my1
zO8mkp_6^1xzcHF@-1?bujc?9{$h2@vrINf)cg^pgNh!-KFDqX@gG>Byi-4EJ(iS6w
zzan;akJJ?(tbBIUu$=dv!FQd@>jV!yJII}xBUG_=x}{7B%MFen?T0VlosqlEcQ@xX
zAN{Vl`Kr8Gn%$At)^D~AP))e8XJyx)DeH<CKi!c~%3e3^o2jJ0Ooq4hNsD}csaju7
zNk91KTa}fxcj~VaH9_xZze<g!`Br>=w&2_<`?J;yF3U|lym#iU-{*rBgCB)_IdxTd
zP5NB*jtHy!PO(+)di&!J@4Cn>y+V8bil4PnI)6X#{k?j6SH!N5ZKZsRW`u7_{lolt
zEBi^SXQA>FwOMX<B<xXmEf=eBo$H1E{Zln3e;3*RYl;b}O|B`3kot2a<nW;>o3pHs
zb&5pI-aYN+s}&LK@_oy_PL!T|ylRq^Ug^(SG7Q(uWga(hRz6XR-*a<;2FncQj_{ov
v5e#RTmZi1_9_U)LpDTjRg~8id&m!iruH5?F7iR5w^3HtWaSJ9@76t|Yv=h%x

literal 0
HcmV?d00001

diff --git a/man/sugarcaneYield.Rd b/man/sugarcaneYield.Rd
new file mode 100644
index 0000000..6a6983f
--- /dev/null
+++ b/man/sugarcaneYield.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/legTools.R
+\docType{data}
+\name{sugarcaneYield}
+\alias{sugarcaneYield}
+\title{Sugarcane variety experiment}
+\format{a \code{data.frame} with 28 records and 3 variables.}
+\source{
+Frederico, P. (2009). Curso de Estatística Experimental (15th
+    ed.). Piracicaba, São Paulo: FEALQ. (page 92)
+}
+\usage{
+data(sugarcaneYield)
+}
+\description{
+These data are from an experiment done by The West São
+    Paulo State Sugar Mills Cooperative. The experiment was done in a
+    randomized complete block design with 4 blocks. Sugarcane yield
+    (kg/plot) was recorded in each experimental unit.
+
+\itemize{
+    \item \code{block} a categorical unordered factor with 4 levels.
+    \item \code{variety} a categorical unordered factor with 7
+    levels.
+    \item \code{yield} sugarcane yield (kg/plot).
+}
+}
+\examples{
+require(lattice)
+data(sugarcaneYield)
+
+plot(yield~variety, data=sugarcaneYield,
+     groups=block, type="o",
+     ylab=expression(Yield~(kg~plot^{-1})),
+     xlab="Variety")
+}
+\keyword{datasets}
+
-- 
GitLab