17 Mai
2013
17 Mai
'13
12:15
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)