tous les échantillons possibles

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

florent duyme
Messages : 43
Enregistré le : 17 Nov 2008, 16:01

tous les échantillons possibles

Messagepar florent duyme » 21 Nov 2008, 16:49

bonjour
je souhaite prendre tous les échantillons possibles de taille n parmi une population de taille N
existe-t-il une fonction permettant cela ? ou bien y-at-il + élégant que mon script ?
merci

voilà ce que j'ai fait pour y parvenir (ici n=4, N=8):

Code : Tout sélectionner

library(gtools)
x<-c("a","b","c","d","e","f","g","h")
N<-length(x)
comb<-as.array(combinations(N,4,1:N))
lig<-dim(comb)[1]
Col<-dim(comb)[2]
samp<-matrix(NA,nrow=lig,ncol=Col)
for (i in 1:lig) {
   for (j in 1:Col) {
      samp[i,j]<-x[comb[i,j]]
    }
}
samp

Baptiste LAPORTE
Messages : 17
Enregistré le : 11 Avr 2008, 09:52

Messagepar Baptiste LAPORTE » 21 Nov 2008, 17:45

combn(x=x,m=4) devrait suffire.
Les résultats sont renvoyés dans une matrice.

jean lobry
Messages : 733
Enregistré le : 17 Jan 2008, 20:00
Contact :

Messagepar jean lobry » 21 Nov 2008, 17:47

Bonjour,

à vérifier, mais je pense que tu as directement le même résultat avec :

Code : Tout sélectionner

library(gtools)
n <- 4
N <- 8
x <- letters[1:N]
samp <- combinations(N, n, x)

Amicalement,

Jean

florent duyme
Messages : 43
Enregistré le : 17 Nov 2008, 16:01

Messagepar florent duyme » 24 Nov 2008, 08:34

merci beaucoup
je crois que je me suis compliqué un peu la vie...


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Eric Wajnberg et 1 invité