diff --git a/data-raw/potatoyield.R b/data-raw/potatoYield.R
similarity index 53%
rename from data-raw/potatoyield.R
rename to data-raw/potatoYield.R
index c1b160085614dd92684329514b6abec9644df9c2..6dea6d04af80644167d4cfdd90cfc6e8cb86f098 100644
--- a/data-raw/potatoyield.R
+++ b/data-raw/potatoYield.R
@@ -1,26 +1,26 @@
 ##----------------------------------------------------------------------
 ## 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)
diff --git a/data/potatoyield.RData b/data/potatoYield.RData
similarity index 100%
rename from data/potatoyield.RData
rename to data/potatoYield.RData