Skip to content
Permalink
master
Go to file
 
 
Cannot retrieve contributors at this time
11 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)
You can’t perform that action at this time.