search for: hometype

Displaying 1 result from an estimated 1 matches for "hometype".

Did you mean: sometype
2012 Mar 06
1
How to eliminate for next loops in this script
...y working, but inefficient script: library(Hmisc) rm(list=ls()) load('NHTS.Rdata') day.wt <- day[c("HOUSEID","WTTRDFIN", "TRIPPURP","TRVLCMIN")] hh.wt <- hh[c("HOUSEID","WTHHFIN","HHSIZE","HHVEHCNT","HOMETYPE")] hh.wt$HHBIN <- with(hh.wt,{ cut(HHSIZE, breaks=c(0,1,2,3,4,max(HHSIZE)),labels=c("1","2","3","4","5+"),ordered_result=TRUE)}) hh.wt$VEHBIN <- with(hh.wt,{ cut(HHVEHCNT, breaks=c(-1,0,1,2,max(HHVEHCNT)),labels=c("0","1&qu...