Add averages for shuttle-box-analysis.R