Create draw_hist_curve.r