R help - Nov 2007 - uniq -c

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

On Wed, 2007-11-21 at 15:27 +0300, Alexy Khrabrov wrote:
> 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
Alexy,

See ?rle
> Vec
 [1] 10 10  9  8  8  7  7  7  6  3  1  1  1  0
> rle(Vec)
Run Length Encoding
  lengths: int [1:8] 2 1 2 3 1 1 3 1
  values : num [1:8] 10 9 8 7 6 3 1 0

HTH,

Marc Schwartz

See ?table function.

On 21/11/2007, Alexy Khrabrov <deliverable at gmail.com>
wrote:
> 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
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

-- 
Henrique Dallazuanna
Curitiba-Paran?-Brasil
25? 25' 40" S 49? 16' 22" O