<?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/WilliamsSPSS</title><revhistory><revision><revnumber>109</revnumber><date>2021-04-09 11:33:29</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>108</revnumber><date>2021-04-09 11:33:17</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>107</revnumber><date>2017-04-10 11:57:11</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>106</revnumber><date>2017-04-10 11:56:36</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>105</revnumber><date>2017-04-10 11:56:02</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>104</revnumber><date>2017-04-10 11:19:22</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>103</revnumber><date>2017-04-10 11:18:27</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>102</revnumber><date>2017-04-10 11:16:20</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>101</revnumber><date>2017-04-10 11:12:37</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>100</revnumber><date>2017-03-13 16:17:12</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>99</revnumber><date>2017-03-10 10:34:04</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>98</revnumber><date>2017-03-10 10:32:23</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>97</revnumber><date>2017-03-10 10:31:02</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>96</revnumber><date>2017-03-10 10:29:38</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>95</revnumber><date>2017-03-09 16:32:37</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>94</revnumber><date>2017-03-09 16:30:47</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>93</revnumber><date>2017-03-09 16:29:26</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>92</revnumber><date>2017-03-09 16:29:07</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>91</revnumber><date>2014-03-31 10:46:12</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>90</revnumber><date>2014-03-06 17:37:33</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>89</revnumber><date>2014-03-06 17:34:28</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>88</revnumber><date>2014-03-06 17:25:46</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>87</revnumber><date>2013-08-29 14:04:59</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>86</revnumber><date>2013-08-27 14:25:44</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>85</revnumber><date>2013-08-27 14:25:16</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>84</revnumber><date>2013-08-27 14:20:50</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>83</revnumber><date>2013-03-08 10:17:18</date><authorinitials>localhost</authorinitials><revremark>converted to 1.6 markup</revremark></revision><revision><revnumber>82</revnumber><date>2012-02-06 11:41:59</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>81</revnumber><date>2012-02-06 11:41:39</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>80</revnumber><date>2010-06-25 11:31:46</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>79</revnumber><date>2010-06-25 11:30:10</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>78</revnumber><date>2010-06-24 09:55:45</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>77</revnumber><date>2008-06-23 15:45:11</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>76</revnumber><date>2008-04-22 10:18:15</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>75</revnumber><date>2007-08-30 14:16:09</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>74</revnumber><date>2007-08-30 14:13:19</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>73</revnumber><date>2007-06-13 10:30:23</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>72</revnumber><date>2007-06-13 10:27:39</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>71</revnumber><date>2007-06-13 10:27:00</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>70</revnumber><date>2007-01-25 15:57:01</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>69</revnumber><date>2007-01-15 10:09:03</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>68</revnumber><date>2007-01-15 10:08:38</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>67</revnumber><date>2006-12-06 13:13:58</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>66</revnumber><date>2006-12-06 13:13:06</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>65</revnumber><date>2006-11-08 16:23:12</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>64</revnumber><date>2006-11-08 16:19:20</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>63</revnumber><date>2006-07-18 15:41:47</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>62</revnumber><date>2006-07-18 15:41:25</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>61</revnumber><date>2006-07-18 15:20:23</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>60</revnumber><date>2006-07-17 14:02:20</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>59</revnumber><date>2006-07-17 13:47:29</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>58</revnumber><date>2006-07-17 11:26:52</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>57</revnumber><date>2006-07-17 11:08:07</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>56</revnumber><date>2006-07-17 10:23:02</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>55</revnumber><date>2006-07-12 11:36:40</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>54</revnumber><date>2006-07-12 11:32:21</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>53</revnumber><date>2006-07-12 11:32:02</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>52</revnumber><date>2006-07-12 11:28:30</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>51</revnumber><date>2006-07-12 11:26:34</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>50</revnumber><date>2006-07-12 11:24:41</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>49</revnumber><date>2006-07-12 11:19:10</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>48</revnumber><date>2006-07-12 11:14:23</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>47</revnumber><date>2006-07-12 11:07:25</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>46</revnumber><date>2006-07-12 11:06:29</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>45</revnumber><date>2006-07-12 11:05:31</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>44</revnumber><date>2006-07-12 11:00:17</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>43</revnumber><date>2006-07-12 10:57:01</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>42</revnumber><date>2006-07-11 16:53:10</date><authorinitials>pc0102.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>41</revnumber><date>2006-07-11 16:01:43</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>40</revnumber><date>2006-07-11 15:47:00</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>39</revnumber><date>2006-07-11 15:46:52</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>38</revnumber><date>2006-07-11 15:46:43</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>37</revnumber><date>2006-07-11 15:46:35</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>36</revnumber><date>2006-07-11 15:46:20</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>35</revnumber><date>2006-07-11 15:44:47</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>34</revnumber><date>2006-07-11 15:44:25</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>33</revnumber><date>2006-07-11 15:44:17</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>32</revnumber><date>2006-07-11 15:42:15</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>31</revnumber><date>2006-07-11 15:40:39</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>30</revnumber><date>2006-07-11 15:33:19</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>29</revnumber><date>2006-07-11 15:31:23</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>28</revnumber><date>2006-07-11 15:27:47</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>27</revnumber><date>2006-07-11 15:27:12</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>26</revnumber><date>2006-07-11 15:26:59</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>25</revnumber><date>2006-07-11 15:24:59</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>24</revnumber><date>2006-07-11 15:24:42</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>23</revnumber><date>2006-07-11 15:24:27</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>22</revnumber><date>2006-07-11 15:24:12</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>21</revnumber><date>2006-07-11 15:22:57</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>20</revnumber><date>2006-07-11 15:21:55</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>19</revnumber><date>2006-07-11 15:21:18</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>18</revnumber><date>2006-07-11 15:18:56</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>17</revnumber><date>2006-07-11 15:18:19</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>16</revnumber><date>2006-07-11 15:17:31</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>15</revnumber><date>2006-07-11 15:17:16</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>14</revnumber><date>2006-07-11 15:16:48</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>13</revnumber><date>2006-07-11 15:16:25</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>12</revnumber><date>2006-07-11 15:15:47</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>11</revnumber><date>2006-07-11 15:15:19</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>10</revnumber><date>2006-07-11 15:14:39</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>9</revnumber><date>2006-07-11 15:13:43</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>8</revnumber><date>2006-07-11 15:12:29</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>7</revnumber><date>2006-07-11 15:10:52</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>6</revnumber><date>2006-07-11 15:09:05</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>5</revnumber><date>2006-07-11 15:08:14</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>4</revnumber><date>2006-07-11 15:07:03</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>3</revnumber><date>2006-07-11 15:04:16</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>2</revnumber><date>2006-07-11 15:00:35</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision><revision><revnumber>1</revnumber><date>2006-07-11 14:57:59</date><authorinitials>pc0082.mrc-cbu.cam.ac.uk</authorinitials></revision></revhistory></articleinfo><section><title>Comparing pairs of correlations</title><para>A variable in common (overlap) e.g. of form r(W,X) = r(W,Z). </para><para>A test for this comparison goes under various names the Williams test, Williams-Hotelling or Hotelling test. </para><para><ulink url="https://imaging.mrc-cbu.cam.ac.uk/statswiki/FAQ/WilliamsSPSS/statswiki/FAQ/Will#">Some SPSS syntax is available (from Bruce Weaver).</ulink> Just cut and paste into a SPSS syntax window to use. In the syntax window choose select all and click the run arrow. Edit the data in the spreadsheet as required. You can also use the Williams-Hotelling test by typing <emphasis role="strong">equalcor</emphasis> at a UNIX prompt on a CBU machine. </para><para>The R procedure <emphasis>cocor</emphasis> performs a large number of tests to compare pairs of different correlations including tests described in this article. </para><para><emphasis role="strong">More SPSS syntax</emphasis> </para><itemizedlist><listitem><para><ulink url="https://imaging.mrc-cbu.cam.ac.uk/statswiki/FAQ/WilliamsSPSS/statswiki/FAQ/WilliamsSPSS/Fisher#">Comparing two correlations from two independent samples</ulink> </para></listitem><listitem><para><ulink url="https://imaging.mrc-cbu.cam.ac.uk/statswiki/FAQ/WilliamsSPSS/statswiki/FAQ/WilliamsSPSS/Filon#">Comparing two correlations from the same sample with no variables in common eg of form r(A,B)=r(X,Y)</ulink> </para></listitem><listitem><para><ulink url="https://imaging.mrc-cbu.cam.ac.uk/statswiki/FAQ/WilliamsSPSS/statswiki/FAQ/WilliamsSPSS/Meng#">A z-test alternative to Williams-Hotelling for correlation comparisons of form r(W,X)=r(W,Z)</ulink> </para></listitem><listitem><para><ulink url="https://imaging.mrc-cbu.cam.ac.uk/statswiki/FAQ/WilliamsSPSS/statswiki/FAQ/WilliamsSPSS?action=AttachFile&amp;do=get&amp;target=correlnotes.pdf">Comparing 2 or more correlation coefficients (in attached Alan Pickering notes)</ulink> </para></listitem></itemizedlist><para>Some of the above tests may be performed using the free downloadable program <ulink url="http://psyphz.psych.wisc.edu/~shackman/mediation_moderation_resources.htm">FZT.EXE</ulink>  but note FZT.EXE does not compute p-values. Williams test may also be performed using <ulink url="https://imaging.mrc-cbu.cam.ac.uk/statswiki/FAQ/WilliamsSPSS/statswiki/FAQ/WilliamsSPSS?action=AttachFile&amp;do=get&amp;target=Williams-test.xlsx">this spreadsheet</ulink>.  </para><para>SPSS (and SAS) programs by Bruce Weaver and Karl Wuensch for comparing correlations on the same participants with or without a variable in common as well as two independent correlations are available from <ulink url="https://sites.google.com/a/lakeheadu.ca/bweaver/Home/statistics/spss/my-spss-page/weaver_wuensch">here.</ulink>  </para><para>Steiger (1980) recommends a z-test in preference to Williams test which can be computed using this <ulink url="https://imaging.mrc-cbu.cam.ac.uk/statswiki/FAQ/WilliamsSPSS/statswiki/FAQ/WilliamsSPSS?action=AttachFile&amp;do=get&amp;target=steiger.xls">spreadsheet.</ulink> The spreadsheet also can be used to test if the differences of r(W,X) - r(W,Z) observed in two groups differ ie if (r1(W,X) - r1(W,Z)) - (r2(W,X) - r2(W,Z)) = 0. See also Howell (2002).  </para><para>Since the two groups are independent a z-test to test whether the differences in correlations is the same in the two groups may be constructed of form </para><para>[ (r1'(W,X) - r1'(W,Z)) - (r2'(W,X) - r2'(W,Z)) ] / [Sqrt{(s.e. r1 difference)<superscript>2 </superscript> + (s.e. r2 difference)<superscript>2 </superscript>)} ] </para><para>where r1' and r2' are the Fisher transformed correlations in groups 1 and 2 respectively with standard errors as given in Steiger (1980).  </para><para>Also note Algina J and Keselman HJ (1999) give formulae for comparing squared multiple correlations from regressions on different data. Baguley (2012) has R code available for computing differences in pairs of correlations and confidence intervals for these differences using Zou(2007) (see <ulink url="https://imaging.mrc-cbu.cam.ac.uk/statswiki/FAQ/WilliamsSPSS/statswiki/FAQ/rsqdiff#">here</ulink> for further details). </para><para>If one is correlating time series data it may be worth removing serial dependencies prior to correlation by differencing (see  <ulink url="http://documentation.statsoft.com/STATISTICAHelp.aspx?path=TimeSeries/TimeSeries/Overview/IdentifyingPatternsinTimeSeries/IdentifyingPatternsinTimeSeriesDataAnalysisofSeasonality">here</ulink> and  <ulink url="http://stats.stackexchange.com/questions/133155/how-to-use-pearson-correlation-correctly-with-time-series">here</ulink>). </para><para>Shrout and Yip-Bannicq (2017) quote the paired t-test formula from Cohen, Cohen, West and Aiken (2003, p.641) to compare regression coefficients to assess the difference between a pair of correlations and also quote, and use a z-test, comparing Fisher z-transformed correlations to do the same thing which gives a similar result. </para><para><emphasis role="underline">References</emphasis> </para><para>Algina, J. and Keselman, H.J. (1999) Comparing squared multiple correlation coefficients: examination of a confidence interval and a test of significance. <emphasis>Psychological methods</emphasis> <emphasis role="strong">4(1)</emphasis> 76-83. </para><para>Baguley, T. (2012) Serious stats: A guide to advanced statistics for the behavioral sciences. Basingstoke: Palgrave. </para><para>Cohen, J., Cohen P., West, S.G. and Aiken, L.S. (2003) Applied multiple regression/correlation analysis for the behavioral sciences. Routledge:New York. </para><para>Howell, D.C. (2002) Statistical Methods for Psychology. Fifth Edition. Duxbury Press:Belmont,CA. </para><para>Shrout, P.E. and Yip-Bannicq M. (2017) Inferences about competing measures based on patterns of binary significance tests are questionable. <emphasis>Psychological Methods</emphasis> <emphasis role="strong">22(1)</emphasis> 84-93. Gives formulae for comparing associations between a pair of variables using Fisher z-transformed correlations and also doing the same test using a t-test comparing regression estimates. </para><para>Steiger JH (1980) Tests for comparing elements of a correlation matrix. <emphasis>Psychological Bulletin</emphasis> <emphasis role="strong">87(2)</emphasis> 245-251. (Available free via <ulink url="https://imaging.mrc-cbu.cam.ac.uk/statswiki/FAQ/WilliamsSPSS/statswiki/ScienceDirect#">ScienceDirect</ulink> to CBSU users). </para><para>Zou GY (2007) Toward using confidence intervals to compare correlations. <emphasis>Psychological Methods</emphasis> <emphasis role="strong">12</emphasis>: 399-413. </para><para>[COPY AND PASTE SPSS SYNTAX <emphasis role="strong">IN THE BOX BELOW</emphasis> TO PERFORM WILLIAMS TEST] </para><screen><![CDATA[* Dependent Correlation Comparison Program. 
* Compares correlation coefficients from the same sample. 
* See Cohen & Cohen (1983), p. 57. 
* Sam Field, sfield@mail.la.utexas.edu, March 1, 2000. 
]]><![CDATA[
* Three pairs of correlations to compare*****
]]><![CDATA[
set format f10.5.
DATA LIST free
 /r12 r13  r23  nsize.
]]><![CDATA[
BEGIN DATA
.50 .32 .65 50
.59 .31 .71 30
.80 .72 .89 26
END DATA.
]]><![CDATA[
define williams (rxy = !tokens(1)
                      /rvy = !tokens(1)
                      /rxv = !tokens(1)
                      /n = !tokens(1)).
]]><![CDATA[
COMPUTE #diffr = !rxy - !rvy.
COMPUTE #detR = (1 - !rxy **2 - !rvy**2 - !rxv**2)+ (2*!rxy*!rxv*!rvy).
]]><![CDATA[
COMPUTE #rbar = (!rxy + !rvy)/2.
]]><![CDATA[
COMPUTE #tnum = (#diffr) * (sqrt((!n-1)*(1 + !rxv))).
]]><![CDATA[
COMPUTE #tden = sqrt(2*((!n-1)/(!n-3))*#detR + ((#rbar**2) * ((1-!rxv)**3))).
]]><![CDATA[
COMPUTE t= (#tnum/#tden).
]]><![CDATA[
COMPUTE df = !n - 3.
]]><![CDATA[
COMPUTE p_1_tail = 1 - CDF.T(abs(t),df).
]]><![CDATA[
COMPUTE p_2_tail = (1 - CDF.T(abs(t),df))*2.
]]><![CDATA[
LIST t  df    p_1_tail    p_2_tail.
]]><![CDATA[
exe.
]]><![CDATA[
!enddefine.
]]><![CDATA[
*********************
]]><![CDATA[
williams rxy=r12 rvy=r13 rxv=r23 n=nsize.]]></screen><itemizedlist><listitem><para>Multiple invocations of the macro in the same interactive session will produce the following note: </para></listitem></itemizedlist><para>&gt;The macro name specified on the DEFINE command duplicates the name of a previously defined macro.  This instance will take precedence. </para><para>This warning does not indicate a problem and may be ignored. </para></section></article>