## This code was generated by a tool on Tuesday, July 13, 2010 at 3:49:14 PM. ## Colectica 3.0.1472 Release ## ## Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. ## TODO Update this line as necessary mydata <- read.csv("record1", header=TRUE) ## Note: these labels require the Hmisc package. ## Note: this can be done by running: ## install.packages("Hmisc") if (require(Hmisc)) { label(mydata$ID) <- "Identifier" label(mydata$STAT) <- "State of residence of recipient" label(mydata$YOB) <- "Year of birth of recipient" label(mydata$SEX) <- "Sex of recipient" label(mydata$DIAG) <- "Primary diagnosis of recipient" label(mydata$DTEL) <- "Date of eligibility" label(mydata$PREL) <- "Program eligibility" label(mydata$HOUS) <- "Household composition" label(mydata$LIVA) <- "Living arrangement code" label(mydata$FPMT) <- "Federal money amount paid" label(mydata$FCNT) <- "Federal countable income" label(mydata$SSIN) <- "Social Security income" label(mydata$UEIN) <- "Unearned income other than Social Security income" label(mydata$ERIN) <- "Earned income" } mydata$STAT <- factor(mydata$STAT, levels = c("AL","AK","AZ","AR","CA","CO","CT","DE","DC","FL","GA","HI","ID","IL","IN","IA","KS","KY","LA","ME","MD","MA","MI","MN","MS","MO","MT","NE","NV","NH","NJ","NM","NY","NC","ND","OH","OK","OR","PA","RI","SC","SD","TN","TX","UT","VT","VA","WA","WV","WI","WY"), labels = c("Alabama","Alaska","Arizona","Arkansas","California","Colorado","Connecticut","Delaware","District of Columbia","Florida","Georgia","Hawaii","Idaho","Illinois","Indiana","Iowa","Kansas","Kentucky","Louisiana","Maine","Maryland","Massachusetts","Michigan","Minnesota","Mississippi","Missouri","Montana","Nebraska","Nevada","New Hampshire","New Jersey","New Mexico","New York","North Carolina","North Dakota","Ohio","Oklahoma","Oregon","Pennsylvania","Rhode Island","South Carolina","South Dakota","Tennessee","Texas","Utah","Vermont","Virginia","Washington","West Virginia","Wisconsin","Wyoming")) mydata$SEX <- factor(mydata$SEX, levels = c("M","F","U"), labels = c("Male","Female","Unspecified")) mydata$DIAG <- factor(mydata$DIAG, levels = c(0,1,2,3), labels = c("Diagnosis unspecified/aged","Mental retardation","Mental disorders, other than retardation","Physical diseases or disorders")) mydata$PREL <- factor(mydata$PREL, levels = c(0,1,2,3,4,5), labels = c("Unspecified","Aged individual","Aged spouse","Disabled or blind individual","Disabled or blind spouse","Disabled or blind child")) mydata$HOUS <- factor(mydata$HOUS, levels = c(0,1,2,3,4,5,6), labels = c("Unspecified","Aged individual living alone","Aged individual living with spouse","Disabled or blind individual living alone","Disabled or blind individual living with spouse","Disabled or blind child not living with parents","Disabled or blind child living with one or more parent")) mydata$LIVA <- factor(mydata$LIVA, levels = c(0,1,2,3,4), labels = c("Unspecified (no longer in current payment status and has no FBR; indicates a back payment)","Living in own household ($531 for an individual and $796 for an eligible couple)","Living in another's household ($354 for an individual and $530.67 for an eligible couple)","Living in parent's household and child under 18 ($531)","Living in Medicaid institution ($30 for an individual and $60 for an eligible couple)"))