Update average-comparisons.R