Anyone got a neat way to chop a vector up into smaller subvectors?
This is what I have now, which seems inelegant:
chop <- function(v, counts) {
stopifnot(sum(counts)==length(v))
end <- cumsum(counts)
beg <- c(1, 1+end[-length(end)])
begend <- cbind(beg, end)
apply(begend, 1, function(x) v[x[1]:x[2]])
}
> chop(9:1, c(3,2,4))
[[1]]
[1] 9 8 7
[[2]]
[1] 6 5
[[3]]
[1] 4 3 2 1
______________________________________________
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.
