function(x)
{
	m4 <- mean((x - mean(x))^4)
	kurt <- m4/(var(x)^2)
	kurt
}
