Add wgpigs.txt to upload to public folder.

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")

data-raw/wgpigs.txt

+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