title: R Aggregate with rle function
body: <p>struggling with this one :<br>
  Sample data :  </p>
  
  <pre><code>    foo &lt;- structure(c("1", "1", "1", "1", "1", "1", "2", "2", "2", "2",
  "2", "2", "2", "2", "2", "C", "C", "C", NA, NA, NA, NA, "C",
  NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "C",
  "C", NA, NA, NA, NA, NA, "C", "C", "C", "C", "C", "C", "C", "C",
  "C", "C", "C", NA, NA, NA, NA, "C", "C", "C", "C", "C", "C",
  "C", "C", NA, NA, NA, NA, NA, NA, NA, NA, "C", "C", "C", NA,
  NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "C", "C", "C", NA, NA,
  NA, NA, NA, "C", "C", NA, NA, NA, NA, NA, "C", "C", "C", NA,
  NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "C", "C", NA, NA,
  NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "C", "C", "C", "C",
  "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C",
  "C", NA, NA, "C", "C", "C", "C", "C", NA, "C", "C", "C", "C",
  "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C",
  "C", "C", NA, NA, "C", "C", NA, NA, NA, NA, NA, NA, NA, NA, NA,
  NA, NA), .Dim = c(15L, 13L), .Dimnames = list(NULL, c("weeks",
  "vv", "rv", "ja", "aa", "bv", "aj", "vb", "rj", "rr", "vr", "bb",
  "jr")))
  </code></pre>
  
  <p>How to group theses datas by weeks and apply rle function ? Expected output would be :  </p>
  
  <pre><code>out &lt;- structure(c("weeks", "1", "2", "vv", "1", "1", "rv", "0", "1",
  "ja", "1", "1", "aa", "1", "1", "bv", "1", "0", "aj", "1", "1",
  "vb", "1", "0", "rj", "1", "0", "rr", "1", "1", "vr", "2", "2",
  "bb", "1", "1", "jr", "1", "0"), .Dim = c(3L, 13L), .Dimnames = list(
      NULL, NULL))
  </code></pre>
  
  <p>Tried so far :</p>
  
  <pre><code>test &lt;- aggregate(foo, by=data.frame(foo[,1]), function(x,na.rm=T) rle(as.numeric(x))$values)
  </code></pre>
  
  <p>Gives me a list (as expected with rle) which I could then compute and try to get the expected output. But I'm sure there is a cleaner way to accomplish that... Any ideas ?</p>
  
  <p>Thanks for looking !</p>