Update flowDensityFigure1Comparison.R