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) _______________________________________________ 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.
