algS function

Algorithm S - robust estimate of pooled standard deviation