\begin{Schunk}
\begin{Sinput}
 ## One replication
 dat1 <- getData(1, N = 100, M1 = 103, M0 = 98, SD1 = 15, SD0 = 15)
 getDiff(dat1)