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