\begin{Schunk}
\begin{Sinput}
 partialx1 <- bs[2] + bs[4] * mean(dat$x2)
 partialx1
\end{Sinput}
\begin{Soutput}
      x1 
26.40583 
\end{Soutput}
\end{Schunk}
