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

[Elias Krainski]

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

exemplo:
    f(1:5, k=3, size=1)