SitemFit1 function

Compute the S fit statistic for 1 item