Content - 602bd4718b5d15555208e243a5489c081e74e76d - cb464c6/center.R

center.R

center = function (ab, k) 
{
    h <- diff(ab)/k
    list(seq(ab[1] + h/2, by = h, length = k))
}