cϽ 1""2"2""2"22""SAS FILESASMACR CATALOG w"|Aw"|A9.0201M0XP_PROwҡҡҡw"|A|Toggle grid snappingToggle the display of the component name and descriptionChange visual characteristics of the windowtnfrpsdy 7rdummytextPosition Tile Cascade Resize Save Window Size &pp0Tile all windowsCascade all windowsResize window to size before last tile/cascadeSave window size informationTAZVSETWSZ RESIZE CASCADE TILE LSASHELP COREp WDEFDLGprm describe togglerm snap togglerm grid toggletabordersrccwpw .f ghhhhhhhf gf g}hhhhhhhf gf g!f g)f g-f g*f g)f g$f g,f g*f g DUsing This Window SAS Help and Documentation Getting Started with SAS Software Learning SAS Programming SAS on the Web About SAS 9  -Ohwl@hgfp   ! " pDisplay help for this windowDisplay help for the SAS SystemStart the Getting Started tutorialStart the Online Training systemAccess SAS web resourcesDetails about this installation of SAS 9uhglws HELP}>Technical Support Training Services Frequently Asked Questions Send Feedback Customer Support Center SAS Institute Home Page  $?Mep"# # $ & ' ' pGo to the Technical Support web pageGo to the Training Services web pageGo to the Frequently Asked Questions web pageGo to the Send Feedback web pageGo to the SAS Customer Support CenterGo to the SAS Institute home pagetvfsch wbrowse 'http://w.sas.com/' !wbrowse 'http://support.sas.com/' )wbrowse 'http://support.sas.com/contact/' -wbrowse 'http://support.sas.com/techsup/faq/'*wbrowse 'http://support.sas.com/training/')wbrowse 'http://support.sas.com/techsup/'$af c=sashelp.oltutor.startup.program,help helploc://sastut.hlp/main_spl.htm notoc*help helploc://common.hlp/sashelp_main.htm windowhelpf ghhhhhhh0f gf g0Import Data. Export Data. NO pImport data to SAS data setExport SAS data setIRdexportdimport@ !&i&i XLSRnAnA&  0F Menu description. XLSR pApA+L  F Menu description. XLSR %qA%qAS SYSRESR PGBITMAPXMACRO MOSIER XLCH,(XLSRHz"|AHz"|A  XLSRHz"|AHz"|A F MOSIER RELIABILITYXLSR|"|AT}"|A  F MOSIER RELIABILITY  uF Menu description. XLSR  {A {An  xF Menu description. XLSR  {A{A  F Menu description. XLSR  |A|A  F Menu description. XLSR  ~A~AUL  F Menu description. XLSR  ~A~A U  F Menu description. XLSR AA U  F Menu description. XLSR  AAt   F Menu description. XLSRAA~   F Menu description.  6i6i j "tMOSIERRM9.2  >"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(); 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;"#J1&nsc1"cW 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"J> d2 = d2 + (wt(&j)*wt(&i)*sd(&j)*sd(&i)*corr&i.&x.&j);"""" 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;"#I1&nsc1"PD WEIGHT=wt&i; SD=sd&i; ALPHA=rel&i; _SCALE_=sname&i;"#J1&nsc1") CORR&j=corr&i.&x.&j;"" output;"" 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;" "tMOSIERRM9.2  8l>"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(); 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;"#J1&nsc1"cW 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"J> d2 = d2 + (wt(&j)*wt(&i)*sd(&j)*sd(&i)*corr&i.&x.&j);"""" 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;"#I1&nsc1"PD WEIGHT=wt&i; SD=sd&i; ALPHA=rel&i; _SCALE_=sname&i;"#J1&nsc1") CORR&j=corr&i.&x.&j;"" output;"" 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;"l#0`t\ lp4<T\4