Discussion :

[PAULOM]

Bonjour à tous,

Désolé de revenir là-dessus, mais je souhaiterai savoir si il exsite sans faire de macro une fonction ou une option permettant de faire un nombre aléatoire sur une table.

En fait j'ai une table (work.table1) qui fait 50 000 observations et je souhaiterai créer une autre table (work.table2) afin de prendre 1000 observations aléatoirement.

J'ai vu avec l'option Ranuni mais je pense que je m'égard!

Merci à vous.

[green_fr]

Voici un exemple d'une telle sélection : http://www.developpez.net/forums/d55...s/#post3307213

[alexd]

bonjour,

Si tu veux quelque chose de vraiment aléatoire voici, SOURCE : http://www.sas.com/offices/europe/fr...tat.html#stat4

Comment réaliser un tirage aléatoire sans remise ?

Grâce à la macro-procédure tasr:

Ses paramètres :
entree : table à fournir en entrée
sortie : table créée en sortie
nb : nombre d'observations à tirer au sort

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
%macro tasr(libref=,entree=,sortie=,nb=);
data &libref..&sortie (drop=i j count);
  count=0;
  array obsnum(&nb) _temporary_;
  do i=1 to &nb;
      redo:
      select=ceil(ranuni(12345)*n);
      set &libref..&entree point=select nobs=n;
         do j=1 to count; 
           if obsnum(j)=select then goto redo;
         end; 
      position=select;
      count=count+1;
      obsnum(count)=select; 
      output;
   end; 
   stop; 
   set &libref..&entree;
run;
 
%mend;
 
Exemple : 
Tirage au sort de 300 observations dans une table de 500 observations 
 
data donnees (drop=var);
   do var=1 to 500;
     x=round(ranuni(1251)*100);
     output;
   end;
run; 
 
%tasr(libref=work,entree=donnees,sortie=donnees2,nb=300);

[olivier.decourt]

Dans SAS/STAT, il y a aussi la procédure SURVEYSELECT : simple, rapide, capable d'échantillonnages stratifiés, de tirer plusieurs échantillons, avec ou sans remise...

Olivier

[green_fr]

Aïe ! En lisant les réponses des autres j'ai compris que je me suis trompé en citant l'exemple de SAS PROG III. Voici le bon (qui est également très beau ! ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
data RESULTAT (drop = ObsLeft SampSize);
  ObsLeft = TotObs;
  do while (SampSize > 0 and ObsLeft > 0);
    PickIt + 1;
    if ranuni(0) < SampSize / ObsLeft then do;
      set SOURCE point = PickIt nobs = TotObs;
      output;
      SampSize = SampSize - 1;
    end;
    ObsLeft = ObsLeft - 1;
  end;
  stop;
run;