Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Module--
Title produced by softwareKendall tau Correlation Matrix
Date of computationTue, 13 Dec 2011 03:15:42 -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/13/t1323764182fb6mq7cwdua5ake.htm/, Retrieved Thu, 02 May 2024 16:53:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=154275, Retrieved Thu, 02 May 2024 16:53:34 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact152
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [] [2010-12-05 17:44:33] [b98453cac15ba1066b407e146608df68]
F   PD  [Kendall tau Correlation Matrix] [Pearson Correlati...] [2010-12-14 16:44:36] [b8e188bcc949964bed729335b3416734]
- RM        [Kendall tau Correlation Matrix] [] [2011-12-13 08:15:42] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
2	1	22	15	16	17	10
1	2	22	23	24	42	9
1	2	22	26	22	39	30
1	2	23	19	21	22	18
1	2	21	19	23	20	16
1	2	21	16	23	31	20
1	1	24	23	21	42	20
2	1	22	22	20	30	18
1	2	21	19	22	33	21
1	2	23	24	20	29	20
1	1	20	19	12	31	20
2	1	23	25	23	39	20
1	1	20	23	23	44	29
1	2	21	31	30	40	14
2	1	22	29	22	42	25
2	2	22	18	21	28	19
2	2	21	17	21	29	19
1	1	20	22	15	35	25
1	1	21	21	22	26	25
1	2	21	24	24	42	19
1	1	20	22	23	26	19
1	1	21	16	15	30	18
1	2	23	22	24	28	24
1	1	23	21	24	24	18
2	1	21	25	21	26	26
1	1	22	22	21	39	26
2	1	20	24	18	33	24
2	1	23	21	20	50	29
2	1	21	25	19	40	26
1	1	21	29	29	49	28
2	1	23	19	20	31	18
2	1	23	29	23	37	19
2	2	22	25	24	29	21
1	1	21	19	27	37	13
1	1	NA	27	28	16	19
1	2	21	25	24	28	26
1	2	21	23	29	29	17
1	1	22	24	24	31	19
2	2	22	23	22	34	28
1	2	22	25	25	30	15
1	1	22	26	24	31	16
1	1	23	23	14	44	18
2	1	NA	22	22	35	25
1	2	22	32	24	47	15
1	2	21	22	24	39	24
1	1	23	18	24	34	24
2	1	21	19	24	15	14
2	2	32	23	22	26	19
2	2	32	24	22	25	20
2	1	21	19	21	30	27
1	1	20	16	21	25	20
1	1	21	23	21	33	25
1	1	22	17	15	39	16
1	1	21	17	26	24	19
1	2	21	28	22	44	15
1	2	21	24	24	31	17
1	1	22	21	13	30	22
1	1	21	14	19	21	19
2	1	25	21	10	38	44
1	2	22	20	28	30	19
1	1	21	25	25	31	19
2	2	21	20	24	32	23
1	1	20	17	22	34	19
1	2	21	26	30	43	28
1	2	22	17	22	29	17
4	2	21	17	24	40	22
1	2	23	24	23	31	25
1	2	24	30	20	36	44
2	1	20	25	22	39	19
2	1	21	15	22	31	21
1	1	23	25	19	36	25
1	1	24	18	24	36	28
1	1	22	20	22	36	19
1	1	22	32	26	41	33
2	2	21	14	12	23	19
2	1	20	20	25	23	12
1	2	21	25	29	34	15
1	NA	21	25	23	31	23
1	1	22	25	23	26	21
1	1	21	35	17	32	29
1	2	21	29	26	48	15
1	1	22	25	27	37	23
1	2	23	21	23	31	25
1	1	23	21	20	29	18
1	1	21	24	24	44	24
1	1	22	26	22	27	20
1	1	24	24	26	31	19
1	2	21	20	29	37	21
1	1	25	24	20	31	33
2	1	24	18	17	29	17
1	1	21	17	16	25	19
1	2	21	22	24	39	19
1	1	22	22	24	33	23
1	1	22	22	19	26	21
2	1	21	24	29	39	20
1	1	24	32	25	33	19
1	2	21	19	25	22	16
1	2	21	21	24	27	20
1	2	22	23	29	31	18
2	1	22	26	22	40	11
1	2	21	18	23	45	18
2	1	21	19	15	33	23
1	1	22	22	29	26	19
1	2	21	27	21	28	21
2	1	21	21	23	28	16
2	1	22	20	20	30	24
2	2	21	21	25	47	23
1	1	21	20	28	30	20
1	1	21	29	18	37	23
1	1	23	30	25	23	25
1	1	22	23	24	24	24
2	1	21	29	23	15	19
1	2	22	19	25	39	15
1	1	22	26	27	32	20
1	1	22	22	24	23	14
2	1	23	26	24	41	34
2	1	24	27	26	39	24
2	1	22	19	18	42	26
2	2	21	24	26	38	23
1	2	21	26	23	30	18
2	2	22	22	28	19	11
1	1	20	23	20	45	28
1	1	23	25	23	36	15
1	2	21	19	24	36	26
1	1	22	20	21	33	20
2	1	23	25	25	35	21
2	1	21	14	16	29	21
1	2	21	20	19	28	15
1	1	23	27	22	40	30
1	2	21	21	27	28	21
1	2	21	21	24	36	12
1	2	21	14	17	28	23
2	1	23	21	21	42	30
1	1	21	23	21	27	22
2	1	22	18	19	32	21
1	2	22	20	25	27	19
1	2	21	19	24	30	22
1	2	21	15	21	31	18
1	2	24	23	26	26	16
1	1	21	26	25	47	19
1	1	21	21	25	28	20
1	2	20	13	13	31	12
2	2	21	24	25	26	21
1	2	NA	17	23	27	14
1	1	24	21	26	28	23
1	1	22	28	22	44	30
1	1	22	22	20	32	21
1	1	22	25	14	25	25
1	1	22	18	23	24	13
1	1	23	27	24	45	17
1	1	22	25	21	37	24
2	1	22	21	24	25	21




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ jenkins.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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154275&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154275&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154275&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 time2 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net







