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

Residuals:
    Min      1Q  Median      3Q     Max 
-3.3540 -1.0921 -0.2710  0.8591  5.7132 

Coefficients:
                     Estimate Std. Error t value Pr(>|t|)    
(Intercept)            7.8017     0.3501  22.285  < 2e-16 ***
rcs(fh_pr, 4)fh_pr    -1.7477     0.1764  -9.906  < 2e-16 ***
rcs(fh_pr, 4)fh_pr'    3.3199     0.5635   5.892 1.88e-08 ***
rcs(fh_pr, 4)fh_pr'' -17.2623     3.7109  -4.652 6.42e-06 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 1.549 on 177 degrees of freedom
  (13 observations deleted due to missingness)
Multiple R-squared:  0.4508,	Adjusted R-squared:  0.4415 
F-statistic: 48.43 on 3 and 177 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
