# [R] Need a more efficient way to implement this type of logic in R

From: Walter Anderson <wandrson01_at_gmail.com>
Date: Wed, 06 Apr 2011 15:02:29 -0500

hh.sub <- households[c("HOUSEID","HHFAMINC")] for (indx in 1:length(hh.sub\$HOUSEID)) {

hh.sub\$CS_FAMINC[indx] <- 1 # Less than \$25,000    if ((hh.sub\$HHFAMINC[indx] == '06') | (hh.sub\$HHFAMINC[indx] == '07')
| (hh.sub\$HHFAMINC[indx] == '08') | (hh.sub\$HHFAMINC[indx] == '09') |
(hh.sub\$HHFAMINC[indx] == '10'))

hh.sub\$CS_FAMINC[indx] <- 2 # \$25,000 to \$50,000    if ((hh.sub\$HHFAMINC[indx] == '11') | (hh.sub\$HHFAMINC[indx] == '12')
| (hh.sub\$HHFAMINC[indx] == '13') | (hh.sub\$HHFAMINC[indx] == '14') |
(hh.sub\$HHFAMINC[indx] == '15'))

hh.sub\$CS_FAMINC[indx] <- 3 # \$50,000 to \$75,000    if ((hh.sub\$HHFAMINC[indx] == '16') | (hh.sub\$HHFAMINC[indx] == '17'))      hh.sub\$CS_FAMINC[indx] <- 4 # \$75,000 to \$100,000    if ((hh.sub\$HHFAMINC[indx] == '18'))
hh.sub\$CS_FAMINC[indx] <- 5 # More than \$100,000
if ((hh.sub\$HHFAMINC[indx] == '-7') | (hh.sub\$HHFAMINC[indx] == '-8')
| (hh.sub\$HHFAMINC[indx] == '-9'))

hh.sub\$CS_FAMINC[indx] = 0
}

R-help_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. Received on Wed 06 Apr 2011 - 20:47:28 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Thu 07 Apr 2011 - 06:50:27 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.