##############################################
#
# exp4_prep.R  GRaab  November 04
#  
#  This file in d:/aprojects/peas/web/exemp4/pre-processing
#
#  Assume that R is first started from this directory and
#  this file sourced into R
#
#  data stored in d:/aprojects/peas/web/exemp4/data/ex4.Rdata
# 
#  system must download and install the foreign library
#
##############################################
library(foreign)
#
wers<-read.xport("ex4.xpt")
#
# set up missings for policy variable
#
wers$DISABGRP<-factor(wers$DISABGRP,labels=c('none','under 3%','3%+'))
save.image("ex4.RData")
wers$NEMPSIZE<-factor(wers$NEMPSIZE,labels=c('10-24','25-49','50-99','100-199',
'200-499','500+'))
save.image("ex4.RData")