動作環境
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>
>
どう使うかは未消化。