Typo in data_prep.R, should have used >= not >... ugh