created library of functions
started saving subsamples - still troubleshooting memory size liitation on corpus_stats.R