Call: lm(formula = quality ~ poly(Temp, 2), data = winequality) Residuals: Min 1Q Median 3Q Max -5.5347 -2.0856 -0.0745 1.8324 5.6500 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 26.4930 0.3401 77.905 <2e-16 *** poly(Temp, 2)1 -4.6936 2.8654 -1.638 0.106 poly(Temp, 2)2 -34.9769 2.8654 -12.206 <2e-16 *** --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 Residual standard error: 2.865 on 68 degrees of freedom Multiple R-squared: 0.6905, Adjusted R-squared: 0.6814 F-statistic: 75.84 on 2 and 68 DF, p-value: < 2.2e-16