diff --git a/R/legTools.R b/R/legTools.R
index f500c35bb36d30988681b2550709411181571cd1..5e3842347998eb0b2a244059613b9d5d148db1e5 100644
--- a/R/legTools.R
+++ b/R/legTools.R
@@ -6,3 +6,41 @@
 ##' @docType package
 ##' @name legTools
 NULL
+
+#' @title Feeding type in pig weight gain
+#' 
+#' @description This is an artifial dataset corresponding a experiment
+#' to study the effect of feeding type (factor with 4 categorical
+#' nominal levels) in pig weight gain. The experiment was a randomized
+#' complete design with five experimental units per treatment level. The
+#' experimental unit was a pig. The response measured was weight gain from
+#' the beggining to the end of the experiment.
+#'
+#' \itemize{
+#'     \item ft feeding type, a categorical factor with 4 levels.
+#'     \item wg weight gain (kg).
+#' }
+#'
+#' @docType data
+#' 
+#' @keywords datasets
+#' 
+#' @name wgpigs
+#' 
+#' @usage data(wgpigs)
+#' 
+#' @format a \code{data.frame} with 20 records and 2 variables.
+#'
+#' @source Frederico, P. (2009). Curso de Estatística Experimental (15th
+#' ed.). Piracicaba, São Paulo: FEALQ.
+#'
+#' @examples
+#' 
+#' require(lattice)
+#' 
+#' xyplot(wg~ft, data=wgpigs,
+#'        ylab="Weight gain (kg)",
+#'        xlab="Feeding type")
+#'
+#' @export
+NULL
diff --git a/data-raw/wgpigs.R b/data-raw/wgpigs.R
new file mode 100644
index 0000000000000000000000000000000000000000..5f7478311425d34d5e7a2cae04db4eb1164aad71
--- /dev/null
+++ b/data-raw/wgpigs.R
@@ -0,0 +1,19 @@
+##----------------------------------------------------------------------
+## 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)
+
+save(da, file="../data/wgpigs.rda")
+wgpigs <- da
+
+##----------------------------------------------------------------------
+## Examples.
+
+require(lattice)
+
+xyplot(wg~ft, data=wgpigs,
+       ylab="Weight gain (kg)",
+       xlab="Feeding type")
diff --git a/data/wgpigs.rda b/data/wgpigs.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2955c8151ea377cbcebe4f00f7f9b3ef30b404ef
Binary files /dev/null and b/data/wgpigs.rda differ
diff --git a/man/wgpigs.Rd b/man/wgpigs.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..fa6aa5f680f006a7a121289a7e5f0ec5304d5674
--- /dev/null
+++ b/man/wgpigs.Rd
@@ -0,0 +1,36 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/legTools.R
+\docType{data}
+\name{wgpigs}
+\alias{wgpigs}
+\title{Feeding type in pig weight gain}
+\format{a \code{data.frame} with 20 records and 2 variables.}
+\source{
+Frederico, P. (2009). Curso de Estatística Experimental (15th
+ed.). Piracicaba, São Paulo: FEALQ.
+}
+\usage{
+data(wgpigs)
+}
+\description{
+This is an artifial dataset corresponding a experiment
+to study the effect of feeding type (factor with 4 categorical
+nominal levels) in pig weight gain. The experiment was a randomized
+complete design with five experimental units per treatment level. The
+experimental unit was a pig. The response measured was weight gain from
+the beggining to the end of the experiment.
+
+\itemize{
+    \item ft feeding type, a categorical factor with 4 levels.
+    \item wg weight gain (kg).
+}
+}
+\examples{
+require(lattice)
+
+xyplot(wg~ft, data=wgpigs,
+       ylab="Weight gain (kg)",
+       xlab="Feeding type")
+}
+\keyword{datasets}
+