How To Sample Data In R