Changed to using dplyr for BIG SPEEDUP!!!