\begin{Schunk}
\begin{Sinput}
 m6ps
\end{Sinput}
\begin{Soutput}
$call
plotSlopes.lm(model = m6, plotx = "education", modx = "type")

$newdata
  education type      fit
1      6.38   bc 26.09849
2      6.38 prof 38.70461
3      6.38   wc 12.37580
4     15.97   bc 71.78190
5     15.97 prof 74.98210
6     15.97   wc 74.08350

$modxVals
  bc (40%) prof (30%)   wc (20%) 
        bc       prof         wc 
Levels: bc prof wc

$col
  bc prof   wc 
   1    2    3 

$lty
  bc prof   wc 
   1    2    3 

attr(,"class")
[1] "plotSlopes" "rockchalk" 
\end{Soutput}
\end{Schunk}
