R/vsample.R

Defines functions vsample

vsample <-
function(x, size, replace = FALSE, ...) {
	if(length(x) == 1L) {
		if(replace && !missing(size)) rep(x, length.out = size) else x
	} else sample(x, size = size, replace = replace, ...)
}

Try the ibmpm package in your browser

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

ibmpm documentation built on May 2, 2019, 5:45 p.m.