function(x, al)
{
	n <- length(x)
	cf <- qt(1 - al/2, n - 1)
	upper <- mean(x) + (cf * std(x))/sqrt(n)
	lower <- mean(x) - (cf * std(x))/sqrt(n)
	conint <- c(lower, upper)
	conint
}
