Transformation en boucle

[Eric Vitalo]

Bonjour,

De quelle manière pourrais-je transformer le code ci-dessous en une boucle par exemple pour 1000 itérations ?

Code : Tout sélectionner

x <- c(1.1,2.1,3.1,4.1,5.1,6.1,7.1,8.1,1.2,2.2,3.2,4.2,5.2,6.2,7.2,8.2,1.3,2.3,3.3,4.3,5.3,6.3,7.3,8.3)

tab_list_1 <- list(sample(x,8))
tabdir_1<-do.call(rbind,tab_list_1)

tab_list_2 <- list(sample(x,8))
tabdir_2<-do.call(rbind,tab_list_2)

tab_list_... <- list(sample(x,8))
tabdir_...<-do.call(rbind,tab_list_...)

df <- rbind(tabdir_1,tabdir_2,tabdir_...)

Merci d'avance !

[Pierre-Yves Berrard]

Bonjour,

Pas besoin d'une boucle ici :

Code : Tout sélectionner

replicate(1000, sample(x, 8))

Restera juste à transposer le résultat avec la fonction t().

[Mickael Canouil]

Bonjour,

petite note, "do.call(rbind, ...)" n'est pas l'outils le plus adapté et le plus explicite si vous voulez transformer un vecteur en matrice dans votre exemple.

Code : Tout sélectionner

matrix(sample(x, 8), nrow = 1)
# or
t(sample(x, 8)) # moins explicite et moins performane que celle ci-dessus  

Il y a une différence de performance en faveur de la commande "matrix" ci-dessus, même pour ce cas très simple elle est minime.

Pour compléter la réponse de Pierre-Yves, il y a une seconde approche très comparable en terme de performance ici, mais selon la complexité de l'élément répété, l'une ou l'autre sera à privilégier.

Code : Tout sélectionner

t(replicate(1000, sample(x, 8)))
# or
do.call("rbind", replicate(1000, sample(x, 8), simplify = FALSE)) 

Cordialement,