Hello,
>
> I have a vector wherein the cases are either uniform or mixed-strings (so
> "AAAAAAAAAAA" vs "ABABABABA"). Different parts > of
the vector apply to
> different users, so [1:29] is one guy, [30:50] is another, and [51:70] is
> another. There are about
> 100,000 users, and I have an object that lists where each user's range
> begins (ie (1,30,51,etc).
>
> My question is, how do I count the non-uniform cases in each range, and
> give the count for each range its own
> value in a new object?
>
Try this:
fun <- function(x, g, pattern="AB"){
segm <- c(g - 1, length(x))[-1]
sapply(seq_along(g), function(i) sum(grepl(pattern, x[g[i]:segm[i]])))
}
x <- c("AAAAAAAAA", "AAAAAAAAA", "ABABABABA",
"AAAAAAAAA", "AAAAAAAAA",
"ABABABABA")
guys <- c(1, 3, 6)
counts <- fun(x, guys)
counts
[1] 0 1 1
Hope this helps,
Rui Barradas
--
View this message in context:
http://r.789695.n4.nabble.com/Counting-cases-within-present-ranges-tp4607293p4607427.html
Sent from the R help mailing list archive at Nabble.com.
