Speed up computing R by using bootstrap sampling
Profile large n