\begin{Schunk}
\begin{Sinput}
  saveRDS(dat, "practiceData.rds")
  dat99 <- readRDS("practiceData.rds")
  str(dat99)
\end{Sinput}
\begin{Soutput}
'data.frame':	19 obs. of  18 variables:
 $ grp      : int  1 2 1 3 1 1 2 2 2 1 ...
 $ inc      : int  44444 34343 11112 23232 23111 78787 33233 22312 32322 76755 ...
 $ mar      : Factor w/ 3 levels "N","W","Y": 3 3 1 1 3 1 3 1 3 1 ...
 $ sex      : Factor w/ 2 levels "Fem","Mal": 2 1 2 1 1 2 2 1 1 1 ...
 $ noise    : num  NA NA 418 338 NA ...
 $ moreNoise: num  0.299 0.78 1.456 -0.644 -1.553 ...
 $ newed    : int  11 10 9 15 7 12 8 6 11 20 ...
 $ ed       : int  11 10 9 15 7 12 8 6 11 20 ...
 $ edlog    : num  2.48 2.4 2.3 2.77 2.08 ...
 $ edsqrt   : num  3.32 3.16 3 3.87 2.65 ...
 $ edexp    : num  59874 22026 8103 3269017 1097 ...
 $ grpfac1  : Factor w/ 3 levels "Number1","Number2",..: 1 2 1 3 1 1 2 2 2 1 ...
 $ grpfaco  : Factor w/ 3 levels "Number2","Number1",..: 2 1 2 3 2 2 1 1 1 2 ...
 $ mn1      : Factor w/ 5 levels "(-10,-1]","(-1,-0.3]",..: 3 4 5 2 1 1 5 2 3 3 ...
 $ grpfac2  : Factor w/ 3 levels "Western","Midwest",..: 2 1 2 3 2 2 1 1 1 2 ...
 $ grpfac3  : Factor w/ 3 levels "Midwest","Western",..: 2 1 2 3 2 2 1 1 1 2 ...
 $ grpfac4  : Factor w/ 3 levels "Eastern","Western",..: 3 2 3 1 3 3 2 2 2 3 ...
 $ grpfac5  : Factor w/ 3 levels "Eastern","Western",..: 3 2 3 1 3 3 2 2 2 3 ...
\end{Soutput}
\begin{Sinput}
  identical(dat, dat99)
\end{Sinput}
\begin{Soutput}
[1] TRUE
\end{Soutput}
\end{Schunk}
