Wrote curve.data.frame.R