\begin{Schunk}
\begin{Sinput}
 ## try it on one replication first
 dat1 <- getData(1, N = 100, M1 = 103, M0 = 98, SD1 = 15, SD0 = 15)
 getDiff(dat1)
\end{Sinput}
\begin{Soutput}
[1] 7.899117
\end{Soutput}
\begin{Sinput}
 ##
 ## Combine into 1 step if we don't want to save the data
 getDiff(getData(1, N = 100, M1 = 103, M0 = 98, SD1 = 15, SD0 = 15))
\end{Sinput}
\begin{Soutput}
[1] 5.374122
\end{Soutput}
\begin{Sinput}
 
\end{Sinput}
\end{Schunk}
