Update BAplot.R