Pull Request from Zhicheng Ji

Please time the speed of my R programs. Thanks!