\begin{Schunk}
\begin{Soutput}
Call:
lm(formula = ti_cpi ~ fh_prf, data = dat)

Residuals:
    Min      1Q  Median      3Q     Max 
-3.4820 -0.9361 -0.2808  0.6733  5.3636 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)   6.1820     0.2179  28.365  < 2e-16 ***
fh_prf2      -2.3012     0.3726  -6.176 4.51e-09 ***
fh_prf3      -3.3582     0.4007  -8.380 1.72e-14 ***
fh_prf4      -3.5047     0.3943  -8.889 7.63e-16 ***
fh_prf5      -2.2456     0.5132  -4.375 2.08e-05 ***
fh_prf6      -3.1459     0.3369  -9.339  < 2e-16 ***
fh_prf7      -3.3553     0.4537  -7.396 5.71e-12 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 1.541 on 174 degrees of freedom
  (13 observations deleted due to missingness)
Multiple R-squared:  0.4656,	Adjusted R-squared:  0.4472 
F-statistic: 25.27 on 6 and 174 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
