first commit

HD_Flues.R

@@ -0,0 +1,27 @@
+# Combine Flues Data into one file
+# Michael D Cayton
+# December 7th, 2022
+
+#### Load the libraries ###
+
+library("tidyverse")                                    # Load dplyr package
+library("plyr")                                     # Load plyr package
+library("readr")                                    # Load readr package
+
+# Set the url for the ftp site working directory.
+# This is where the origianal data is stored.
+url <- 'C:/Users/mdcay/Documents/Happy Dad/ns41flues/'
+
+data_all <- list.files(path = url,  # Identify all CSV files
+                       pattern = "*.flue", full.names = TRUE) %>% 
+  lapply(read_delim, delim=' ', col_names = FALSE, show_col_types = FALSE) %>%  # Store all files in list
+  bind_rows                                        # Combine data sets into one data set 
+data_all                                            # Print data to RStudio console
+
+test <- NULL
+test <- cbind(test, sapply(data_all[3:21], sprintf, fmt = "%.4e"))
+df <- NULL
+df <- cbind(data_all[1:2], test)
+
+# Save table.    
+write_delim(df, file="/Users/mdcay/Documents/Happy Dad/ns41flues/ns41gwk_combined.flue", delim= '\s\s', col_names = FALSE)