% kurt = kurtn(x)
% Calculate the normilized kurtosis of the real valued data so that for a Gaussian r.v. the kurtn(g) = 0
% Input: 
% x: N dimensional data vector
% By Yi-Ou Li Apr. 2004

function kurt = kurtn(x)

x = x-mean(x);

x = x/std(x);

kurt = mean(x.^4)-3;



