Create flowDensityFigure1Comparison.R