Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationSat, 17 Dec 2011 09:24:44 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/17/t1324131897f4hj141zby910bg.htm/, Retrieved Fri, 29 Mar 2024 13:03:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=156332, Retrieved Fri, 29 Mar 2024 13:03:58 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact165
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [] [2011-12-17 14:24:44] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
Feedback Forum

Post a new message
Dataseries X:
1	1	2	2	3	4	3
1	1	2	2	2	3	2
1	1	2	2	3	4	1
1	1	1	2	3	4	1
1	1	1	1	1	3	1
1	1	1	1	1	4	1
1	1	1	4	1	4	1
1	1	1	1	1	3	1
1	1	1	3	3	3	2
1	1	1	2	2	3	2
1	1	1	1	1	4	2
1	1	1	2	1	4	2
1	1	1	1	2	1	2
1	1	1	2	1	1	1
1	1	1	3	1	4	1
1	1	1	1	2	4	1
1	1	1	2	2	4	1
1	1	2	1	1	4	1
1	1	1	3	3	4	1
1	1	2	1	2	3	1
1	2	2	3	2	3	3
1	1	2	2	2	3	1
1	1	2	3	4	3	3
1	1	1	3	1	2	2
1	1	2	1	3	3	1
1	1	1	2	2	4	3
1	1	1	2	1	4	3
1	1	1	1	2	4	1
1	1	1	2	2	3	2
1	1	2	3	1	3	1
1	1	2	3	2	3	2
1	2	1	2	4	3	3
1	2	2	1	2	3	2
1	1	2	3	3	4	3
1	1	1	2	4	3	1
1	1	1	1	1	4	1
1	1	1	1	2	4	1
1	1	2	2	2	4	3
1	1	1	2	3	4	1
1	1	2	1	1	4	2
1	2	2	2	3	4	1
1	1	1	2	2	4	2
1	1	1	2	1	3	1
1	1	1	1	1	3	3
1	1	2	2	2	3	3
1	1	1	1	2	4	1
1	1	2	4	1	4	1
1	1	2	2	2	3	1
1	1	2	1	2	4	1
1	1	1	1	2	4	2
1	1	2	3	1	3	2
1	1	1	1	1	4	4
1	1	2	2	1	4	1
1	1	2	2	4	3	2
1	1	1	1	1	3	1
1	1	2	1	2	4	1
1	1	3	2	2	4	4
1	1	2	1	1	4	1
1	1	2	3	3	3	4
1	2	2	3	3	3	1
1	1	1	2	4	3	3
1	1	1	1	1	4	2
1	1	1	1	3	4	3
1	1	2	2	2	4	2
1	1	2	2	3	3	2
1	1	2	1	3	3	2
1	1	2	1	1	3	1
1	1	2	1	1	3	2
1	1	2	2	3	3	1
1	1	1	2	2	4	3
1	1	2	3	3	4	4
1	2	2	2	3	3	2
2	2	2	4	2	2	1
2	2	2	3	3	3	2
2	1	1	1	1	4	2
2	1	1	1	2	4	2
2	1	2	2	2	3	3
2	1	2	2	3	3	2
2	3	3	3	3	2	4
2	1	2	2	2	3	3
2	3	3	3	2	3	2
2	3	3	3	2	3	3
2	3	2	2	2	1	1
2	2	2	2	2	3	2
2	1	2	2	3	4	2
2	2	2	3	3	2	2
2	1	1	2	2	4	1
2	2	2	3	3	2	2
2	2	2	2	2	3	1
2	2	2	4	3	3	3
2	1	1	3	4	4	2
2	1	2	2	3	3	2
2	2	2	3	1	3	3
2	1	2	2	1	4	3
2	1	3	3	2	2	3
2	2	2	3	3	3	1
2	1	2	1	2	4	3
2	1	1	2	3	4	3
2	1	1	2	2	3	4
2	2	3	2	3	2	3
2	2	2	3	2	3	3
2	3	3	2	4	1	3
2	2	3	3	3	2	4
2	1	1	1	2	4	2
2	1	2	3	3	3	3
2	3	4	3	3	2	1
2	2	2	2	2	4	1
2	2	2	2	2	4	2
2	3	3	3	3	2	3
2	2	2	2	2	3	2
2	1	1	2	2	4	1
2	3	3	1	1	3	1
2	1	2	2	1	4	2
2	1	2	2	3	3	1
2	1	2	2	1	3	3
2	1	1	2	1	4	3
2	2	2	2	3	3	2
2	2	2	2	3	4	2
2	1	1	1	3	4	1
3	4	4	2	4	2	4
3	3	3	4	4	2	3
3	1	2	3	4	3	4
3	3	3	4	2	2	1
3	3	3	2	3	1	4
3	2	2	2	2	3	3
3	1	2	2	2	3	4
3	3	3	2	3	2	3
3	1	1	2	1	3	1
3	2	3	4	4	3	2
3	1	2	3	1	3	3
3	2	3	3	3	2	4
3	2	2	3	4	3	1
3	4	3	3	4	1	4
3	1	2	3	3	2	2
3	2	3	2	3	3	1
3	1	3	2	4	3	2
3	3	2	2	1	4	3
3	2	3	2	1	3	2
4	4	4	4	3	2	4
4	4	4	4	3	3	4
4	3	3	2	2	2	3
4	2	2	3	3	2	3
4	4	4	4	4	3	4




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156332&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156332&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156332&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net







