R functions for finding sample distribution using boot strap

Question

"SampleDist"* function that returns the sampling distribution of the mean, median, or standard deviation based on 1000 bootstrapping samples of size 500 e