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) _______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
