Âê�c³Ͻ’ Ç1Œ""332""3323#3SAS FILESASMACR CATALOG €|ÙA¬ú-|ÙAœØÀœØÀ9.0301M1X64_7PRO€LNïbLNïbLNïb.|Yâ€|ÙA/|Yâ| #›Ó©$-c%Èžám2ß^*š—)c<ŸË#¨k|ZTé†EdJ59ÿb¢cBµ¡;†ôsùt‘oêI{:#š4áÓ¬ ¾¤j! ô;\�9e,?“bFÓ+­vg§{�ý¡?^Ú’z †Ã4vÓ8}­Ø½\”I&.R§½í{ÑDl|0|qÊEÍ&Æï{x¨¹LgaÈ\¨1Xu’Y#:â2y¶ƒe2ÁÙW‘ú•8Š´lß=Lüoˆ"�x#ÛçAU x7€È{F‚[AÒÔpF´õž¸bï¢j�hîµ.ÔËô?¤ %#ÊW›ÍgVŠ�ÑŽiO̯¢Qè8 \1OÔbÓ8IEZtÖrgqÆ ×Ôô08�ñyØû>…­mœÒǧg¨~ÎeD u )w—"`Ó_oÜ¥v›1eû/-ί uA°;p»! ©i–lk>NÂÿµpçc�#,ßnŠq]f›$ÝP6ÇAõ†B9·yYòì4Y2¹v9bn™í&ð›–æ!’j�Ó¡r棻XÖoƒòðN(«ý|uX/1¶1ŠUÅÄ€6‰x%œŠLë«JUÍ‹.xvzO Óo±UOÈm;eB4ª2)•¢:Ð 2؇ó iÉQ»+Uh €´Kx¥ÀkrÌ�62;é-Pu\�·áQ¶Uÿºyõuò fîR±`Î=s°<Ã&E <¶Ê3VA»üG\7-5c^{vá2,*4^‹æ‚IúøÈMoªgQ;l®ÝF>L† ÙÓRUWR‰NU_©M*_¥{x™!((»¢Ú¼ !‹ƒäp_p¦C7´0{ë`?ÿ‘-Z½•c™¾Àm‡ƒbv®`æBÓ'…@Lä^ ]b æ:†E‘³Ûaá$¥iû-h{Å)Å*Üâ­èuÜ=·ô°H’µ"t¸xLEâ²$jcq¤5• ^!ï0môT5’ñª.>vCÇÀ,�I| ÁïG+ßwFQ*nî|…`K3¨M° d~2R ½y§:XŒZ*^}tú r”«R³Ø†n:­²~ÆwÓuï„yxΊ…rQ°ÇßYxK)KRõÉxÃ%"hìôo¹ºf!VÙûf-¨R3ÌÜ_æ '‚ d´¹õ}Š À/WöLzé¾{X5:b†/1û—O½IýoçŽIàëª-AÜŠwOM:€‚R2$RB WE‡YO lg=©Ñ­lÆNF]h¨ªB¢ºEï“9„}ÑZË(í±çVÏF‘ï„á ßûJ¥±'kjûhxN ]byl+³ˆ´qË× vÊl;- gcé-�y«‹l [=4x N8zp‰^r%r7ÄLQqãb³ ç8mF!éØG¦�¡*Ô•WÎç×ôóet!#Œ¬ÏÒ§…# ^~q®+.‹æ*}¯ xËàl�7³]–ö]2Ôlb°&:''úT "|cðúI_nù]Vãú""Â�*(#µÔ)žÅ 6nÀWÕ<ñyž‹0w=~†Iyt\1-r9}rs*Z'ÄyÁß #žÔe:É?]û²]çëJ™N£M™ê�wy¸êN±}çGT×&_±Ó R‚Wük¦½Ô$LEs~yQù­F:¢uPÐ9à)7Èf C-‡S�÷‘?ѧ´n‹ÍÂIÕ~À«ô1 ž.KHr4fF•p|)¹g –"Y¼S�Lø¼O y9rLÒÔtìt�>a$L‰ëBŠ’J ³ˆy'Ô†wzxe -˜H•å·4ÅÚ¬^êéå 6„m4G£ALŸ,Ô{ «?ù`¨mÁÖ[\b `Q0Emé‰Ûš.) «;¶”fýhÑBt.†HL8®¡!à*å{ü%wöš"*Öãž›=T1äƒÃ;ëWâK˜éŒx/»c.Ïi±«:¹áì¢Vsœ,qqÚ£i¸&w#!ÄoĹhDa®cWg$«í_ÄPáob‹e¤³bdŒ�huä´7 k>ÕF‘aäVÚ¼XçyŽ]Jfˆr� ”v”?9ØLÿÐÝ{~ñ}sòâLZÂR]h 6�V½vtC|5ÅÓbªq­2-#U sI|Í,€âÝxW±-}¿a›ä!85T*]I6\_ýf0¥’g]6‡(VawŸÙT»BIRTÜäæêmuƒa"2+[Ódj@›`:s…EL‘>Zù²v‰)!ï?2�Áœo;fZHœV?i)RYXµÁ¢'™¶0"_¤‚ÝF½1»„W³½Û€«#fÇïùßÉF ˆ+WüWÌ¥@“’óúúŠT��xr)„ÍE_�l"�iÁ ´×³B}™C8¤ØÉCúŸú×ö1cg¶¨–X%˜¯Egö�±Óà%Z..ñË•6)ìö5¸Ês1�RþZ tj¡–ã ‰ÐæR6"ASm˜W{c, K ¯w–] n혪Y®e¹.X Ãjʽ±"þ»í:XsdÇ7 ;"E`aèµMćÖÙ-¼#{Ûİ(Ñn´Ö…–LÕ6¥y‹x¯|yž´8÷WobÀ¶S—ÿ Lc1;<½²]ûÚnoAZ>1?2uÊS£wd{lû[F÷á¤gw~iúá2ÊÄ[„ Yb5Ÿ\$p/²ZBÌòÌ˘èlCš|ÖÙ`‡ä—sÙÞÆeÚ8wåcrOq>-)¹¤M<…y‡F|ò. ä·:[ UP:Ü/3ðK.O6ua‰4Ü2eº¤ƒÚûëT* P<\�îZjq· çà|éØ |¹+$ÈÌT#k�?ª²í@dˆÚbfå=p ¤[ÇíÍ.�zó°áãúgh.Ð6Óš*É´MÖ“³Là…ö2”YklðOn °3é(^3ãéox"qhžÌêßÚI ']KJ(Gu`/"2ÓÓRH´‰»j;§}lŸ?»f#CƒÐ/9XéeB¥M}‡~÷Æ´A•úu*yýˆYˆô¡uU'wUdç3ª«ÿßNÂcÔ'SC¢bË;ôRgHÑ0—ú°„0×?�¼œRk…ªD5,ÜNÍ9 ¼¾%z(Ÿ'qç<^�xÌT–VEWÃ’œn>†ï7¦ UjП  €ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀaÀaïàîðÚ�è±Ñ ¬í(QSYSRESR PGBITMAP`MACRO MOSIER8,|YâàbXLCHèÀ(XLSRÅ €|ÙAJ ú-|ÙA  XLSRJ ú-|ÙAJ ú-|ÙA8  F MOSIER RELIABILITYXLSRJ ú-|ÙAJ ú-|ÙA5  F MOSIER RELIABILITYXLSRNb@ |ÙANb@ |ÙA8)  F MOSIER RELIABILITY$8Cw²BÃ,¾•Ôñ¾_Á^¦_=‹�?p,yS�QÙœÖA•¤³ÇBSlç(DÞ•mÿ0œ4'*07ÛAŽ f3qö•v²2˜fÞ¥÷äò,£X~mÙ,9òÔ¥‘¢ èªu L{$E. ‚yË][Uv–|ª*&<¼*޶РFy# ª¥nΟÎr®ÖævËê„ ºåç¦Lã·U ‡^mÈÇT”¿ež”·}pÁX(wÁ±wJ9ëÏ p@;Í7& Yú ‚]µKÒb9DŽ#˜Ô Uà8¾Ï$\ý†3y†œžtAî;OvVã6r£ÿyý÷WðÍ׆l€”�,tYw|Hái�(ÍR�Uá�MW(Œ/f•Dâ‹bÝ¿§ÅJ–yðï-  èñ)L¥è´ï"/%BX’»:v$¬À±Ë"T3%£[Á&+±=z“½6°òQn¨l;‚·_o†æOó,6 ggÂS„æÖ)6ƒõhoæ8ºmw)"ßÅW¿�'l3-\0-ˆ'Ziiö }�Ûòië¾EÍ»*6V:8ò™ !²~mL<^LMä;”8)‹ȶÍ\$Ç,PŠ'Ý5¦±ªÌ6ÀЀ êÎ2Y#³:w¦dá*º³ 1ûpª‡*w ä€åìu7Ê ZCåßfh¿f?]*¹ˆÄ _AI ÿx|gÁ\K X&oqùó.);{aÃm?ß<\¢.¹H Å�x|Hm-]�U¨)4lH·XÝà 3ÿoÜh„bSl?ã ÛIÎ�)R §£OŸÃE1¥%M€òCqØ S/=}!ËwYþˆ#8^ULëñJ®Ul\ì0>j,w-P>XŒ6þ]‘wÛ`éü9+™9Bz�îd¿(² ˜Es=­Ò$8K Ý!:�x5â\Ž.�—êp`9­ ~À£ôF¢t‚Šd¶y•„LcRFR!×Y|‘Ôw²UXhжXŸ³j>þòI€K”,†vv$“ iöÂF»m²*VÃêh–uUJMÁe;&e#d<ä2ëîD4 V<M½u „7Osà)!)[Êb_hS먣}¡zqYç) i7Û!AÃX!þM([gޱ�KW�KB~øVz ^Ù²×pPe?Ü)Ÿ5q®–mJC/xŽŒ*üD‡.,zö=ÞOÇË)$¤‹Wß·ƒLìk‚®<þª×�LØJ}·•li£Ù4©n�)ϲ·~”¥"Z�‹!ز+H†ô#X@(=&&t{þ�ñn“Àcz„Þ–b��w]8FPé?”XÏwvLäDü”ëBÇõ–,®¸¥1[q3¬¹ö5ÔÍÛužÇÞ³§þr'J`62ÂàFl6$ER&~¤È&'ï^dv^3uKi´9ÃA$>qÎep.^PU¢^h°IÀœíOC�L)¦oMäÆƒ[ކ"âd›ÅwÅ7`À0 1 €@1A1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿt^p \ 1!1 À0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀrÀrXLSR -|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� ¨¸ÐàèøÐà