function(x, m)
{
	n <- length(x)
	amedian <- c(1:m)
	for(i in 1:m) {
		amedian[i] <- median(sample(
			x, n, replace = T))
	}
	amedian
}
