動作環境

RStudio 0.99.903 on Windows 7 pro
R version 3.3.1

> rep
function (x, ...)  .Primitive("rep")

> sample
function (x, size, replace = FALSE, prob = NULL) 
{
    if (length(x) == 1L && is.numeric(x) && x >= 1) {
        if (missing(size)) 
            size <- x
        sample.int(x, size, replace, prob)
    }
    else {
        if (missing(size)) 
            size <- length(x)
        x[sample.int(length(x), size, replace, prob)]
    }
}
<bytecode: 0x0eead5c0>
<environment: namespace:base>
>

どう使うかは未消化。