Create resamped.R