Create ProbabilityPlot.R