/**********************************************************************/
/* Test 1: I/O Rate and Disk Usage (FREQ.SAS) */
/********************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: FREQ */
/* TITLE: FREQUENCY AND CROSS TABULATIONS */
/* PRODUCT: SAS */
/* SYSTEM: ALL */
/* KEYS: DSTAT TABS CAT */
/* PROCS: FREQ PRINT */
/* DATA: */
/* */
/* SUPPORT: WMS UPDATE: */
/* REF: */
/* MISC: */
/* */
/*********************************************************/
options fullstimer source source2 mprint notes;
title '----------FREQ SAMPLE RUN----------';
data a;
length default=4;
do n=1 to 1000;
y=int(uniform(77777)*5);
x=int(uniform(77777)*7);
w=uniform(77777)*10;
z=int(uniform(77777)*24);
c=' ';
if w>2 then c='A';
if w>7 then c='B';
output;
end;
run;
proc freq;
tables (y c) * (x z) w;
tables x*z / norow nocol nopercent;
format w 4.1;
run;
proc freq;
tables x*y /noprint out=b;
run;
proc print;
run;
proc freq data=a;
tables x*y/all;
run;
/**********************************************************************/
/* Test 2: Memory Utilization (SORT.SAS) */
options fullstimer source source2 mprint notes;
data a;
length default=4;
do n=1 to 1000;
y=int(uniform(77777)*5);
x=int(uniform(77777)*7);
w=uniform(77777)*10;
z=int(uniform(77777)*24);
c=' ';
if w>2 then c='A';
if w>7 then c='B';
output;
end;
run;
proc sort data=a;
by x;
run;
proc means data=a;
run;
/**********************************************************************/
/* Test 3: CPU and Numerical Processing Speed */
/**********************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: MIXEX6 */
/* TITLE: Documentation Example 6 from PROC MIXED */
/* PRODUCT: STAT */
/* SYSTEM: ALL */
/* KEYS: MIXED */
/* PROCS: MIXED */
/* DATA: */
/* */
/* SUPPORT: NMM UPDATE: */
/* REF: */
/* MISC: This job may require considerable CPU time. */
/* */
/**********************************************************/
options fullstimer source source2 mprint notes;
*----------Line-Source Sprinkler Irrigation---------*
| Data represent an example where both G and R can |
| be modelled. The data appear in Hanks et al. |
| (1980), Johnson et al. (1983), and Stroup (1989). |
*---------------------------------------------------*;
data line;
length cult$ 8;
input blk cult$ @;
do sbplt=1 to 12;
if sbplt le 6 then
do;
irrig=sbplt;
dir='North';
end;
else do;
if sbplt=7 then irrig=6;
if sbplt=8 then irrig=5;
if sbplt=9 then irrig=4;
if sbplt=10 then irrig=3;
if sbplt=11 then irrig=2;
if sbplt=12 then irrig=1;
dir='South';
end;
input y @; output;
end;
cards;
1 Luke 2.4 2.7 5.6 7.5 7.9 7.1 6.1 7.3 7.4 6.7 3.8 1.8
1 Nugaines 2.2 2.5 4.3 6.3 7.9 7.1 6.2 5.3 5.3 5.2 5.4 2.9
1 Bridger 2.9 3.2 5.1 6.9 6.1 7.5 5.6 6.5 6.6 5.3 4.1 3.1
2 Nugaines 2.4 2.5 4.0 5.8 6.1 6.2 7.0 6.4 6.7 6.4 3.7 2.2
2 Bridger 2.6 3.1 5.7 6.4 7.7 6.8 6.3 6.2 6.6 6.5 4.2 2.7
2 Luke 2.2 2.7 4.3 6.9 6.8 8.0 6.5 7.3 5.9 6.6 3.0 2.0
3 Nugaines 1.8 1.9 3.7 4.9 5.4 5.1 5.7 5.0 5.6 5.1 4.2 2.5
3 Luke 2.1 2.3 3.7 5.8 6.3 6.3 6.5 5.7 5.8 4.5 2.7 2.3
3 Bridger 2.7 2.8 4.0 5.0 5.2 5.2 5.9 6.1 6.0 4.3 3.1 3.1
;
/* WARNING: This job may require considerable CPU time */
proc mixed;
class blk cult dir irrig;
model y=cult|dir|irrig@2;
random blk blk*dir blk*irrig;
repeated / type=toep(4) sub=blk(cult) r;
lsmeans cult|irrig;
estimate 'c1 vs c2' cult 1 -1 0;
estimate 'linear irrig' irrig -5 -3 -1 1 3 5;
estimate 'c1 vs c2 x linear irrig' cult*irrig
-5 -3 -1 1 3 5 5 3 1 -1 -3 -5;
run;
/**********************************************************************/
/* Test 4: Graphics Processing Speed (HAT.SAS) */
options fullstimer source source2 mprint notes;
goptions noprompt
ftext=zapfb
ctext=white
lfactor=2
cback=black
htext=1.5;
data work.cowboy;
do xaxis= -5 to 5 by .2;
do yaxis= -5 to 5 by .2;
zaxis=sin(sqrt(xaxis*xaxis+yaxis*yaxis));
output;
end;
end;
proc g3d;
plot yaxis*xaxis=zaxis/
caxis=white
tilt=0 to 90 by 15
rotate=0 to 90 by 15
nolabel
noaxis
ctext=white;
run;
endsas;
/**********************************************************************/
/* Test 5: System Load Testing via Batch Submission */
% sas freq.sas &; sas sort.sas &; sas glm.sas &;
sas hat.sas &
/**********************************************************************/