\begin{Schunk}
\begin{Sinput}
  dat2 <- read.table("examples/newp.sas.txt", header = TRUE, sep = "|", na.strings = c("NA","."))
  str(dat2$noise)
\end{Sinput}
\begin{Soutput}
 num [1:19] NA 321 NA 346 363 ...
\end{Soutput}
\end{Schunk}
