R Choose Without Replacement And With Replacement