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