You want this ?
data have;
input Obs Bimodal_Var;
cards;
1 11.18227
2 8.349733
3 14.40938
4 24.66227
5 9.279151
6 7.238792
7 15.46339
8 22.47347
9 15.132
10 21.10275
11 8.501284
12 15.77826
13 16.20075
14 17.67517
15 7.934397
16 18.39657
17 11.40699
18 8.399611
19 8.490487
20 22.70707
21 11.09486
22 11.00888
23 22.85953
24 6.783415
25 11.31967
26 25.19409
27 12.12261
28 10.3787
29 22.13491
30 20.40574
31 9.802019
32 15.45317
33 17.87584
34 10.8164
35 10.8377
36 11.4462
37 6.82155
38 10.80242
39 19.35702
40 17.50303
41 16.63369
42 21.50525
43 23.79174
44 10.77436
45 9.775864
46 10.62838
47 9.338187
48 8.149213
49 17.10799
50 26.5875
;
/*Get N Mean Std */
proc summary data=have ;
var Bimodal_Var;
output out=mean_std_n n=n mean=mean std=std;
run;
data _null_;
set mean_std_n;
call symputx('mean',put(mean,8.2 -l));
call symputx('std' ,put(std,8.3 -l));
call symputx('n' ,n);
run;
%put &=mean &=std;
/*Get AD statistic and P-Value*/
ods select none;
ods output TestsForNormality= TestsForNormality;
proc univariate data=have normal ;
var Bimodal_Var;
run;
ods select all;
data _null_;
set TestsForNormality(where=(Test='Anderson-Darling'));
call symputx('AD',put(Stat,8.3 -l));
call symputx('pvalue',cats(pSign,vvalue(pValue)));
run;
%put &=ad &=pvalue;
/*Get the normal probability table*/
ods graphics /reset=index noborder;
ods listing gpath="%sysfunc(pathname(work))" style=htmlblue;; *Save this plot into a path;
ods select ProbabilityPlot;
proc reliability data=have ;
probplot Bimodal_Var/NOINSET;
run;
ods select all;
%sganno
data sganno;
%SGIMAGE(IMAGE="%sysfunc(pathname(work))\ProbabilityPlot1.png",ANCHOR="topleft",BORDER="FALSE",DRAWSPACE="LAYOUTPERCENT" ,x1=-1,y1=101)
%SGTEXT(LABEL="Mean", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=10,Y1=90)
%SGTEXT(LABEL="&Mean", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=20,Y1=90)
%SGTEXT(LABEL="StDev", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=10,Y1=85)
%SGTEXT(LABEL="&std", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=20,Y1=85)
%SGTEXT(LABEL="N", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=10,Y1=80)
%SGTEXT(LABEL="&n", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=20,Y1=80)
%SGTEXT(LABEL="AD", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=10,Y1=75)
%SGTEXT(LABEL="&ad", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=20,Y1=75)
%SGTEXT(LABEL="P-Value", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=10,Y1=70)
%SGTEXT(LABEL="&pvalue", BORDER= "FALSE",DRAWSPACE= "LAYOUTPERCENT" , LAYER= "FRONT",X1=20,Y1=70)
run;
ods graphics/reset noborder;
proc sgplot data=sashelp.class sganno=sganno;
scatter x=weight y=height;
run;
... View more