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))

Try the R.utils package in your browser

Any scripts or data that you put into this service are public.

R.utils documentation built on Nov. 18, 2023, 1:09 a.m.