diff --git a/data-raw/wgpigs.R b/data-raw/wgpigs.R
index bb92f44dff4a56375ec2ff385ab6ddc43856086d..5a3cfe8076219634b0b57d7109c85ef40646b334 100644
--- a/data-raw/wgpigs.R
+++ b/data-raw/wgpigs.R
@@ -21,3 +21,18 @@ rm(list=ls())
 load("../data/wgpigs.RData")
 ls()
 str(wgpigs)
+
+##----------------------------------------------------------------------
+
+write.table(x=wgpigs, file="wgpigs.txt",
+            sep="\t", quote=FALSE, row.names=FALSE)
+
+## Port and IP.
+u <- scan(n=2, what=character())
+cmd <- paste0("scp -P ", u[1], " wgpigs.txt leg@", u[2],
+              ":/home/leg/public_html/legTools/dataset")
+system(cmd)
+
+url <- "http://blog.leg.ufpr.br/~leg/legTools/dataset/wgpigs.txt"
+browseURL(url)
+wgpigs <- read.table(file=url, header=TRUE, sep="\t")
diff --git a/data-raw/wgpigs.txt b/data-raw/wgpigs.txt
new file mode 100644
index 0000000000000000000000000000000000000000..d3d91cb2cc572347ba3c3929bafcf81741ec9162
--- /dev/null
+++ b/data-raw/wgpigs.txt
@@ -0,0 +1,21 @@
+ft	wg
+A	35
+A	19
+A	31
+A	15
+A	30
+B	40
+B	35
+B	46
+B	41
+B	33
+C	39
+C	27
+C	20
+C	29
+C	45
+D	27
+D	12
+D	13
+D	28
+D	30
diff --git a/data/wgpigs.RData b/data/wgpigs.RData
index 6ea1af63ee90df6fb2e6ba4e66ff220cd6546043..d44077aacfd23b90dfbc7f015257af67796e1c3c 100644
Binary files a/data/wgpigs.RData and b/data/wgpigs.RData differ