Documentation Example 7 for ODS
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: ODSEX7 */
/* TITLE: Documentation Example 7 for ODS */
/* PRODUCT: STAT */
/* SYSTEM: ALL */
/* KEYS: ODS */
/* PROCS: GLM, TEMPLATE, SGRENDER */
/* DATA: */
/* */
/* SUPPORT: saswfk UPDATE: July 25, 2011 */
/* REF: Using the Output Delivery System */
/* MISC: */
/****************************************************************/
title1 'Histamine Study';
data Histamine;
input Drug $12. Depleted $ hist0 hist1 hist3 hist5;
logHist0 = log(hist0); logHist1 = log(Hist1);
logHist3 = log(hist3); logHist5 = log(Hist5);
datalines;
Morphine N .04 .20 .10 .08
Morphine N .02 .06 .02 .02
Morphine N .07 1.40 .48 .24
Morphine N .17 .57 .35 .24
Morphine Y .10 .09 .13 .14
Morphine Y .07 .07 .06 .07
Morphine Y .05 .07 .06 .07
Trimethaphan N .03 .62 .31 .22
Trimethaphan N .03 1.05 .73 .60
Trimethaphan N .07 .83 1.07 .80
Trimethaphan N .09 3.13 2.06 1.23
Trimethaphan Y .10 .09 .09 .08
Trimethaphan Y .08 .09 .09 .10
Trimethaphan Y .13 .10 .12 .12
Trimethaphan Y .06 .05 .05 .05
;
*
ods graphics off;
ods trace output;
proc glm data=Histamine;
class Drug Depleted;
model LogHist0--LogHist5 = Drug Depleted Drug*Depleted / nouni;
repeated Time 4 (0 1 3 5) polynomial / summary printe;
run; quit;
ods select none;
proc glm data=Histamine;
class Drug Depleted;
model LogHist0--LogHist5 = Drug Depleted Drug*Depleted / nouni;
repeated Time 4 (0 1 3 5) polynomial / summary printe;
ods output MultStat = HistWithin
BetweenSubjects.ModelANOVA = HistBetween;
run; quit;
ods select all;
proc contents data=HistBetween varnum;
ods select position;
run;
proc contents data=HistWithin varnum;
ods select position;
run;
title2 'The Combined Data Set';
data temp1;
set HistBetween HistWithin;
run;
proc print label;
run;
data HistTests;
length Source $ 20;
set HistBetween(where =(Source ^= 'Error'))
HistWithin (rename=(Hypothesis = Source NumDF=DF)
where =(Statistic = 'Hotelling-Lawley Trace'));
run;
proc print label;
title2 'Listing of the Combined Data Set';
run;
title2 'Listing of the Selections, Using a Standard Template';
proc sgrender data=histtests template=Stat.GLM.Tests;
run;
title2 'Listing of the Selections, Using a Standard Template';
data _null_;
set histtests;
file print ods=(template='Stat.GLM.Tests');
put _ods_;
run;
proc template;
define table CombinedTests;
parent=Stat.GLM.Tests;
header '#Histamine Study##';
footer '#* - Test computed using Hotelling-Lawley trace';
column Source DF SS MS FValue ProbF Star;
define Source; width=20; end;
define DF; format=bestd3.; end;
define SS;
parent=Stat.GLM.SS
choose_format=max format_width=7;
translate _val_ = . into ' *';
end;
define MS;
parent=Stat.GLM.MS
choose_format=max format_width=7;
translate _val_ = . into ' *';
end;
define Star;
compute as ProbF;
translate _val_ <= 0.001 into 'xxx',
_val_ <= 0.01 into 'xx',
_val_ <= 0.05 into 'x',
_val_ > 0.05 into '';
pre_space=1 width=3 just=l;
end;
end;
run;
title2 'Listing of the Selections, Using a Customized Template';
proc sgrender data=HistTests template=CombinedTests;
run;
%macro hilight(c1,c2);
proc template;
define table CombinedTests;
parent=Stat.GLM.Tests;
header '#Histamine Study##';
footer '#* - Test computed using Hotelling-Lawley trace';
column Source DF SS MS FValue ProbF;
cellstyle probf <= 0.001 as {background=&c1},
probf <= 0.01 as {background=&c2};
define DF; format=bestd3.; end;
define SS;
parent=Stat.GLM.SS
choose_format=max format_width=7;
translate _val_ = . into ' *';
end;
define MS;
parent=Stat.GLM.MS
choose_format=max format_width=7;
translate _val_ = . into ' *';
end;
end;
run;
proc sgrender data=HistTests template=CombinedTests;
run;
%mend;
title2;
/*
ods _all_ close;
ods html style=HTMLBlue;
*/
%hilight(CX22FF22 fontweight=bold, CXFFFF22 fontweight=bold)
%hilight(CXAAFFFF fontweight=bold, CXFFFFDD fontweight=bold)
%hilight(CXEEFAFA, CXEEEEEE)
/*
ods html close;
ods listing;
*/
/*
data _null_;
do color = 0 to 255;
put color 3. +1 color hex2.;
end;
run;
*/