cϽ 1""332""3323#3SAS FILESASMACR CATALOG |A-|A9.0301M1X64_7PROLNbLNbLNb.|Y|A/|Y| #ө$-c%Ȟm2^*)c<#k|ZTEdJ59bcB;stoI{:#4Ӭ j! ;\9e,?bF+vg{?^ڒz4v8}ؽ\I&.R{Dl|0|qE&{xLga\1XuY#:2ye2W8l=Lo"x#AUx7{F[ApFbjh.?%#WgVюiO̯Q8\1Ob8IEZtrgq 08y>mg~eD u )w"`_ov1e/-ίuA;p! ilk>Npc#,nq]f$P6AB9yY4Y2v9bn&!jӡr棻XoN(|uX/11UĀ6x%LJU͋.xvzO oUOm;eB42): 2؇ iQ+Uh Kxkŕ62;-Pu\QUyu fR`=s<&E <3VAG\7-5c^{v2,*4^IMoªgQ;lF>L RUWRNU_M*_{x!((ڼ !p_pC70{`?-Zcmbv`B'@L^ ]b :Ea$i-h{)*u=H"txLE$jcq5 ^!0mT5.>vC,I| G+wFQ*n|`K3M d~2R y:XZ*^}t rR؆n:~wuyxΊrQYxK)KRx%"hof!Vf-R3_ ' d}/WLz{X5:b/1ûOIoI-A܊wOM:R2$RB WEYO lg=ѭlNF]hBE9}Z(VF J'kjhxN ]byl+q vl;- gc-yl [=4x N8zp^r%r7LQqb 8mF!G*ÔWet!## ^~q+.*} xl7]]2lb&:''T "|cI_n]V""*(#) 6nWa$LBJy'Ԇwzxe-H4ڬ^ 6m4GAL,{ ?`m[\b `Q0Em.) ;fhBt.HL8!*{%w"*㞛=T1;WKx/c.i:Vs,qqڣi&w#!oĹhDacWg$_Pobebdhu7 k>FaVڼXy]Jfrv?9L{~}sLZR]h 6VvtC|5bq2-#U sI|,xW-}a!85T*]I6\_f0g]6(VawTBIRTmua"2+[dj@`:sEL>Zv)!?2o;fZHV?i)RYX'0"_F1W#fF +WW̥@Txr)E_l"i ׳B}C8C1cgX%Eg%Z..˕6)5s1RZ tj R6"ASmW{c, K w] n혪Ye.X jʽ":Xsd7 ;"E`aMć-#{İ(nօL6yx|y8WobS Lc1;<]noAZ>1?2uSwd{l[Fgw~i2[Yb5\$p/ZBlC|`se8wcrOq>-)M7 UjП  aa (QSYSRESR PGBITMAP`MACRO MOSIER8,|YbXLCH(XLSR |AJ -|A  XLSRJ -|AJ -|A8  F MOSIER RELIABILITYXLSRJ -|AJ -|A5  F MOSIER RELIABILITYXLSRNb@ |ANb@ |A8)  F MOSIER RELIABILITY$8CwB,_^_=?p,ySQٜABSl(Dޕm04'*07Af3qv2fޥ,X~m,9 u L{$E. y][Uv|*&<* Fy#nΟrv LU ^mTe}pX(wwJ9 p@;7& Y ]Kb9D# U8$\3ytA;OvV6ryWl,tYw|Hi(RUMW(/fDbݿJy-  )L"/%BX:v$"T3%[&+=z6Qnl;_oO,6 ggS)6ho8mw)"W'l3-\0-'Zii }iEͻ*6V:8 !~mL<^LM;8)ȶ\$,P'56Ѐ 2Y#:wd* 1p*wu7 ZCfhf?]* _AI x|g\K X&oq.);{am?<\.H Łx|Hm-]U)4lHX 3ohbSl?Iΐ)ROE1%MCq S/=}!wY#8^ULJUl\0>j,w-P>X6]w`9+9Bzd( Es=$8K !:x5\.p`9 ~FtdyLcRFR!Y|wUXhXj>IK,vv$ iFm*VhuUJMe;&e#d<2D4 V<Mu 7Os)!)[b_hS먣}zqY) i7!AX!M([gKWKB~Vz ^ٲpPe?)5qmJC/x*D.,z=O)$W߷Lk<LJ}li4n)ϲ~"Z!ز+H#X@(=&&t{nczޖbw]8FP?XwvLDB,1[q35u޳r'J`62Fl6$ER&~&'^dv^3uKi9A$>qep.^PU^hIOCL)oMƃ["dw7`0 1 @1A1t^p\ 1!1 0rrXLSR -|Yڀj*|Y n "tMOSIERRM9.3 @ 7>g"&"&BB"&"0NSC"&"0INFILE"&"X"&" _"&"  ** delimiter used in names for corrs; %macro inf(); %do i = 1 %to ⊁ input / @; %do j = 1 %to &nsc ; input corr&i.&x.&j @ ; %end; %end; %mend; data _temp(drop=dash1 dash2 dash3); infile &infile recfm=v truncover; input scale $ 1-80 / "&" (sname1 - sname&nsc) ( / $ 1-8 ) @ ; input / dash1 $ 1-1 ; array wt (&nsc) wt1-wt⊁ array sd (&nsc) sd1-sd⊁ array rel (&nsc) rel1 - rel⊁ do n = 1 to ⊁ input @1 wt(n) sd(n) rel(n) @; input / @ ; end; input dash2 $ 1-1 @; %inf();"& 8" input / dash3 $ 1-1 ; run; data _temp; set _temp; array wt (&nsc) wt1-wt⊁ array sd (&nsc) sd1-sd⊁ array rel (&nsc) rel1 - rel⊁ n1=0; n2=0; d2=0;"&99"##J1&nsc1"&:="dX n1=n1 + (wt(&j)*wt(&j)*sd(&j)*sd(&j)); n2=n2 + (wt(&j)*wt(&j)*sd(&j)*sd(&j)*rel(&j));"&>>"#!I1&nsc1"&??"&i > &j"&??"&@@"D8 d2 = d2 + (wt(&j)*wt(&i)*sd(&j)*sd(&i)*corr&i.&x.&j);"&AA"&AA""&CC""&DD""&ER" mosier = round((1 - ((n1 - n2)/(n1 + (2*d2)))), .0001); call symput('mosier', trim(left(mosier))); call symput('scale', scale); run; data _temp(keep=WEIGHT SD ALPHA _SCALE_ CORR1-CORR&nsc ); set _temp;"&SS"#3I1&nsc1"&TW"D8 WEIGHT=wt&i; SD=sd&i; ALPHA=rel&i; _SCALE_=sname&i;"&XX"#/J1&nsc1"&YY"# CORR&j=corr&i.&x.&j;"&ZZ""&[[" output;"&\\""&]f" run; TITLE1 "&scale"; TITLE2 "RELIABILITY OF COMPOSITE SCALE FROM MOSIER'S FORMULA = &mosier"; proc print data=_temp; var WEIGHT SD ALPHA _SCALE_ CORR1-CORR⊁ format corr1-corr&nsc 7.5; run;"&gg"#7 0`p,(L\l(8\l