Números aleatorios en SAS

/*Generando números aleatorios

  El siguiente programa produce 125 series de números aleatorios*/

data randnum;

  seed=date();

  do i=1 to 125;                

  x1=int(ranuni(seed)*123456); *Precaución! La 'seed' o 'semilla' genera idénticos números aleatorios cada ves que se ejecute el mismo programa. Cambiar los números si se desea otras combinaciones;

  x =put(x1, z5.);             *El 5 después de la "z" genera series de 5 números aleatorios;

  output;

  end;

  drop seed x1;

run;

proc print data=randnum;

id i;

run;