advanced r
Made new outlier function based on 'match'