define permut (outfile = !charend('|') /
statvars = !charend('|') / byvars = !cmdend ).
* creates PARTIAL CORR commands with all
permutations of byvars on left & right side of BY.
* statvars are on the left side of BY
only
* the output is saved in outfile .
* count byvars and create quoted variables.
!let !countstr = ""
!let !kv = ""
!do !i !in (!byvars)
!let !countstr = !concat(!countstr,
"x")
!let !kv = !concat(!kv ," ",
!quote(!i))
!doend
!let !cnt = !length(!countstr) .
* create a SPSS data file with the
permutations in rows.
input program.
- vector r (!cnt, f1).
- loop #n = 1 to 2**!cnt .
-
loop #i = 1 to !cnt .
-
compute r(#i) = rnd((-1)**(trunc((#n-1)/(2**(#i-1)) )) + 1) /
2.
- end loop.
- end case.
- end loop.
- end file.
end input program.
!let !rmax = !concat("r",!cnt )
compute #s = sum(r1 to !rmax ).
select if #s > 0 and #s < !cnt
.
* because the 0000 and 1111 permutations do
not give sense here.
exe.
* create the needed commands.
vector r = r1 to !rmax .
string command (a250).
compute command = concat("PARTIAL CORR
/VARIABLES = ", !quote(!statvars)).
do repe i = 1 to !cnt / v = !kv .
- if r(i) = 0 command =
concat(rtrim(command), " ", v).
end repe.
compute command = concat(rtrim(command), "
BY").
do repe i = 1 to !cnt / v = !kv .
- if r(i) = 1 command =
concat(rtrim(command), " ", v).
end repe.
compute command = concat(rtrim(command),
".").
WRITE OUTFILE = !quote(!outfile) /command
.
exe.
!enddefine.
permut outfile = c:/temp/partcorr.sps |
statvars = cmpi7 | byvars = cta_1 cta_2 ctb_1 ctc_1 .
Best,
Jan
Locked
