[R-br] Sortear números....

[Elias Teixeira Krainski]

repassando argumentos para sample():

f <- function(x, ...) 
cbind(x=x,i=c(2:length(x),1))[sample(1:length(x), ...),]

f(11:15, size=10, replace=TRUE)