Update R scripts to disregard outliers