R : Simple Function Curve