str(Income)
attach(Income)
CATS <-factor(cut(income,breaks=c(0.5,1.0,1.5,2,max(income)) ))
table(CATS)
table(CATS)/length(income)
barplot(table(CATS),col="lightblue",main="Problem 1.33")
detach(Income)
remove(CATS)
Run the code above in your browser using DataLab