Create profilePlot.R