\begin{Schunk}
\begin{Sinput}
 library(rockchalk)
 dat <- read.table("/home/pauljohn/ps/SVN-guides/stat/DataSets/wages/wages.txt", header=T, sep="") 
 colnames(dat) <- tolower(colnames(dat))
 dat$racef <- factor(dat$race, labels=c("Other", "Hispanic","White")) 
 dat$occupationf <- factor(dat$occupation, labels=c("Management", "Sales", "Clerical", "Service", "Professional", "Other")) 
 dat$marrf <- factor(dat$marr, levels=c("Unmarried","Married"))
\end{Sinput}
\end{Schunk}
