Read in the series datasets

read_in_data.R

######## Point to your data directory 
series_all_files = list.files(series_data_dir)
series_data_files = series_all_files[grepl('.csv', series_all_files)]

print(sprintf('Total data files = %s', length(series_data_files)))

series_data_ = lapply(series_data_files, 
                      function(i) {
                        dat = read.csv(paste0(series_data_dir, '/', i), stringsAsFactors = FALSE)
                        file_ = gsub('.csv', '', i)
                        dat$Status = strsplit(file_, '_')[[1]][4]
                        dat
                      })

how to run please send code