Statistics
| Revision:

root / tmp / org.txm.statsengine.r.core.win32 / res / win32 / library / alr4 / extdata / torda.R @ 2486

History | View | Annotate | Download (1.2 kB)

1
# save all alr data in .rda files
2
library(alr3)
3
files <-  c(
4
"shocks", "turkey", "ufc", "longshoots", "caution", "sleep1", "brains",
5
"downer", "walleye", "MWwords", "drugcost", "galapagos", "BGSgirls", "florida",
6
"BGSall", "oldfaith", "lakemary", "wblake2", "heights", "mile", "water", "UN2",
7
"cloud", "dwaste", "physics1", "npdata", "sniffer", "wm4", "twins", "wm3",
8
"salarygov", "landrent", "blowAPB", "swan96", "allshoots", "wm1", "snowgeese",
9
"ufcwc", "jevons", "UN3", "chloride", "fuel2001", "segreg", "pipeline", "BGSboys",
10
"physics", "domedata", "snake", "rat", "htwt", "salary", "shortshoots", "UN1",
11
"challeng", "stopping", "cakes", "banknote", "highway", "wool", "Mitchell",
12
"galtonpeas", "lakes", "transact", "cathedral", "blowBF", "baeskel", "wm2",
13
"forbes", "prodscore", "turk0", "blowdown", "lathe1", "ais", "ftcollinssnow",
14
"hooker", "donner", "BigMac2003", "titanic", "mantel", "domedata1", "ufcdf",
15
"wblake", "ufcgf")
16

    
17
out1 <- NULL
18
for(f in files) {
19
  out1 <- c(out1,
20
    paste("save(", f, ", file='", f, ".rda')", sep=""))
21
  }
22
write.table(out1, "out1", row.names=FALSE, col.names=FALSE, quote=FALSE)
23
source("out1")
24
#wm5 <- read.table("http://www.stat.umn.edu/alr/data/wm5.txt", header=TRUE)
25
#save(wm5, file="wm5.rda")