Fixed bug that was producing the same counts for everything
Added line to R path