[R] uniq -c

[Alexy Khrabrov]

Is there an R analog of the Unix command uniq -c:

http://en.wikipedia.org/wiki/Uniq

Given an array x, uniq -c replaces each contiguous subsequence of  
identical numbers with a tuple (count, number).  E.g.

$ cat > usample
10
10
9
8
8
7
7
7
6
3
1
1
1
0
$ uniq -c usample
       2 10
       1 9
       2 8
       3 7
       1 6
       1 3
       3 1
       1 0

Cheers,
Alexy