La fonction sample

Version imprimable

La fonction sample

Bonjour,

Pourriez-vous me dire, comment utiliser la fonction 'sample' s'il vous plaît.
Lorsque j'exécute certaines instructions, j'obtient l'erreur suivante:
Code:

1 2 3 4 5 6 7 > require(rpart) Le chargement a nécessité le package : rpart > data(iris) > data<-iris[51:150,] #récupérer une partie des données > idx<-sample(1:100,40,replace=F) #récupérer 1 échantillon de taille 40 Erreur dans sample(1:100, 40, replace = F) : argument(s) inutilisé(s) (replace = F)
Merci d'avance de votre aide! :)

Bonjour,

Code:

?sample

Si vous n’êtes pas très faché avec l'anglais :), la fonction sample permet de faire de l’échantillonnage (ou tirage).
Code:

1 2 sample(x, size, replace = FALSE, prob = NULL) x: le vecteur contenant les valeurs à tirer, size: le taille de l'echantillon, replace: permet de faire un tirage avec remise (si TRUE) ou sans remise (FALSE qui est l'option par défaut.)
Dans ton cas, tu tires sans remise un échantillon de taille 40 parmi les entiers de 1 à 100.

Code:

idx <- sample(1:100, 40)

BC

Bonjour, :)

Merci de votre réponse.

Mais j'ai bien essayé en consultant help(sample).
J'ai aussi essayé: require(Rlab) ou encore require(sampling) pour voir si ça marcherait.

Mais il y a toujours l'erreur suivante:
Code:

1 2 3 4 5 6 > idx <- sample(1:100, 40) Erreur dans sample(1:100, 40) : impossible de trouver la fonction "rbern" >idx<-sample(1:100,40,replace=F) Erreur dans sample(1:100, 40, replace = F) : argument(s) inutilisé(s) (replace = F)
Merci d'avance!

26/05/2013, 19h17
arm3366

C'est étrange. Normalement c'est une fonction qui ne nécessite aucun package supplémentaire (car inclus dans le package base qui est automatiquement chargé par R).
Essayez ceci

Code:

sample(100, 40)

BC
27/05/2013, 09h47
ced

Bonjour,

Pouvez-vous nous donner ce que renvoie la commande :

Code:

sessionInfo()

Bonjour Cédric,

La commande sessionInfo() me renvoie ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
> sessionInfo()
R version 3.0.1 (2013-05-16)
Platform: x86_64-w64-mingw32/x64 (64-bit)
 
locale:
[1] LC_COLLATE=French_France.1252  LC_CTYPE=French_France.1252   
[3] LC_MONETARY=French_France.1252 LC_NUMERIC=C                  
[5] LC_TIME=French_France.1252    
 
attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     
 
other attached packages:
[1] Rlab_2.15.1
 
loaded via a namespace (and not attached):
[1] tools_3.0.1

Mais aussi, quand j’écris "sample" tout court, cela me donne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
> sample
function(n,p,µ){
 Y<-rbern(n,p)
 if (Y==1){
   X1<-rnorm(n,µ[1],1)
   X2<-rnorm(n,µ[3],sqrt(2))}
 
 else{
   X1<-rnorm(n,µ[2],1)
   X2<-rnorm(n,µ[4],1)}
 
 M<-cbind(X1,X2,Y)
 return (M)
}

Je vous remercie d'avance!

27/05/2013, 11h32
ced

C'est donc que vous avez dans votre session une fonction que vous avez définie et qui s'appelle sample(), et qui masque la fonction sample du package de base. C'est un conflit de noms...
Pour le vérifier : faites un ls.str().
Ca devrait renvoyer :

Code:

sample : function (n, p, µ)

Du coup, pour "forcer" l'utilisation de la fonction sample du package de base, il suffit de faire :

Code:

idx <- base::sample(1:100,40,replace=F)
27/05/2013, 11h48
Indunil

Merci bien pour votre aide! ça marche maintenant.