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