Link to Home
# Body of script for batch processing of regression models
#--------------------------------------------
# Global variables
file_folder <- "CleanSalamanderData/"
file_out <- "CombinedSalamanderData.csv"
#--------------------------------------------
# Load salamander data
dir.exists(file_folder)
## [1] TRUE
file_names <- list.files(path=file_folder)
# Making an empty list
data <- list()
# Combine files into a single `.csv`
for (i in seq_along(file_names)) {
data[[i]] <- read.table(file=paste(file_folder,file_names[i],sep=""),
sep=",",
header=TRUE,
stringsAsFactors=FALSE)
}
names(data) <- c("real","fake")
list2env(x = data, envir = .GlobalEnv)
## <environment: R_GlobalEnv>
combined.data <- rbind(fake,real)
write.table(x=combined.data,
file=file_out,
row.names=FALSE,
col.names=FALSE,
sep=",")