1 |
file |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (file)
{
dat <- read.csv(file, skip = 3, head = F)
nv <- ncol(dat)
dum <- scan(file, n = 3 * ncol(dat), sep = ",", what = "")
vars <- gsub(" ", "", dum[(nv + 1):(nv * 2)])
units <- gsub(" ", "", dum[(nv * 2 + 1):(nv * 3)])
colnames(dat) <- vars
dat[dat == -9999] <- NA
return(dat)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.