\begin{Schunk}
\begin{Sinput}
> library(memisc)
> idat <- spss.system.file("gss2006.sav")
> idat2 <- as.data.set(idat)
> dat <- as.data.frame(idat2)
\end{Sinput}
\end{Schunk}
