\begin{Schunk}
\begin{Soutput}
Call:
lm(formula = y ~ x + I(x^2), data = dat)

Residuals:
    Min      1Q  Median      3Q     Max 
-5.5108 -2.6118  0.8003  2.4781  5.8356 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  3.84765    0.96066   4.005 0.000121 ***
x           -1.13643    0.44710  -2.542 0.012612 *  
I(x^2)       0.09083    0.04239   2.142 0.034657 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 3.047 on 97 degrees of freedom
Multiple R-squared:  0.07998,	Adjusted R-squared:  0.06101 
F-statistic: 4.216 on 2 and 97 DF,  p-value: 0.01755
\end{Soutput}
\end{Schunk}
