cubic polynomial regression in r