Create BasicBAplot.R