> r<-c(1,1,9,1,1,1)
> col_no<-cut(r,c(0,2,3,6,8,10,100))
> levels(col_no)<-c("<2%","2-4%","4-6%","6-8%","8-10%",">10%")
> col_no
[1] <2%   <2%   8-10% <2%   <2%   <2%
Levels: <2% 2-4% 4-6% 6-8% 8-10% >10%

	[[alternative HTML version deleted]]

