Gabor Grothendieck wrote:
> Try this:
>
>
>> vec <- c("aaaa", "baaa", "bbaa", "bbba", "baamm", "aa")
>>
>
>
>> grep("^(?!(.)\\1{1,}$).*(.)\\2{1,}$", vec, perl = TRUE)
>>
or even
grep("^(?!(.)\\1+$).*(.)\\2+$", vec, perl = TRUE)
vQ
______________________________________________
R-help@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.