Correlations for all pairs of data series (method=pearson)
RokenGeslachtLeeftijdPSOCMDPEC
Roken1-0.0820.122-0.125-0.1330.0010.074
Geslacht-0.0821-0.004-0.0980.244-0.021-0.191
Leeftijd0.122-0.00410.163-0.019-0.0470.149
PS-0.125-0.0980.16310.3180.3280.253
O-0.1330.244-0.0190.31810.063-0.183
CMD0.001-0.021-0.0470.3280.06310.3
PEC0.074-0.1910.1490.253-0.1830.31

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Roken & Geslacht & Leeftijd & PS & O & CMD & PEC \tabularnewline
Roken & 1 & -0.082 & 0.122 & -0.125 & -0.133 & 0.001 & 0.074 \tabularnewline
Geslacht & -0.082 & 1 & -0.004 & -0.098 & 0.244 & -0.021 & -0.191 \tabularnewline
Leeftijd & 0.122 & -0.004 & 1 & 0.163 & -0.019 & -0.047 & 0.149 \tabularnewline
PS & -0.125 & -0.098 & 0.163 & 1 & 0.318 & 0.328 & 0.253 \tabularnewline
O & -0.133 & 0.244 & -0.019 & 0.318 & 1 & 0.063 & -0.183 \tabularnewline
CMD & 0.001 & -0.021 & -0.047 & 0.328 & 0.063 & 1 & 0.3 \tabularnewline
PEC & 0.074 & -0.191 & 0.149 & 0.253 & -0.183 & 0.3 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154275&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Roken[/C][C]Geslacht[/C][C]Leeftijd[/C][C]PS[/C][C]O[/C][C]CMD[/C][C]PEC[/C][/ROW]
[ROW][C]Roken[/C][C]1[/C][C]-0.082[/C][C]0.122[/C][C]-0.125[/C][C]-0.133[/C][C]0.001[/C][C]0.074[/C][/ROW]
[ROW][C]Geslacht[/C][C]-0.082[/C][C]1[/C][C]-0.004[/C][C]-0.098[/C][C]0.244[/C][C]-0.021[/C][C]-0.191[/C][/ROW]
[ROW][C]Leeftijd[/C][C]0.122[/C][C]-0.004[/C][C]1[/C][C]0.163[/C][C]-0.019[/C][C]-0.047[/C][C]0.149[/C][/ROW]
[ROW][C]PS[/C][C]-0.125[/C][C]-0.098[/C][C]0.163[/C][C]1[/C][C]0.318[/C][C]0.328[/C][C]0.253[/C][/ROW]
[ROW][C]O[/C][C]-0.133[/C][C]0.244[/C][C]-0.019[/C][C]0.318[/C][C]1[/C][C]0.063[/C][C]-0.183[/C][/ROW]
[ROW][C]CMD[/C][C]0.001[/C][C]-0.021[/C][C]-0.047[/C][C]0.328[/C][C]0.063[/C][C]1[/C][C]0.3[/C][/ROW]
[ROW][C]PEC[/C][C]0.074[/C][C]-0.191[/C][C]0.149[/C][C]0.253[/C][C]-0.183[/C][C]0.3[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154275&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154275&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=pearson)
RokenGeslachtLeeftijdPSOCMDPEC
Roken1-0.0820.122-0.125-0.1330.0010.074
Geslacht-0.0821-0.004-0.0980.244-0.021-0.191
Leeftijd0.122-0.00410.163-0.019-0.0470.149
PS-0.125-0.0980.16310.3180.3280.253
O-0.1330.244-0.0190.31810.063-0.183
CMD0.001-0.021-0.0470.3280.06310.3
PEC0.074-0.1910.1490.253-0.1830.31







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Roken;Geslacht-0.0825-0.1211-0.1207
p-value(0.3141)(0.1386)(0.1381)
Roken;Leeftijd0.12180.05630.0514
p-value(0.1389)(0.4955)(0.4926)
Roken;PS-0.1249-0.0921-0.0779
p-value(0.1251)(0.2593)(0.2559)
Roken;O-0.1326-0.1687-0.143
p-value(0.1035)(0.0377)(0.0385)
Roken;CMD0.00133e-043e-04
p-value(0.9874)(0.9967)(0.9968)
Roken;PEC0.07350.10240.0861
p-value(0.3679)(0.2092)(0.2084)
Geslacht;Leeftijd-0.0039-0.1436-0.1314
p-value(0.9621)(0.0816)(0.0816)
Geslacht;PS-0.0982-0.0974-0.0824
p-value(0.2303)(0.2339)(0.2327)
Geslacht;O0.24410.24950.2125
p-value(0.0025)(0.002)(0.0022)
Geslacht;CMD-0.0206-0.0436-0.0364
p-value(0.802)(0.5947)(0.593)
Geslacht;PEC-0.1907-0.2218-0.1872
p-value(0.019)(0.0062)(0.0066)
Leeftijd;PS0.16260.2110.164
p-value(0.0475)(0.0098)(0.0099)
Leeftijd;O-0.0192-0.0105-0.0082
p-value(0.8166)(0.8991)(0.8976)
Leeftijd;CMD-0.04650.02520.0182
p-value(0.5732)(0.7603)(0.7725)
Leeftijd;PEC0.14930.09320.0717
p-value(0.0691)(0.2583)(0.2589)
PS;O0.31770.28120.204
p-value(1e-04)(4e-04)(5e-04)
PS;CMD0.32820.32860.2345
p-value(0)(0)(0)
PS;PEC0.25340.21730.1576
p-value(0.0016)(0.0072)(0.0067)
O;CMD0.06340.04260.03
p-value(0.4379)(0.6023)(0.6052)
O;PEC-0.1828-0.183-0.1344
p-value(0.0242)(0.024)(0.0218)
CMD;PEC0.29960.28010.2148
p-value(2e-04)(5e-04)(2e-04)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
Roken;Geslacht & -0.0825 & -0.1211 & -0.1207 \tabularnewline
p-value & (0.3141) & (0.1386) & (0.1381) \tabularnewline
Roken;Leeftijd & 0.1218 & 0.0563 & 0.0514 \tabularnewline
p-value & (0.1389) & (0.4955) & (0.4926) \tabularnewline
Roken;PS & -0.1249 & -0.0921 & -0.0779 \tabularnewline
p-value & (0.1251) & (0.2593) & (0.2559) \tabularnewline
Roken;O & -0.1326 & -0.1687 & -0.143 \tabularnewline
p-value & (0.1035) & (0.0377) & (0.0385) \tabularnewline
Roken;CMD & 0.0013 & 3e-04 & 3e-04 \tabularnewline
p-value & (0.9874) & (0.9967) & (0.9968) \tabularnewline
Roken;PEC & 0.0735 & 0.1024 & 0.0861 \tabularnewline
p-value & (0.3679) & (0.2092) & (0.2084) \tabularnewline
Geslacht;Leeftijd & -0.0039 & -0.1436 & -0.1314 \tabularnewline
p-value & (0.9621) & (0.0816) & (0.0816) \tabularnewline
Geslacht;PS & -0.0982 & -0.0974 & -0.0824 \tabularnewline
p-value & (0.2303) & (0.2339) & (0.2327) \tabularnewline
Geslacht;O & 0.2441 & 0.2495 & 0.2125 \tabularnewline
p-value & (0.0025) & (0.002) & (0.0022) \tabularnewline
Geslacht;CMD & -0.0206 & -0.0436 & -0.0364 \tabularnewline
p-value & (0.802) & (0.5947) & (0.593) \tabularnewline
Geslacht;PEC & -0.1907 & -0.2218 & -0.1872 \tabularnewline
p-value & (0.019) & (0.0062) & (0.0066) \tabularnewline
Leeftijd;PS & 0.1626 & 0.211 & 0.164 \tabularnewline
p-value & (0.0475) & (0.0098) & (0.0099) \tabularnewline
Leeftijd;O & -0.0192 & -0.0105 & -0.0082 \tabularnewline
p-value & (0.8166) & (0.8991) & (0.8976) \tabularnewline
Leeftijd;CMD & -0.0465 & 0.0252 & 0.0182 \tabularnewline
p-value & (0.5732) & (0.7603) & (0.7725) \tabularnewline
Leeftijd;PEC & 0.1493 & 0.0932 & 0.0717 \tabularnewline
p-value & (0.0691) & (0.2583) & (0.2589) \tabularnewline
PS;O & 0.3177 & 0.2812 & 0.204 \tabularnewline
p-value & (1e-04) & (4e-04) & (5e-04) \tabularnewline
PS;CMD & 0.3282 & 0.3286 & 0.2345 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
PS;PEC & 0.2534 & 0.2173 & 0.1576 \tabularnewline
p-value & (0.0016) & (0.0072) & (0.0067) \tabularnewline
O;CMD & 0.0634 & 0.0426 & 0.03 \tabularnewline
p-value & (0.4379) & (0.6023) & (0.6052) \tabularnewline
O;PEC & -0.1828 & -0.183 & -0.1344 \tabularnewline
p-value & (0.0242) & (0.024) & (0.0218) \tabularnewline
CMD;PEC & 0.2996 & 0.2801 & 0.2148 \tabularnewline
p-value & (2e-04) & (5e-04) & (2e-04) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154275&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]Roken;Geslacht[/C][C]-0.0825[/C][C]-0.1211[/C][C]-0.1207[/C][/ROW]
[ROW][C]p-value[/C][C](0.3141)[/C][C](0.1386)[/C][C](0.1381)[/C][/ROW]
[ROW][C]Roken;Leeftijd[/C][C]0.1218[/C][C]0.0563[/C][C]0.0514[/C][/ROW]
[ROW][C]p-value[/C][C](0.1389)[/C][C](0.4955)[/C][C](0.4926)[/C][/ROW]
[ROW][C]Roken;PS[/C][C]-0.1249[/C][C]-0.0921[/C][C]-0.0779[/C][/ROW]
[ROW][C]p-value[/C][C](0.1251)[/C][C](0.2593)[/C][C](0.2559)[/C][/ROW]
[ROW][C]Roken;O[/C][C]-0.1326[/C][C]-0.1687[/C][C]-0.143[/C][/ROW]
[ROW][C]p-value[/C][C](0.1035)[/C][C](0.0377)[/C][C](0.0385)[/C][/ROW]
[ROW][C]Roken;CMD[/C][C]0.0013[/C][C]3e-04[/C][C]3e-04[/C][/ROW]
[ROW][C]p-value[/C][C](0.9874)[/C][C](0.9967)[/C][C](0.9968)[/C][/ROW]
[ROW][C]Roken;PEC[/C][C]0.0735[/C][C]0.1024[/C][C]0.0861[/C][/ROW]
[ROW][C]p-value[/C][C](0.3679)[/C][C](0.2092)[/C][C](0.2084)[/C][/ROW]
[ROW][C]Geslacht;Leeftijd[/C][C]-0.0039[/C][C]-0.1436[/C][C]-0.1314[/C][/ROW]
[ROW][C]p-value[/C][C](0.9621)[/C][C](0.0816)[/C][C](0.0816)[/C][/ROW]
[ROW][C]Geslacht;PS[/C][C]-0.0982[/C][C]-0.0974[/C][C]-0.0824[/C][/ROW]
[ROW][C]p-value[/C][C](0.2303)[/C][C](0.2339)[/C][C](0.2327)[/C][/ROW]
[ROW][C]Geslacht;O[/C][C]0.2441[/C][C]0.2495[/C][C]0.2125[/C][/ROW]
[ROW][C]p-value[/C][C](0.0025)[/C][C](0.002)[/C][C](0.0022)[/C][/ROW]
[ROW][C]Geslacht;CMD[/C][C]-0.0206[/C][C]-0.0436[/C][C]-0.0364[/C][/ROW]
[ROW][C]p-value[/C][C](0.802)[/C][C](0.5947)[/C][C](0.593)[/C][/ROW]
[ROW][C]Geslacht;PEC[/C][C]-0.1907[/C][C]-0.2218[/C][C]-0.1872[/C][/ROW]
[ROW][C]p-value[/C][C](0.019)[/C][C](0.0062)[/C][C](0.0066)[/C][/ROW]
[ROW][C]Leeftijd;PS[/C][C]0.1626[/C][C]0.211[/C][C]0.164[/C][/ROW]
[ROW][C]p-value[/C][C](0.0475)[/C][C](0.0098)[/C][C](0.0099)[/C][/ROW]
[ROW][C]Leeftijd;O[/C][C]-0.0192[/C][C]-0.0105[/C][C]-0.0082[/C][/ROW]
[ROW][C]p-value[/C][C](0.8166)[/C][C](0.8991)[/C][C](0.8976)[/C][/ROW]
[ROW][C]Leeftijd;CMD[/C][C]-0.0465[/C][C]0.0252[/C][C]0.0182[/C][/ROW]
[ROW][C]p-value[/C][C](0.5732)[/C][C](0.7603)[/C][C](0.7725)[/C][/ROW]
[ROW][C]Leeftijd;PEC[/C][C]0.1493[/C][C]0.0932[/C][C]0.0717[/C][/ROW]
[ROW][C]p-value[/C][C](0.0691)[/C][C](0.2583)[/C][C](0.2589)[/C][/ROW]
[ROW][C]PS;O[/C][C]0.3177[/C][C]0.2812[/C][C]0.204[/C][/ROW]
[ROW][C]p-value[/C][C](1e-04)[/C][C](4e-04)[/C][C](5e-04)[/C][/ROW]
[ROW][C]PS;CMD[/C][C]0.3282[/C][C]0.3286[/C][C]0.2345[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]PS;PEC[/C][C]0.2534[/C][C]0.2173[/C][C]0.1576[/C][/ROW]
[ROW][C]p-value[/C][C](0.0016)[/C][C](0.0072)[/C][C](0.0067)[/C][/ROW]
[ROW][C]O;CMD[/C][C]0.0634[/C][C]0.0426[/C][C]0.03[/C][/ROW]
[ROW][C]p-value[/C][C](0.4379)[/C][C](0.6023)[/C][C](0.6052)[/C][/ROW]
[ROW][C]O;PEC[/C][C]-0.1828[/C][C]-0.183[/C][C]-0.1344[/C][/ROW]
[ROW][C]p-value[/C][C](0.0242)[/C][C](0.024)[/C][C](0.0218)[/C][/ROW]
[ROW][C]CMD;PEC[/C][C]0.2996[/C][C]0.2801[/C][C]0.2148[/C][/ROW]
[ROW][C]p-value[/C][C](2e-04)[/C][C](5e-04)[/C][C](2e-04)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154275&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154275&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
Roken;Geslacht-0.0825-0.1211-0.1207
p-value(0.3141)(0.1386)(0.1381)
Roken;Leeftijd0.12180.05630.0514
p-value(0.1389)(0.4955)(0.4926)
Roken;PS-0.1249-0.0921-0.0779
p-value(0.1251)(0.2593)(0.2559)
Roken;O-0.1326-0.1687-0.143
p-value(0.1035)(0.0377)(0.0385)
Roken;CMD0.00133e-043e-04
p-value(0.9874)(0.9967)(0.9968)
Roken;PEC0.07350.10240.0861
p-value(0.3679)(0.2092)(0.2084)
Geslacht;Leeftijd-0.0039-0.1436-0.1314
p-value(0.9621)(0.0816)(0.0816)
Geslacht;PS-0.0982-0.0974-0.0824
p-value(0.2303)(0.2339)(0.2327)
Geslacht;O0.24410.24950.2125
p-value(0.0025)(0.002)(0.0022)
Geslacht;CMD-0.0206-0.0436-0.0364
p-value(0.802)(0.5947)(0.593)
Geslacht;PEC-0.1907-0.2218-0.1872
p-value(0.019)(0.0062)(0.0066)
Leeftijd;PS0.16260.2110.164
p-value(0.0475)(0.0098)(0.0099)
Leeftijd;O-0.0192-0.0105-0.0082
p-value(0.8166)(0.8991)(0.8976)
Leeftijd;CMD-0.04650.02520.0182
p-value(0.5732)(0.7603)(0.7725)
Leeftijd;PEC0.14930.09320.0717
p-value(0.0691)(0.2583)(0.2589)
PS;O0.31770.28120.204
p-value(1e-04)(4e-04)(5e-04)
PS;CMD0.32820.32860.2345
p-value(0)(0)(0)
PS;PEC0.25340.21730.1576
p-value(0.0016)(0.0072)(0.0067)
O;CMD0.06340.04260.03
p-value(0.4379)(0.6023)(0.6052)
O;PEC-0.1828-0.183-0.1344
p-value(0.0242)(0.024)(0.0218)
CMD;PEC0.29960.28010.2148
p-value(2e-04)(5e-04)(2e-04)



Parameters (Session):
par1 = pearson ;
Parameters (R input):
par1 = pearson ; par2 = ; par3 = ; par4 = ; par5 = ; par6 = ; par7 = ; par8 = ; par9 = ; par10 = ; par11 = ; par12 = ; par13 = ; par14 = ; par15 = ; par16 = ; par17 = ; par18 = ; par19 = ; par20 = ;
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')