multiple polynomial regression in r