\begin{Schunk}
\begin{Soutput}
Call:
lm(formula = y ~ rcs(x, parms = 5), data = dat)

Residuals:
    Min      1Q  Median      3Q     Max 
-2.8319 -0.6288 -0.0866  0.7363  3.2213 

Coefficients:
                       Estimate Std. Error t value Pr(>|t|)    
(Intercept)              1.1623     0.4637   2.507   0.0139 *  
rcs(x, parms = 5)x       1.8992     0.2710   7.009 3.46e-10 ***
rcs(x, parms = 5)x'    -39.8111     2.1626 -18.409  < 2e-16 ***
rcs(x, parms = 5)x''   119.3189     5.5632  21.448  < 2e-16 ***
rcs(x, parms = 5)x''' -161.6405     6.5280 -24.761  < 2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 1.084 on 95 degrees of freedom
Multiple R-squared:  0.8859,	Adjusted R-squared:  0.8811 
F-statistic: 184.4 on 4 and 95 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
