View source: R/Scale_Logistic.R
1 | scale_fileapply_pass_1(fnm = "combined_data_1.RData", pathformstart = "scale_precomp_1_", directory = getwd())
|
fnm |
|
pathformstart |
|
directory |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | ##---- 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 (fnm = "combined_data_1.RData", pathformstart = "scale_precomp_1_",
directory = getwd())
{
file.names <- dir(path = directory, pattern = pathformstart,
full.names = TRUE)
combined.data_1 <- list()
for (i in 1:length(file.names)) {
flist <- NULL
flist <- ls()
load(file.names[i], envir = .GlobalEnv)
run <- as.integer(substring(file.names[i], nchar(directory) +
nchar(pathformstart) + 2, nchar(file.names[i]) -
nchar(".RData")))
combined.data_1[[i]] <- list(run = run, subset = subset,
idx.start = idx.start, idx.end = idx.end, center = center,
precon = precon, precon.inv = precon.inv)
rm(list = ls()[ls() %in% flist == FALSE])
}
save(file = fnm, combined.data_1 = combined.data_1)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.