R/resample.R

resample <-
function (x, size, ...) 
if (length(x) <= 1) {
    if (!missing(size) && size == 0) 
        x[FALSE]
    else x
} else sample(x, size, ...)
asgr/Tiler documentation built on Oct. 25, 2020, 5:39 a.m.