Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (7 sloc) 201 Bytes
source("_common.R")
sameCount.groups <- function (n, k) {
breaks = cumsum(ceiling(rep(n/k, k)))
findInterval(1:n, breaks) + 1
}
groups = sameCount.groups(58, 10)
report(tracks$seconds, groups)