How to make r 50000 fast