Link to Home

Modifying the lecture script with my own data

# 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=",")