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