In the middle of implementing a more readable
matrix in finalmodel.R. I've decided that instead
of re-implementing all code with data frames,
I'll instead make a function to get a data frame
with more interpretable date formats