\begin{Schunk}
\begin{Sinput}
 ## Test
 dframe1 <- getTdata(1, N = "30:30", M = "98:102", SD = "15:15")
\end{Sinput}
\end{Schunk}
