Sortear números....
17 Mai
17 Mai
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)
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)
18:07
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)
4474
Idade (dias atrás)
4474
Última atividade (dias atrás)
4 comentários
3 participantes
participantes (3)
-
andrebvs＠bol.com.br -
Elias Krainski -
Elias Teixeira Krainski