\begin{Schunk}
\begin{Sinput}
 asequence <- 1:10
 splineMatrix <- rcs(asequence, 4)
 splineMatrix
\end{Sinput}
\begin{Soutput}
      asequence asequence' asequence''
 [1,]         1 0.00000000   0.0000000
 [2,]         2 0.00000000   0.0000000
 [3,]         3 0.00000000   0.0000000
 [4,]         4 0.00000000   0.0000000
 [5,]         5 0.08424211   0.0000000
 [6,]         6 0.86853567   0.1371742
 [7,]         7 2.74074074   0.7993827
 [8,]         8 4.79629630   1.5606996
 [9,]         9 6.85185185   2.3220165
[10,]        10 8.90740741   3.0833333
attr(,"class")
[1] "Design"
attr(,"name")
[1] "asequence"
attr(,"label")
[1] "asequence"
attr(,"assume")
[1] "rcspline"
attr(,"assume.code")
[1] 4
attr(,"parms")
[1] 4.15 5.00 6.00 6.85
attr(,"nonlinear")
[1] FALSE  TRUE  TRUE
attr(,"colnames")
[1] "asequence"   "asequence'"  "asequence''"
\end{Soutput}
\end{Schunk}