Correlations for all pairs of data series (method=kendall)
shake_off_bluesI_felt_depressedI_felt_sadeverything_was_efforttrouble_mindI_enjoyed_lifesleep_restless
shake_off_blues10.5660.5020.3490.261-0.3760.324
I_felt_depressed0.56610.6220.3810.302-0.4910.224
I_felt_sad0.5020.62210.3810.31-0.480.296
everything_was_effort0.3490.3810.38110.331-0.3560.261
trouble_mind0.2610.3020.310.3311-0.2690.215
I_enjoyed_life-0.376-0.491-0.48-0.356-0.2691-0.213
sleep_restless0.3240.2240.2960.2610.215-0.2131

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & shake_off_blues & I_felt_depressed & I_felt_sad & everything_was_effort & trouble_mind & I_enjoyed_life & sleep_restless \tabularnewline
shake_off_blues & 1 & 0.566 & 0.502 & 0.349 & 0.261 & -0.376 & 0.324 \tabularnewline
I_felt_depressed & 0.566 & 1 & 0.622 & 0.381 & 0.302 & -0.491 & 0.224 \tabularnewline
I_felt_sad & 0.502 & 0.622 & 1 & 0.381 & 0.31 & -0.48 & 0.296 \tabularnewline
everything_was_effort & 0.349 & 0.381 & 0.381 & 1 & 0.331 & -0.356 & 0.261 \tabularnewline
trouble_mind & 0.261 & 0.302 & 0.31 & 0.331 & 1 & -0.269 & 0.215 \tabularnewline
I_enjoyed_life & -0.376 & -0.491 & -0.48 & -0.356 & -0.269 & 1 & -0.213 \tabularnewline
sleep_restless & 0.324 & 0.224 & 0.296 & 0.261 & 0.215 & -0.213 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156332&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]shake_off_blues[/C][C]I_felt_depressed[/C][C]I_felt_sad[/C][C]everything_was_effort[/C][C]trouble_mind[/C][C]I_enjoyed_life[/C][C]sleep_restless[/C][/ROW]
[ROW][C]shake_off_blues[/C][C]1[/C][C]0.566[/C][C]0.502[/C][C]0.349[/C][C]0.261[/C][C]-0.376[/C][C]0.324[/C][/ROW]
[ROW][C]I_felt_depressed[/C][C]0.566[/C][C]1[/C][C]0.622[/C][C]0.381[/C][C]0.302[/C][C]-0.491[/C][C]0.224[/C][/ROW]
[ROW][C]I_felt_sad[/C][C]0.502[/C][C]0.622[/C][C]1[/C][C]0.381[/C][C]0.31[/C][C]-0.48[/C][C]0.296[/C][/ROW]
[ROW][C]everything_was_effort[/C][C]0.349[/C][C]0.381[/C][C]0.381[/C][C]1[/C][C]0.331[/C][C]-0.356[/C][C]0.261[/C][/ROW]
[ROW][C]trouble_mind[/C][C]0.261[/C][C]0.302[/C][C]0.31[/C][C]0.331[/C][C]1[/C][C]-0.269[/C][C]0.215[/C][/ROW]
[ROW][C]I_enjoyed_life[/C][C]-0.376[/C][C]-0.491[/C][C]-0.48[/C][C]-0.356[/C][C]-0.269[/C][C]1[/C][C]-0.213[/C][/ROW]
[ROW][C]sleep_restless[/C][C]0.324[/C][C]0.224[/C][C]0.296[/C][C]0.261[/C][C]0.215[/C][C]-0.213[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156332&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156332&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series (method=kendall)
shake_off_bluesI_felt_depressedI_felt_sadeverything_was_efforttrouble_mindI_enjoyed_lifesleep_restless
shake_off_blues10.5660.5020.3490.261-0.3760.324
I_felt_depressed0.56610.6220.3810.302-0.4910.224
I_felt_sad0.5020.62210.3810.31-0.480.296
everything_was_effort0.3490.3810.38110.331-0.3560.261
trouble_mind0.2610.3020.310.3311-0.2690.215
I_enjoyed_life-0.376-0.491-0.48-0.356-0.2691-0.213
sleep_restless0.3240.2240.2960.2610.215-0.2131







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
shake_off_blues;I_felt_depressed0.64610.60670.5657
p-value(0)(0)(0)
shake_off_blues;I_felt_sad0.60020.54530.5016
p-value(0)(0)(0)
shake_off_blues;everything_was_effort0.42070.38870.3494
p-value(0)(0)(0)
shake_off_blues;trouble_mind0.3050.29120.2605
p-value(2e-04)(4e-04)(4e-04)
shake_off_blues;I_enjoyed_life-0.419-0.4213-0.3761
p-value(0)(0)(0)
shake_off_blues;sleep_restless0.39810.36190.3241
p-value(0)(0)(0)
I_felt_depressed;I_felt_sad0.73610.65490.6223
p-value(0)(0)(0)
I_felt_depressed;everything_was_effort0.43190.42050.3807
p-value(0)(0)(0)
I_felt_depressed;trouble_mind0.34080.33710.3024
p-value(0)(0)(0)
I_felt_depressed;I_enjoyed_life-0.5426-0.5288-0.4911
p-value(0)(0)(0)
I_felt_depressed;sleep_restless0.32690.24760.2241
p-value(1e-04)(0.0029)(0.0025)
I_felt_sad;everything_was_effort0.44710.4240.3811
p-value(0)(0)(0)
I_felt_sad;trouble_mind0.36150.34750.3095
p-value(0)(0)(0)
I_felt_sad;I_enjoyed_life-0.4954-0.5188-0.4799
p-value(0)(0)(0)
I_felt_sad;sleep_restless0.37490.33090.2961
p-value(0)(1e-04)(1e-04)
everything_was_effort;trouble_mind0.36160.37530.3306
p-value(0)(0)(0)
everything_was_effort;I_enjoyed_life-0.3496-0.4015-0.3565
p-value(0)(0)(0)
everything_was_effort;sleep_restless0.29140.29620.2607
p-value(4e-04)(3e-04)(3e-04)
trouble_mind;I_enjoyed_life-0.3008-0.3108-0.2691
p-value(3e-04)(2e-04)(2e-04)
trouble_mind;sleep_restless0.26790.25220.2148
p-value(0.0012)(0.0024)(0.0026)
I_enjoyed_life;sleep_restless-0.2485-0.2401-0.2126
p-value(0.0028)(0.0039)(0.0036)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
shake_off_blues;I_felt_depressed & 0.6461 & 0.6067 & 0.5657 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shake_off_blues;I_felt_sad & 0.6002 & 0.5453 & 0.5016 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shake_off_blues;everything_was_effort & 0.4207 & 0.3887 & 0.3494 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shake_off_blues;trouble_mind & 0.305 & 0.2912 & 0.2605 \tabularnewline
p-value & (2e-04) & (4e-04) & (4e-04) \tabularnewline
shake_off_blues;I_enjoyed_life & -0.419 & -0.4213 & -0.3761 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shake_off_blues;sleep_restless & 0.3981 & 0.3619 & 0.3241 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
I_felt_depressed;I_felt_sad & 0.7361 & 0.6549 & 0.6223 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
I_felt_depressed;everything_was_effort & 0.4319 & 0.4205 & 0.3807 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
I_felt_depressed;trouble_mind & 0.3408 & 0.3371 & 0.3024 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
I_felt_depressed;I_enjoyed_life & -0.5426 & -0.5288 & -0.4911 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
I_felt_depressed;sleep_restless & 0.3269 & 0.2476 & 0.2241 \tabularnewline
p-value & (1e-04) & (0.0029) & (0.0025) \tabularnewline
I_felt_sad;everything_was_effort & 0.4471 & 0.424 & 0.3811 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
I_felt_sad;trouble_mind & 0.3615 & 0.3475 & 0.3095 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
I_felt_sad;I_enjoyed_life & -0.4954 & -0.5188 & -0.4799 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
I_felt_sad;sleep_restless & 0.3749 & 0.3309 & 0.2961 \tabularnewline
p-value & (0) & (1e-04) & (1e-04) \tabularnewline
everything_was_effort;trouble_mind & 0.3616 & 0.3753 & 0.3306 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
everything_was_effort;I_enjoyed_life & -0.3496 & -0.4015 & -0.3565 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
everything_was_effort;sleep_restless & 0.2914 & 0.2962 & 0.2607 \tabularnewline
p-value & (4e-04) & (3e-04) & (3e-04) \tabularnewline
trouble_mind;I_enjoyed_life & -0.3008 & -0.3108 & -0.2691 \tabularnewline
p-value & (3e-04) & (2e-04) & (2e-04) \tabularnewline
trouble_mind;sleep_restless & 0.2679 & 0.2522 & 0.2148 \tabularnewline
p-value & (0.0012) & (0.0024) & (0.0026) \tabularnewline
I_enjoyed_life;sleep_restless & -0.2485 & -0.2401 & -0.2126 \tabularnewline
p-value & (0.0028) & (0.0039) & (0.0036) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156332&T=2

[TABLE]
[ROW][C]Correlations for all pairs of data series with p-values[/C][/ROW]
[ROW][C]pair[/C][C]Pearson r[/C][C]Spearman rho[/C][C]Kendall tau[/C][/ROW]
[ROW][C]shake_off_blues;I_felt_depressed[/C][C]0.6461[/C][C]0.6067[/C][C]0.5657[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shake_off_blues;I_felt_sad[/C][C]0.6002[/C][C]0.5453[/C][C]0.5016[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shake_off_blues;everything_was_effort[/C][C]0.4207[/C][C]0.3887[/C][C]0.3494[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shake_off_blues;trouble_mind[/C][C]0.305[/C][C]0.2912[/C][C]0.2605[/C][/ROW]
[ROW][C]p-value[/C][C](2e-04)[/C][C](4e-04)[/C][C](4e-04)[/C][/ROW]
[ROW][C]shake_off_blues;I_enjoyed_life[/C][C]-0.419[/C][C]-0.4213[/C][C]-0.3761[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shake_off_blues;sleep_restless[/C][C]0.3981[/C][C]0.3619[/C][C]0.3241[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]I_felt_depressed;I_felt_sad[/C][C]0.7361[/C][C]0.6549[/C][C]0.6223[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]I_felt_depressed;everything_was_effort[/C][C]0.4319[/C][C]0.4205[/C][C]0.3807[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]I_felt_depressed;trouble_mind[/C][C]0.3408[/C][C]0.3371[/C][C]0.3024[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]I_felt_depressed;I_enjoyed_life[/C][C]-0.5426[/C][C]-0.5288[/C][C]-0.4911[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]I_felt_depressed;sleep_restless[/C][C]0.3269[/C][C]0.2476[/C][C]0.2241[/C][/ROW]
[ROW][C]p-value[/C][C](1e-04)[/C][C](0.0029)[/C][C](0.0025)[/C][/ROW]
[ROW][C]I_felt_sad;everything_was_effort[/C][C]0.4471[/C][C]0.424[/C][C]0.3811[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]I_felt_sad;trouble_mind[/C][C]0.3615[/C][C]0.3475[/C][C]0.3095[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]I_felt_sad;I_enjoyed_life[/C][C]-0.4954[/C][C]-0.5188[/C][C]-0.4799[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]I_felt_sad;sleep_restless[/C][C]0.3749[/C][C]0.3309[/C][C]0.2961[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](1e-04)[/C][C](1e-04)[/C][/ROW]
[ROW][C]everything_was_effort;trouble_mind[/C][C]0.3616[/C][C]0.3753[/C][C]0.3306[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]everything_was_effort;I_enjoyed_life[/C][C]-0.3496[/C][C]-0.4015[/C][C]-0.3565[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]everything_was_effort;sleep_restless[/C][C]0.2914[/C][C]0.2962[/C][C]0.2607[/C][/ROW]
[ROW][C]p-value[/C][C](4e-04)[/C][C](3e-04)[/C][C](3e-04)[/C][/ROW]
[ROW][C]trouble_mind;I_enjoyed_life[/C][C]-0.3008[/C][C]-0.3108[/C][C]-0.2691[/C][/ROW]
[ROW][C]p-value[/C][C](3e-04)[/C][C](2e-04)[/C][C](2e-04)[/C][/ROW]
[ROW][C]trouble_mind;sleep_restless[/C][C]0.2679[/C][C]0.2522[/C][C]0.2148[/C][/ROW]
[ROW][C]p-value[/C][C](0.0012)[/C][C](0.0024)[/C][C](0.0026)[/C][/ROW]
[ROW][C]I_enjoyed_life;sleep_restless[/C][C]-0.2485[/C][C]-0.2401[/C][C]-0.2126[/C][/ROW]
[ROW][C]p-value[/C][C](0.0028)[/C][C](0.0039)[/C][C](0.0036)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156332&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156332&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
shake_off_blues;I_felt_depressed0.64610.60670.5657
p-value(0)(0)(0)
shake_off_blues;I_felt_sad0.60020.54530.5016
p-value(0)(0)(0)
shake_off_blues;everything_was_effort0.42070.38870.3494
p-value(0)(0)(0)
shake_off_blues;trouble_mind0.3050.29120.2605
p-value(2e-04)(4e-04)(4e-04)
shake_off_blues;I_enjoyed_life-0.419-0.4213-0.3761
p-value(0)(0)(0)
shake_off_blues;sleep_restless0.39810.36190.3241
p-value(0)(0)(0)
I_felt_depressed;I_felt_sad0.73610.65490.6223
p-value(0)(0)(0)
I_felt_depressed;everything_was_effort0.43190.42050.3807
p-value(0)(0)(0)
I_felt_depressed;trouble_mind0.34080.33710.3024
p-value(0)(0)(0)
I_felt_depressed;I_enjoyed_life-0.5426-0.5288-0.4911
p-value(0)(0)(0)
I_felt_depressed;sleep_restless0.32690.24760.2241
p-value(1e-04)(0.0029)(0.0025)
I_felt_sad;everything_was_effort0.44710.4240.3811
p-value(0)(0)(0)
I_felt_sad;trouble_mind0.36150.34750.3095
p-value(0)(0)(0)
I_felt_sad;I_enjoyed_life-0.4954-0.5188-0.4799
p-value(0)(0)(0)
I_felt_sad;sleep_restless0.37490.33090.2961
p-value(0)(1e-04)(1e-04)
everything_was_effort;trouble_mind0.36160.37530.3306
p-value(0)(0)(0)
everything_was_effort;I_enjoyed_life-0.3496-0.4015-0.3565
p-value(0)(0)(0)
everything_was_effort;sleep_restless0.29140.29620.2607
p-value(4e-04)(3e-04)(3e-04)
trouble_mind;I_enjoyed_life-0.3008-0.3108-0.2691
p-value(3e-04)(2e-04)(2e-04)
trouble_mind;sleep_restless0.26790.25220.2148
p-value(0.0012)(0.0024)(0.0026)
I_enjoyed_life;sleep_restless-0.2485-0.2401-0.2126
p-value(0.0028)(0.0039)(0.0036)



Parameters (Session):
par1 = pearson ;
Parameters (R input):
par1 = kendall ;
R code (references can be found in the software module):
panel.tau <- function(x, y, digits=2, prefix='', cex.cor)
{
usr <- par('usr'); on.exit(par(usr))
par(usr = c(0, 1, 0, 1))
rr <- cor.test(x, y, method=par1)
r <- round(rr$p.value,2)
txt <- format(c(r, 0.123456789), digits=digits)[1]
txt <- paste(prefix, txt, sep='')
if(missing(cex.cor)) cex <- 0.5/strwidth(txt)
text(0.5, 0.5, txt, cex = cex)
}
panel.hist <- function(x, ...)
{
usr <- par('usr'); on.exit(par(usr))
par(usr = c(usr[1:2], 0, 1.5) )
h <- hist(x, plot = FALSE)
breaks <- h$breaks; nB <- length(breaks)
y <- h$counts; y <- y/max(y)
rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...)
}
bitmap(file='test1.png')
pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main)
dev.off()
load(file='createtable')
n <- length(y[,1])
n
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,' ',header=TRUE)
for (i in 1:n) {
a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
}
a<-table.row.end(a)
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
for (j in 1:n) {
r <- cor.test(y[i,],y[j,],method=par1)
a<-table.element(a,round(r$estimate,3))
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'pair',1,TRUE)
a<-table.element(a,'Pearson r',1,TRUE)
a<-table.element(a,'Spearman rho',1,TRUE)
a<-table.element(a,'Kendall tau',1,TRUE)
a<-table.row.end(a)
cor.test(y[1,],y[2,],method=par1)
for (i in 1:(n-1))
{
for (j in (i+1):n)
{
a<-table.row.start(a)
dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='')
a<-table.element(a,dum,header=TRUE)
rp <- cor.test(y[i,],y[j,],method='pearson')
a<-table.element(a,round(rp$estimate,4))
rs <- cor.test(y[i,],y[j,],method='spearman')
a<-table.element(a,round(rs$estimate,4))
rk <- cor.test(y[i,],y[j,],method='kendall')
a<-table.element(a,round(rk$estimate,4))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value',header=T)
a<-table.element(a,paste('(',round(rp$p.value,4),')',sep=''))
a<-table.element(a,paste('(',round(rs$p.value,4),')',sep=''))
a<-table.element(a,paste('(',round(rk$p.value,4),')',sep=''))
a<-table.row.end(a)
}
}
a<-table.end(a)
table.save(a,file='mytable1.tab')