#85 #86 uncommented lines assigning fixed sectors to data objects, ad…

…ded compression alogorithms, and updated the data sets
braverock · Jul 16, 2022 · cc6e196 · cc6e196
1 parent 63eca65
commit cc6e196
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 9 deletions.
diff --git a/data/factorsSPGMI.rda b/data/factorsSPGMI.rda
diff --git a/data/stocksCRSP.rda b/data/stocksCRSP.rda
diff --git a/sandbox/Vestcor Data Cleaning/spinnj_issue86.R b/sandbox/Vestcor Data Cleaning/spinnj_issue86.R
@@ -37,8 +37,9 @@ stocksCRSP_tmp$Sector <- sector_table$GoodSectors[match(stocksCRSP_tmp$Sector,se
 unique(factorsSPGMI_tmp$Sector) # contains 11 sectors with no dupes
 unique(stocksCRSP_tmp$Sector) # contains 11 sectors with no dupes
 
-# save data (not yet run)
-#factorsSPGMI <- factorsSPGMI_tmp
-#stocksCRSP <- stocksCRSP_tmp
-#save(factorsSPGMI,file="./data/factorsSPGMI.rda")
-#save(stocksCRSP,file="./data/stocksCRSP.rda")
+# save data
+factorsSPGMI <- factorsSPGMI_tmp
+stocksCRSP <- stocksCRSP_tmp
+# added compression args, using xz algorithm of the highest level
+save(factorsSPGMI, file="./data/factorsSPGMI.rda", compress = "xz", compression_level = 9)
+save(stocksCRSP, file="./data/stocksCRSP.rda", compress = "xz", compression_level = 9)