\begin{Schunk}
\begin{Sinput}
  dat2 <- read.table("examples/newp.sas.txt",header=T,sep="|")
  str(dat2$noise)
\end{Sinput}
\begin{Soutput}
 Factor w/ 10 levels ".","-186.784638260593",..: 1 7 1 9 10 NA 1 NA NA 6 ...
\end{Soutput}
\end{Schunk}
