<?xml version="1.0" encoding="utf-8"?><!DOCTYPE article  PUBLIC '-//OASIS//DTD DocBook XML V4.4//EN'  'http://www.docbook.org/xml/4.4/docbookx.dtd'><article><articleinfo><title>FAQ/OMScorrs</title><revhistory><revision><revnumber>16</revnumber><date>2013-03-08 10:17:26</date><authorinitials>localhost</authorinitials><revremark>converted to 1.6 markup</revremark></revision><revision><revnumber>15</revnumber><date>2008-05-29 10:57:49</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>14</revnumber><date>2008-05-29 10:50:47</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>13</revnumber><date>2008-05-29 10:50:36</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>12</revnumber><date>2008-05-07 09:04:47</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>11</revnumber><date>2008-05-06 14:59:43</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>10</revnumber><date>2008-05-06 14:48:01</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>9</revnumber><date>2008-05-06 14:41:07</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>8</revnumber><date>2008-04-21 15:28:29</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>7</revnumber><date>2008-04-21 15:28:15</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>6</revnumber><date>2008-04-21 13:36:07</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>5</revnumber><date>2008-04-21 10:59:08</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>4</revnumber><date>2008-04-21 10:58:08</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>3</revnumber><date>2008-04-21 10:56:41</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>2</revnumber><date>2008-04-21 10:54:18</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>1</revnumber><date>2008-04-21 10:52:49</date><authorinitials>PeterWatson</authorinitials></revision></revhistory></articleinfo><section><title>Comparing correlations in matrices from two subgroups</title><para>The following syntax produces individual group correlation matrices involving variables, x, saves the output to a SPSS data file and then compares two of the groups using Fisher's transformation (details and exmaples, for example in, Howell, (2002)). </para><para>In brief, we can transform a correlation, r, to ,r', where </para><para>$$\mbox{r' = 0.5} log_text{e} abs [ \frac{1+r}[1-r} } ]$$.  </para><para>Now, for a sample of size, N, the transformed correlation, r', follows a normal distribution with a mean of zero and a variance equal to 1/(N-3). </para><para>This means we can compare two correlations by comparing their transformed counterparts and so form a z score. </para><para>$$z = \frac{r'_text{1} - r'_text{2}}{\sqrt{1/(N_text{1}-3) + 1/(N_text{2}-3)}}$$ </para><para>The macro below firstly uses the output management system (OMS) to obtain the correlations for two independent groups and then carries out the transformation and finally computes a z score which we can convert to p-values using other functions in SPSS. Any p-value less than 0.05 suggests there is evidence a pair of group correlations differ from one another. </para><screen><![CDATA[* USING FISHER'S TRANSFORMATION FOR COMPARING TWO CORRELATIONS FROM TWO INDEPENDENT GROUPS
]]><![CDATA[
DEFINE !FISH ( GP !TOKENS(1)
             /  X !CMDEND).
]]><![CDATA[
SPLIT FILE BY !GP.
]]><![CDATA[
OMS 
/SELECT TABLES 
/IF SUBTYPES=['Correlations'] 
/DESTINATION FORMAT=SAV OUTFILE='c:\corrs.sav'
/COLUMNS SEQUENCE=[R3, R1]. 
]]><![CDATA[
CORRELATIONS
  /VARIABLES=!X
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE .
]]><![CDATA[
OMSEND.
!ENDDEFINE.
]]><![CDATA[
*
Specify group variable and variables in correlation matrix.
]]><![CDATA[
!FISH GP=SEX X=AGE EDUC PRESTG80.
]]><![CDATA[
* Edit the correlation data file and perform Fisher's test. 
* OMS creates names of form using the variable label    
* PearsonCorrelation_Var Label which are a bit cumbersome
* so you can rename them as below if you wish and remove 
* extraneous information.
]]><![CDATA[
]]><![CDATA[
GET FILE  ='C:\CORRS.SAV'.
SAVE OUTFILE='C:\CORRS2.SAV' 
 /DROP=Command_ to Var2 Sig.2tailed_Female Sig.2tailed_Male
 /RENAME=(PearsonCorrelation_Male PearsonCorrelation_Female N_Male N_Female = cm cf nm nf).
exe.
GET FILE='C:\CORRS2.SAV'.
]]><![CDATA[
SELECT IF (CF NE 1 AND CM NE 1).
EXE.
]]><![CDATA[
FORMAT CF (F5.2) CM (F5.2).
]]><![CDATA[
DEFINE !FISH2 ( GP1 !TOKENS(1)
             /  GP2 !TOKENS(1)
             /  NGP1 !TOKENS(1)
             /  NGP2 !TOKENS(1)).
]]><![CDATA[
COMPUTE Z= (0.5*LN(ABS((1+!GP1)/(1-!GP1))) - 0.5*LN(ABS((1+!GP2)/(1-!GP2))))  / SQRT( (1/(!NGP1-3)) + (1/(!NGP2-3)) ).
COMPUTE PZ= 2*CDFNORM(-ABS(Z)).
EXE.
]]><![CDATA[
SUMMARIZE
/TABLES=!GP1 !GP2 Z PZ
/FORMAT=LIST NOCASENUM NOTOTAL
/TITLE='CORRELATION COMPARISONS FOR MALES AND FEMALES'
/MISSING=VARIABLE
/CELLS=NONE.
!ENDDEFINE.
]]><![CDATA[
!FISH2 GP1=CM GP2=CF NGP1=NM NGP2=NF.]]></screen><para><emphasis role="underline">Reference</emphasis> </para><para>Howell DC (2002) Statistical methods for psychologists. Duxbury Press:Pacific Grove, CA  </para></section></article>