* Encoding: UTF-8. *---------------------------------------------------------------------- * * RTT10G * * Mere reprezentativnosti, pouzdanosti, homogenosti i interne * valjanosti kompozitnih mernih instrumenata * * Verzija 2.0 * * Goran Knezevic i Konstantin Momirovic * * Definicije mera implementiranih u makro programu RTT9G nalaze se u * knjizi * * K. Momirovic i B. Wolf (1996): * Uvod u teoriju merenja. I. Interne metrijske karakteristike * kompozitnih mernih instrumenata. * Raspolozivo na elektronskim medijima, * Institut za kriminoloska i socioloska istrazivanja, * Gracanicka 18, Beograd. * * G. Knezevic i K. Momirovic (1996): * RTT10G, jednostavan program za analizu reprezentativnosti, * pouzdanosti, homogenosti i informativnosti kompozitnih * mernih instrumenata. * Filozofski fakultet, * Cika-Ljubina 18-20, Beograd. * * RTT10G se aktivira na sledeci nacin: * INCLUDE 'rtt10g.sps'. * RTT10G VARS = imena varijabli /. * *-------------------------------------------------------------------- *-------------------------------------------------------------------- * Sekcija 0. Preliminarne operacije. *-------------------------------------------------------------------- define rtt10g (vars=!charend('/')) set printback=off mxloop=500 mprint off save outfile='rtg_tmp1.sav' set results off corr variables=!vars/missing=listwise/matrix out(*) set results listing printback off mprint off. matrix get r/names=varname/missing omit/variables=!vars/file=* mget/file=*/type=corr release r compute ime=varname(1,:) call eigen(cr,xr,lr) compute xr1=xr(:,1) compute lr1=lr(1,1) compute m=ncol(cr) compute nov1=make(m,1,0) loop s=1 to m do if lr(s,1) > 1 . compute nov1(s,1)=lr(s,1) end if end loop compute broj1=csum(nov1) compute sumr=msum(cr) compute sumr2=cr&**2 compute sumr2=msum(sumr2) release xr, lr compute rinv=inv(cr) compute drinv=diag(rinv) compute u2=mdiag(drinv) compute u2=inv(u2) compute u=sqrt(u2) compute umin1=inv(u) compute ru2=cr-u2 release drinv compute a=u2*rinv*u2 compute traga=trace(a) compute suma2=a&**2 compute traga2=trace(suma2) compute suma2=msum(suma2) compute anorm=umin1*a*umin1 compute anorm2=anorm&**2 compute anorm2=msum(anorm2) compute g=cr+u2*rinv*u2-2*u2 compute g2=g&**2 compute sumg2=msum(g2) compute smc=trace(g) call svd(g,xg,lg,mrt) compute xg1=xg(:,1) compute lg1=lg(1,1) release xg, lg, rinv, g2, mrt compute h=umin1*cr*umin1 call eigen(h,xh,lh) compute xh1=xh(:,1) compute lh1=lh(1,1) release h, xh, lh, umin1 *--------------------------------------------------------------------- * Sekcija 2. Reprezentativnost testa. *--------------------------------------------------------------------- print /title 'MERE REPREZENTATIVNOSTI TESTA' /space 2 compute kra1=1-(suma2-traga2)/(sumr2-m) compute kra2=1-(anorm2-m)/(sumr2-m) compute kra3=(sumr2-m)/((anorm2-m)+(sumr2-m)) print kra2/format "f8.4" /title 'Kaiser-Mayer-Olkin, mera reprezentativnosti, PSI 1 (Kaiser, 1970)' print kra3/format "f8.4" /title 'Kaiser, Rice, mera reprezentativnosti, PSI 2 (KMO mera koju generisu komercijalni statisticki paketi, Kaiser & Rice, 1974)' print kra1/format "f8.4" /title 'Kaiser-Mayer-Olkin, mera reprezentativnosti, PSI-AIK (varijanta PSI 1 sa anti-image kovarijansama)' release suma2, traga2, kra2 *--------------------------------------------------------------------- * Sekcija 3. Mere pouzdanosti pod klasicnim sumacionim modelom. *--------------------------------------------------------------------- print /title 'MERE POUZDANOSTI POD KLASICNIM SUMACIONIM MODELOM' /space 2 compute lambda1=1-m/sumr compute alfa=(m/(m-1))*(1-m/sumr) compute lambda6=1-traga/sumr print lambda1/format "f8.4" /title 'Guttman, LAMBDA 1' print alfa/format "f8.4" /title 'Spearman-Brown-Kuder-Richardson-Guttman-Cronbach, ALFA' print lambda6/format "f8.4" /title 'Guttman, LAMBDA 6' release traga, lambda6 *---------------------------------------------------------------------- * Sekcija 4. Pouzdanost prve glavne komponente. *---------------------------------------------------------------------- print /title 'MERE POUZDANOSTI PRVE GLAVNE KOMPONENTE'/space 2 compute mi=1-1/lr1 compute lkc=m/(m-1)*mi compute beta6=t(xr1)*u2*xr1 compute beta6=1-beta6/lr1 print mi/format "f8.4" /title 'Momirovic-Knezevic-Radovic, MI1' print lkc/format "f8.4" /title 'Lord-Kaiser-Caffrey, BETA' print beta6/format "f8.4" /title 'Momirovic, donja granica pouzdanosti, BETA 6' release lkc *---------------------------------------------------------------------- * Sekcija 5. Mere pouzdanosti pod Guttmanovim modelom merenja. *---------------------------------------------------------------------- print /title 'MERE POUZDANOSTI POD GUTTMANOVIM MODELOM MERENJA' /space 2 compute rho=1-1/lh1 call eigen(ru2,xx,ll) compute xx1=xx(:,1) compute slon=t(xx1)*ru2*xx1 compute bik=t(xx1)*cr*xx1 compute gama=slon/bik print gama/format "f8.4" /title 'Momirovic, Knezevic, donja granica pouzdanosti, GAMA' print rho/format "f8.4" /title 'Guttman-Nicewander, RHO' release rho, xx, ll, xx1, slon, bik *----------------------------------------------------------------------- * Sekcija 6. Mere homogenosti testova. *----------------------------------------------------------------------- print /title 'MERE HOMOGENOSTI TESTOVA'/space 2 compute h1=(sumr-m)/(m*m-m) compute h2=lg1/smc compute h5=1-(broj1-lr1)/(m-lr1) print h1/format "f8.4" /title 'Prosecna korelacija varijabli, H 1' print h2/format "f8.4" /title 'Momirovic, mera homogenosti, H 2' print h5/format "f8.4" /title 'Knezevic-Momirovic, mera homogenosti, H 5' release h1, h2 *----------------------------------------------------------------------- * Sekcija 7. Reprezentativnost, pouzdanost i valjanost varijabli. *----------------------------------------------------------------------- compute ms=make(m,1,1) compute i=ident(m,m) compute aa1=anorm&*anorm compute aa2=diag(aa1) compute aa2=mdiag(aa2) compute aa=aa1-aa2 compute rr=cr&*cr-i compute rsuma=rsum(aa) compute rsumr=rsum(rr) compute msa=rsumr&/(rsumr+rsuma) compute itrel=diag(g) compute f=xr1*sqrt(lr1) compute f=f&**2 compute f=sqrt(f) compute bf=rsum(cr)/sqrt(sumr) compute itemkar={msa,itrel,f, bf} print itemkar/format "f8.4" /title 'REPREZENTATIVNOST, POUZDANOST I VALJANOST VARIJABLI' /rnames=ime/cnames={"REP","REL","H","B"} *----------------------------------------------------------------------- * Sekcija 8. Informativnost testova. *----------------------------------------------------------------------- compute infh=1/(1-mi) compute infb=1/(1-lambda1) compute infu=1/(1-gama) print infh/format "f12.2" /title 'Informativnost prve Hotellingove komponente, INFH' print infb/format "f12.2" /title 'Informativnost rezultata prve Burtove komponente, INFB' print infu/format "f12.2" /title 'Informativnost prve Harisove komponente, INFU' end matrix *------------------------------------------------------------------------ * 14. Zavrsne operacije. *------------------------------------------------------------------------ get file='rtg_tmp1.sav' !enddefine.