Capital Y in potatoYield.

data-raw/potatoyield.R → data-raw/potatoYield.R

 ##----------------------------------------------------------------------
 ## Data generation.
 
-potatoyield <- read.table("http://www.leg.ufpr.br/~walmes/data/pimentel_batatinha.txt",
+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)
+names(potatoYield) <- c("block", "variety", "yield")
+str(potatoYield)
 
-potatoyield <- potatoyield[with(potatoyield, order(block, variety)),]
+potatoYield <- potatoYield[with(potatoYield, order(block, variety)),]
 
-save(potatoyield, file="../data/potatoyield.RData")
+save(potatoYield, file="../data/potatoYield.RData")
 
 ##----------------------------------------------------------------------
 ## Examples.
 
 require(lattice)
 
-xyplot(yield~variety, data=potatoyield,
+xyplot(yield~variety, data=potatoYield,
        groups=block, type="o",
        ylab=expression(Yield~(t~ha^{-1})),
        xlab="Variety")
 
 rm(list=ls())
-load("../data/potatoyield.RData")
+load("../data/potatoYield.RData")
 ls()
-str(potatoyield)
+str(potatoYield)