[Macro] Prendre un nombre aléatoire sur une Table.

Version imprimable

13/08/2008, 15h48
PAULOM

[Macro] Prendre un nombre aléatoire sur une Table.

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.
13/08/2008, 17h03
green_fr

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

bonjour,

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

Citation:

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:

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);

14/08/2008, 12h46
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

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:

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;