Hi Praveen,
Try this:
dat <- read.table(text="INCOME
20100
26800
5
18",sep="",header=TRUE)
transform(dat,
INCOME_RANGE=as.character(cut(INCOME,breaks=c(0,25,50,100,150,180,Inf)*1e3,right=FALSE,labels=c("below
25,000", "25,000-49,999.99", "50,000-99,999.99", "1,00,000-1,49,999.99",
"
Hi,
May be you can try ?cut
dat <- read.table(text="INCOME
20100
26800
55050
82000",sep="",header=TRUE)
dat <- transform(dat, INCOME_RANGE=as.character(cut(INCOME,breaks=seq(0,1e5,
by=25e3),labels=c("below 25000", "25000-4", "5-74999","75000-9"
dat
# INCOME INCOME_RANGE
#1
2 matches
Mail list logo