OPTIONS LS=64 PS=66 NONUMBER NODATE;

DATA in; INPUT x1-x4 @@;
     mn = MIN(OF x1-x4);
     mx = MAX(x1,x2,x3,x4);
     rn = RANGE(OF x1-x4);
     xbar = MEAN(x1,x4);
     sd = STD(OF x1-x4);
CARDS;
  2 3 2 4.56   3 4 4 4.52
  6 3 1 7.55   4 4 4 2.67
  5 1 9 3.22   9 9 1 6.65
;
PROC PRINT DATA=in;
TITLE 'EXAMPLES OF FUNCTIONS';
TITLE2 'WITH SEVERAL ARGUMENTS';
RUN;


DATA in; SET in;
     f1 = SQRT(x1);
     f2 = LOG(x2);
     f3 = EXP(x3);
     f4 = ROUND(x4,.1);
KEEP x1-x4 f1-f4;

PROC PRINT DATA=in;
     ID x1-x4; VAR f1-f4;
TITLE 'EXAMPLES OF FUNCTIONS';
TITLE2 'WITH ONE ARGUMENT';
RUN;


*** GENERATE 10 RANDOM DEVIATES ***;
***  FROM SEVERAL DISTRIBUTIONS ***;

DATA randev;
 DO i = 1 TO 10;
   x1 = RANNOR(52498);         *** N(0,1)     ***;
   x2 = 50 + 2*RANNOR(1158);   *** N(50,4)    ***;
   x3 = RANPOI(25825,2.1)  ;   *** POI(2.1)   ***;
   x4 = RANEXP(524)/4.8;       *** EXP(4.8)   ***;
   x5 = RANUNI(245285248);     *** UNIF(0,1)  ***;
   x6 = 4*(RANUNI(5124)-.5);   *** UNIF(-2,2) ***;
   OUTPUT;
 END;

PROC PRINT DATA=randev;
TITLE 'RANDOM DEVIATES FROM SEVERAL DISTRIBUTIONS';
RUN;