Create Peak fractionation comparison.R