tests/resample.R

library("R.utils")

x <- 1:5
y <- resample(x)
print(y)
stopifnot(length(y) == length(x))

x <- 5
y <- resample(x)
print(y)
stopifnot(length(y) == length(x))
HenrikBengtsson/R.utils documentation built on March 7, 2024, 9:37 a.m.