f <- function(x) cbind(x=x,i=c(2:length(x),1))[sample(1:length(x),1),] set.seed(12345) f(1:5) f(1:5)
_______________________________________________ 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.
