\begin{Schunk}
\begin{Sinput}
 library(MCMCpack)
 mcmcpack0 <- MCMCregress(y ~ x1 * x2 + x3f, b0 = 0, B0 = 0.1, sigma.mu = 1, sigma.var = 10, data = dat)
\end{Sinput}
\end{Schunk}
