#   ex5_prep.R
# prepares file for R
# first read in data file
ex5<-read.table('../data/ex5forR.txt',header=T)
#
# now make some groups into factors
#
ex5$empl <-factor(ex5$empl,labels=c(
       'in paid work or self employed - full time',  
       'in paid work or self employed - part time' , 
       'unemployed'  ,
       'intending to look for work but prevented by temp sickness',  
       'permanently sick or disabled and not able to work', 
       'looking after the home or family full time',  
       'in full time education',  
       'doing something else',  
       'caring' ))
ex5$living<-factor(ex5$living,labels=c('single','sing parent','couple','couple w kids' ,'other'))
ex5$q85a<-factor(ex5$q85a,labels=c('never used'  ,
      'tried once or twice'  ,'use daily'  , 'use weekly'  ,
       'used in last month'  , 'used more than a month ago'))
#
#
ex5$q85b<-factor(ex5$q85b,labels=c('never used'  ,
      'tried once or twice'  ,'use daily'  , 'use weekly'  ,
       'used in last month'  , 'used more than a month ago'))
ex5$qual<-factor(ex5$qual,labels=c("none","higher degree in addition to first degree",  
      "first degree" , "A-levels" , "O-level", "GNVQ/GSVQ", "Other" ))
ex5$genhelf<-factor(ex5$genhelf,labels=c( "excellent","very good","good","fair","poor"))
#
# get names to upper case
#
names(ex5)<-c("AGE", "WEIGHT", "EMPL", "QUAL","GENHELF", "Q85A", "Q85B", "SACC", "SINC", 
"GWEIGHT", "LIVING")