diff --git a/data-raw/wgpigs.R b/data-raw/wgpigs.R
index 5f7478311425d34d5e7a2cae04db4eb1164aad71..bb92f44dff4a56375ec2ff385ab6ddc43856086d 100644
--- a/data-raw/wgpigs.R
+++ b/data-raw/wgpigs.R
@@ -1,13 +1,12 @@
 ##----------------------------------------------------------------------
 ## Data generation.
 
-da <- read.table("http://www.leg.ufpr.br/~walmes/data/pimentel_racoes.txt",
-                 header=TRUE, sep="\t")
-names(da) <- c("ft","wg")
-str(da)
+wgpigs <- read.table("http://www.leg.ufpr.br/~walmes/data/pimentel_racoes.txt",
+                     header=TRUE, sep="\t")
+names(wgpigs) <- c("ft","wg")
+str(wgpigs)
 
-save(da, file="../data/wgpigs.rda")
-wgpigs <- da
+save(wgpigs, file="../data/wgpigs.RData")
 
 ##----------------------------------------------------------------------
 ## Examples.
@@ -17,3 +16,8 @@ require(lattice)
 xyplot(wg~ft, data=wgpigs,
        ylab="Weight gain (kg)",
        xlab="Feeding type")
+
+rm(list=ls())
+load("../data/wgpigs.RData")
+ls()
+str(wgpigs)
diff --git a/data/wgpigs.RData b/data/wgpigs.RData
new file mode 100644
index 0000000000000000000000000000000000000000..6ea1af63ee90df6fb2e6ba4e66ff220cd6546043
Binary files /dev/null and b/data/wgpigs.RData differ
diff --git a/data/wgpigs.rda b/data/wgpigs.rda
deleted file mode 100644
index 2955c8151ea377cbcebe4f00f7f9b3ef30b404ef..0000000000000000000000000000000000000000
Binary files a/data/wgpigs.rda and /dev/null differ