function shat = bickellehmann(data)

%BickelLehmann (1992) 
data = data(:);
n = length(data);

absdiff =[];
for( i = 1:(n-1) )
    for( j = (i+1):n)
        absdiff = [absdiff abs(data(i) - data(j))];
    end
end
med = median(absdiff);
shat = 1 * med

