function(x)
{
	m3 <- mean((x - mean(x))^3)
	skw <- m3/(std(x)^3)
	skw
}
