fixed criterion for outlier in outlier-function.R