\begin{Schunk}
\begin{Sinput}
 ps80ts <- testSlopes(ps80)
\end{Sinput}
\begin{Soutput}
Values of extMotiv INSIDE this interval:
       lo        hi 
 1.235092 20.920372 
cause the slope of (b1 + b2*extMotiv)agency to be statistically significant
\end{Soutput}
\end{Schunk}
