Create costCurve.r