How about cut
:
binned.x=cut(x, breaks=c(-1:9,Inf), labels=c(as.character(0:9),'10+'))
Which yields:
[1] 0 1 3 4 2 4 2 5 10+ 10+ 10+ 2 10+ 2 10+ 3 4 2
Levels: 0 1 2 3 4 5 6 7 8 9 10+
unutbu
2010-03-24 02:14:33