function(x, m)
{
	n <- length(x)
	aq1 <- c(1:m)
	aq3 <- c(1:m)
	for(i in 1:m) {
		sx <- sample(x, n, replace
			 = T)
		aq1[i] <- quantile(sx, 0.25)
		aq3[i] <- quantile(sx, 0.75)
	}
	res <- cbind(aq1, aq3)
	res
}
