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