hadley / tourr

An implementation of the grand tour and related methods in R

This URL has Read+Write access

tourr / load.r
100644 13 lines (9 sloc) 0.351 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13

# source("\\\\.PSF\\.Home\\ggobi\\tourr\\load.r")
# library(tourr)
 
FILE <- (function() {
  attr(body(sys.function()), "srcfile")
})()$filename
PATH <- dirname(FILE)
 
if (!exists("ozone")) load(file.path(PATH, "data", "ozone.rda"))
if (!exists("flea")) load(file.path(PATH, "data", "flea.rda"))
 
lapply(dir(file.path(PATH, "R"), full.name=T), source)