\begin{Schunk}
\begin{Sinput}
 m6ps <- plotSlopes(m6, plotx = "income", modx = "region", ylim = magRange(Chile$statusquo, c(1, 1.3)), llwd = c(2, 2), cex = 1.0)
 m6ps$newdata
\end{Sinput}
\begin{Soutput}
   region income sex         fit         lwr        upr
1      SA    2.5   F -0.23158507 -0.32180224 -0.1413679
2       S    2.5   F  0.22786977  0.12974686  0.3259927
3       C    2.5   F  0.02405915 -0.08384606  0.1319644
4       N    2.5   F  0.11756374 -0.03728760  0.2724151
5       M    2.5   F  0.14317264 -0.14128334  0.4276286
6      SA  200.0   F  0.25558282  0.03236837  0.4787973
7       S  200.0   F  0.31625024 -0.07781512  0.7103156
8       C  200.0   F  0.05668369 -0.32438301  0.4377504
9       N  200.0   F  0.76059507  0.12329258  1.3978975
10      M  200.0   F  2.13398804  0.67646454  3.5915115
\end{Soutput}
\end{Schunk}
