From a013a775eb73ec4bc0c4b87142e683af5f5f96e2 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmeszeviani@gmail.com>
Date: Sun, 20 Sep 2015 16:44:39 -0300
Subject: [PATCH] Add dataset from acidity of mango fruits per variety.
---
data-raw/mangoAcidity.R | 45 +++++++++++++++++++++++++++++++++++
data/mangoAcidity.RData | Bin 0 -> 464 bytes
man/mangoAcidity.Rd | 51 ++++++++++++++++++++++++++++++++++++++++
3 files changed, 96 insertions(+)
create mode 100644 data-raw/mangoAcidity.R
create mode 100644 data/mangoAcidity.RData
create mode 100644 man/mangoAcidity.Rd
diff --git a/data-raw/mangoAcidity.R b/data-raw/mangoAcidity.R
new file mode 100644
index 0000000..f42f67c
--- /dev/null
+++ b/data-raw/mangoAcidity.R
@@ -0,0 +1,45 @@
+##----------------------------------------------------------------------
+## Data generation.
+
+mangoAcidity <- expand.grid(variety=c("Bourbon", "Brasil", "Extrema",
+ "Maçã", "Non Plus Ultra",
+ "Oliveira"),
+ year=c(1957:1959),
+ month=c("N", "D", "J"),
+ KEEP.OUT.ATTRS=FALSE)
+mangoAcidity$acid <- c(28.2, 38.3, 37.6, 47.2, 36.4, 40.0, 24.7, 32.0,
+ 39.0, 47.7, 35.3, 30.1, 16.4, 38.4, 50.3, 50.2,
+ 40.1, 30.0, 6.0, 5.0, 6.0, 6.2, 7.9, 6.0, 6.2,
+ 3.6, 6.6, 6.9, 10.2, 7.0, 6.9, 4.0, 6.9, 7.9,
+ 9.8, 8.4, 4.6, 4.6, 5.4, 5.2, 4.9, 6.1, 4.4,
+ 4.2, 5.4, 4.2, 6.8, 3.5, 5.0, 3.8, 5.0, 5.0,
+ 7.0, 4.8)
+str(mangoAcidity)
+
+save(mangoAcidity, file="../data/mangoAcidity.RData")
+
+##----------------------------------------------------------------------
+## Examples.
+
+library(lattice)
+library(latticeExtra)
+
+data(mangoAcidity)
+str(mangoAcidity)
+
+## reshape::cast() can also be used.
+with(mangoAcidity,
+ ftable(tapply(acid,
+ list(variety, year, month),
+ FUN=identity)))
+
+xyplot(acid~month|variety, groups=year,
+ data=mangoAcidity, type=c("p", "a"),
+ auto.key=TRUE,
+ ylab="Acidity",
+ xlab="Month")
+
+rm(list=ls())
+load("../data/mangoAcidity.RData")
+ls()
+str(mangoAcidity)
diff --git a/data/mangoAcidity.RData b/data/mangoAcidity.RData
new file mode 100644
index 0000000000000000000000000000000000000000..d6dc2ed24a5e71f3bc05a1ef56396c99f5e479d6
GIT binary patch
literal 464
zcmV;>0Wba^iwFP!000001JzXBN&-O?9(VmoF{xCr3=)biB?_X8ko70TAd4XIcG9&L
z)?JugE$@7dx{dS!dIayH9-x=eW_HdAT-rM?YT)eo`Oe?YnVIWa>oCzu5JD89Dhg3l
zE`}BU36U^~bDr!`>&`B>jgH|C2~pF+f%8?)k3ByT%MH>_BAlZC-@dR1QBxo2ro*K*
z50%zf#qP6P+d`)bqmE%Bc=qTry+;WddEf<|PNpvarkb`@xH9`r;l^|s1?$SCX$*9O
z>x<PRZIe1!{HLWZZM!z((u@-fBla3V;{cij&>zdQaM+eX%92Q34vBFqbC|FS6Am>|
zsG)E!T~&1b{V=4&W@)EK-qNc3U9q&vhghFl{Yk86tpa$BcuPBZlez|abtHNHOZu0`
zGEZq!>IYq^S0PUW>NEhaC1t%5<jVoi`1Bm~wF7<m?MdKUP%jUDd!TQFKib!PI_BL4
zUVwZX5RW_ycn0t^_5=7j<_A3M)AO(oN#B2_AU@->W8Y~R=fCq7?df>u!}z8QC^K~a
z3QILS)G0&%o^84J2vGi7`x3^P{ZPcD;yNi}zVrF~J>X0wI@G1bF5@9^u4dn$XZlMm
G1^@ujw&8vN
literal 0
HcmV?d00001
diff --git a/man/mangoAcidity.Rd b/man/mangoAcidity.Rd
new file mode 100644
index 0000000..85fb633
--- /dev/null
+++ b/man/mangoAcidity.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/legTools.R
+\docType{data}
+\name{mangoAcidity}
+\alias{mangoAcidity}
+\title{Acidity of mango fruits by varieties, years and months}
+\format{a \code{data.frame} with 54 records and 6 variables.}
+\source{
+Frederico, P. (2009). Curso de EstatÃstica Experimental (15th
+ ed.). Piracicaba, São Paulo: FEALQ. (page 132)
+
+Simão, S. (1960). Estudo da planta e dos frutos da mangueira
+ (\emph{Manginifera indica} L.). Piracicaba, 1960. Thesis.
+}
+\usage{
+data(sugarcaneYield4)
+}
+\description{
+These data are from an observational study along 3 years
+ where acidity in fruits of 6 varieties of mango was determined in
+ Novermber, December and January.
+
+\itemize{
+ \item \code{variety} a categorical variable with 6 levels that
+ represents mango varieties studied.
+ \item \code{year} the year of harvesting.
+ \item \code{month} the month of harvesting.
+ \item \code{acid} mean of the acidity determined in 3 fruits.
+}
+}
+\examples{
+library(lattice)
+library(latticeExtra)
+
+data(mangoAcidity)
+str(mangoAcidity)
+
+## reshape::cast() can also be used.
+with(mangoAcidity,
+ ftable(tapply(acid,
+ list(variety, year, month),
+ FUN=identity)))
+
+xyplot(acid~month|variety, groups=year,
+ data=mangoAcidity, type=c("p", "a"),
+ auto.key=TRUE,
+ ylab="Acidity",
+ xlab="Month")
+}
+\keyword{datasets}
+
--
GitLab