diff --git a/data-raw/potatoyield.R b/data-raw/potatoyield.R
new file mode 100644
index 0000000000000000000000000000000000000000..c1b160085614dd92684329514b6abec9644df9c2
--- /dev/null
+++ b/data-raw/potatoyield.R
@@ -0,0 +1,26 @@
+##----------------------------------------------------------------------
+## Data generation.
+
+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)
+
+potatoyield <- potatoyield[with(potatoyield, order(block, variety)),]
+
+save(potatoyield, file="../data/potatoyield.RData")
+
+##----------------------------------------------------------------------
+## Examples.
+
+require(lattice)
+
+xyplot(yield~variety, data=potatoyield,
+       groups=block, type="o",
+       ylab=expression(Yield~(t~ha^{-1})),
+       xlab="Variety")
+
+rm(list=ls())
+load("../data/potatoyield.RData")
+ls()
+str(potatoyield)
diff --git a/data/potatoyield.RData b/data/potatoyield.RData
new file mode 100644
index 0000000000000000000000000000000000000000..c650a954d79af8e08247412563bcb3aa15f310ef
Binary files /dev/null and b/data/potatoyield.RData differ