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 computationFri, 23 Dec 2011 06:37:02 -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/23/t13246402448hy39bjotiszc1f.htm/, Retrieved Mon, 29 Apr 2024 20:09:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160298, Retrieved Mon, 29 Apr 2024 20:09:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact78
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]
- RMPD    [Kendall tau Correlation Matrix] [Paper stat: Stude...] [2011-12-23 11:37:02] [9431a512beb885c6943db1a049152d0e] [Current]
- RMPD      [Stem-and-leaf Plot] [Paper Stat: Stem-...] [2011-12-23 12:11:29] [09e53a95f5780167f20e6b4304200573]
- RMP       [Recursive Partitioning (Regression Trees)] [Paper stat: Regre...] [2011-12-23 12:20:11] [09e53a95f5780167f20e6b4304200573]
- R           [Recursive Partitioning (Regression Trees)] [paper Stat: Tree ...] [2011-12-23 14:27:04] [09e53a95f5780167f20e6b4304200573]
- R P       [Kendall tau Correlation Matrix] [Paper stat: Kenda...] [2011-12-23 14:11:36] [09e53a95f5780167f20e6b4304200573]
- RMPD      [Histogram] [Paper Stat: Beoor...] [2011-12-23 14:21:57] [09e53a95f5780167f20e6b4304200573]
Feedback Forum

Post a new message
Dataseries X:
140824	186099	32033	165	165	130	279055
110459	113854	20654	135	132	143	212408
105079	99776	16346	121	121	118	233939
112098	106194	35926	148	145	146	222117
43929	100792	10621	73	71	73	179751
76173	47552	10024	49	47	89	70849
187326	250931	43068	185	177	146	599777
22807	6853	1271	5	5	22	33186
144408	115466	34416	125	124	132	227332
66485	110896	20318	93	92	92	258874
79089	169351	24409	154	149	147	359064
81625	94853	20648	98	93	203	264989
68788	72591	12347	70	70	113	209202
103297	101345	21857	148	148	171	368577
69446	113713	11034	100	100	87	269455
114948	165354	33433	150	142	208	397286
167949	164263	35902	197	194	153	335567
125081	135213	22355	114	113	97	428322
125818	111669	31219	169	162	95	182016
136588	134163	21983	200	186	197	267365
112431	140303	40085	148	147	160	279428
103037	150773	18507	140	137	148	508849
82317	111848	16278	74	71	84	206722
118906	102509	24662	128	123	227	200004
83515	96785	31452	140	134	154	257139
104581	116136	32580	116	115	151	270941
103129	158376	22883	147	138	142	296850
83243	153990	27652	132	125	148	329962
37110	64057	9845	70	66	110	187155
113344	230054	20190	144	137	149	393860
139165	184531	46201	155	152	179	327660
86652	114198	10971	165	159	149	269239
112302	198299	34811	161	159	187	386982
69652	33750	3029	31	31	153	130446
119442	189723	38941	199	185	163	430118
69867	100826	4958	78	78	127	273950
101629	188355	32344	121	117	151	428077
70168	104470	19433	112	109	100	254312
31081	58391	12558	41	41	46	120351
103925	164808	36524	158	149	156	395643
92622	134097	26041	123	123	128	345875
79011	80238	16637	104	103	111	212715
93487	133252	28395	94	87	119	224524
64520	54518	16747	73	71	148	182485
93473	121850	9105	52	51	65	157164
114360	79367	11941	71	70	134	459455
33032	56968	7935	21	21	66	78800
96125	106314	19499	155	155	201	217932
151911	191889	22938	174	172	177	368086
89256	104864	25314	136	133	156	228688
95676	160792	28527	128	125	158	244765
5950	15049	2694	7	7	7	24188
149695	191179	20867	165	158	175	400109
32551	25109	3597	21	21	61	65029
31701	45824	5296	35	35	41	101097
100087	129711	32982	137	133	133	305666
169707	210012	38975	174	169	228	369627
150491	194679	42721	257	256	140	367127
120192	197680	41455	207	190	155	377704
95893	81180	23923	103	100	141	280106
151715	197765	26719	171	171	181	400971
176225	214738	53405	279	267	75	315924
59900	96252	12526	83	80	97	291391
104767	124527	26584	130	126	142	295075
114799	153242	37062	131	132	136	280018
72128	145707	25696	126	121	87	267432
143592	113963	24634	158	156	140	217181
89626	134904	27269	138	133	169	258166
131072	114268	25270	200	199	129	260919
126817	94333	24634	104	98	92	182961
81351	102204	17828	111	109	160	256967
22618	23824	3007	26	25	67	73566
88977	111563	20065	115	113	179	272362
92059	91313	24648	127	126	90	229056
81897	89770	21588	140	137	144	229851
108146	100125	25217	121	121	144	371391
126372	165278	30927	183	178	144	398210
249771	181712	18487	68	63	134	220419
71154	80906	18050	112	109	146	231884
71571	75881	17696	103	101	121	217714
55918	83963	17326	63	61	112	200046
160141	175721	39361	166	157	145	483074
38692	68580	9648	38	38	99	145943
102812	136323	26759	163	159	96	295224
56622	55792	7905	59	58	27	80953
15986	25157	4527	27	27	77	217384
123534	100922	41517	108	108	137	179344
108535	118845	21261	88	83	151	415550
93879	170492	36099	92	88	126	389059
144551	81716	39039	170	164	159	180679
56750	115750	13841	98	96	101	299505
127654	105590	23841	205	192	144	292260
65594	92795	8589	96	94	102	199481
59938	82390	15049	107	107	135	282361
146975	135599	39038	150	144	147	329281
165904	127667	36774	138	136	155	234577
169265	163073	40076	177	171	138	297995
183500	211381	43840	213	210	113	329583
165986	189944	43146	208	193	248	416463
184923	226168	50099	307	297	116	415683
140358	117495	40312	125	125	176	297080
149959	195894	32616	208	204	140	318283
57224	80684	11338	73	70	59	224033
43750	19630	7409	49	49	64	43287
48029	88634	18213	82	82	40	238089
104978	139292	45873	206	205	98	263322
100046	128602	39844	112	111	139	299566
101047	135848	28317	139	135	135	321797
197426	178377	24797	60	59	97	193926
160902	106330	7471	70	70	142	170491
147172	178303	27259	112	108	155	354041
109432	116938	23201	142	141	115	303273
1168	5841	238	11	11	0	23668
83248	106020	28830	130	130	103	196743
25162	24610	3913	31	28	30	61857
45724	74151	9935	132	101	130	217543
110529	232241	27738	219	216	102	440711
855	6622	338	4	4	0	21054
101382	127097	13326	102	97	77	252805
14116	13155	3988	39	39	9	31961
89506	160501	24347	125	119	150	360436
135356	91502	27111	121	118	163	251948
116066	24469	3938	42	41	148	187003
144244	88229	17416	111	107	94	180842
8773	13983	1888	16	16	21	38214
102153	80716	18700	70	69	151	278173
117440	157384	36809	162	160	187	358276
104128	122975	24959	173	158	171	211775
134238	191469	37343	171	161	170	445926
134047	231257	21849	172	165	145	348017
279488	258287	49809	254	246	198	441946
79756	122531	21654	90	89	152	215177
66089	61394	8728	50	49	112	126320
102070	86480	20920	113	107	173	316128
146760	195791	27195	187	182	177	466139
154771	18284	1037	16	16	153	162279
165933	147581	42570	175	173	161	416643
64593	72558	17672	90	90	115	178322
92280	147341	34245	140	140	147	292443
67150	114651	16786	145	142	124	283913
128692	100187	20954	141	126	57	244802
124089	130332	16378	125	123	144	387072
125386	134218	31852	241	239	126	246963
37238	10901	2805	16	15	78	173260
140015	145758	38086	175	170	153	346748
150047	75767	21166	132	123	196	176654
154451	134969	34672	154	151	130	267742
156349	169216	36171	198	194	159	314070




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160298&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'Herman Ole Andreas Wold' @ wold.wessa.net







Correlations for all pairs of data series (method=pearson)
Y1X1X2X3X4X5X6
Y110.7340.7090.6930.6940.6070.601
X10.73410.7720.8010.80.5490.817
X20.7090.77210.8210.8250.5540.652
X30.6930.8010.82110.9980.5620.694
X40.6940.80.8250.99810.5580.692
X50.6070.5490.5540.5620.55810.624
X60.6010.8170.6520.6940.6920.6241

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Y1 & X1 & X2 & X3 & X4 & X5 & X6 \tabularnewline
Y1 & 1 & 0.734 & 0.709 & 0.693 & 0.694 & 0.607 & 0.601 \tabularnewline
X1 & 0.734 & 1 & 0.772 & 0.801 & 0.8 & 0.549 & 0.817 \tabularnewline
X2 & 0.709 & 0.772 & 1 & 0.821 & 0.825 & 0.554 & 0.652 \tabularnewline
X3 & 0.693 & 0.801 & 0.821 & 1 & 0.998 & 0.562 & 0.694 \tabularnewline
X4 & 0.694 & 0.8 & 0.825 & 0.998 & 1 & 0.558 & 0.692 \tabularnewline
X5 & 0.607 & 0.549 & 0.554 & 0.562 & 0.558 & 1 & 0.624 \tabularnewline
X6 & 0.601 & 0.817 & 0.652 & 0.694 & 0.692 & 0.624 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160298&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Y1[/C][C]X1[/C][C]X2[/C][C]X3[/C][C]X4[/C][C]X5[/C][C]X6[/C][/ROW]
[ROW][C]Y1[/C][C]1[/C][C]0.734[/C][C]0.709[/C][C]0.693[/C][C]0.694[/C][C]0.607[/C][C]0.601[/C][/ROW]
[ROW][C]X1[/C][C]0.734[/C][C]1[/C][C]0.772[/C][C]0.801[/C][C]0.8[/C][C]0.549[/C][C]0.817[/C][/ROW]
[ROW][C]X2[/C][C]0.709[/C][C]0.772[/C][C]1[/C][C]0.821[/C][C]0.825[/C][C]0.554[/C][C]0.652[/C][/ROW]
[ROW][C]X3[/C][C]0.693[/C][C]0.801[/C][C]0.821[/C][C]1[/C][C]0.998[/C][C]0.562[/C][C]0.694[/C][/ROW]
[ROW][C]X4[/C][C]0.694[/C][C]0.8[/C][C]0.825[/C][C]0.998[/C][C]1[/C][C]0.558[/C][C]0.692[/C][/ROW]
[ROW][C]X5[/C][C]0.607[/C][C]0.549[/C][C]0.554[/C][C]0.562[/C][C]0.558[/C][C]1[/C][C]0.624[/C][/ROW]
[ROW][C]X6[/C][C]0.601[/C][C]0.817[/C][C]0.652[/C][C]0.694[/C][C]0.692[/C][C]0.624[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160298&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160298&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)
Y1X1X2X3X4X5X6
Y110.7340.7090.6930.6940.6070.601
X10.73410.7720.8010.80.5490.817
X20.7090.77210.8210.8250.5540.652
X30.6930.8010.82110.9980.5620.694
X40.6940.80.8250.99810.5580.692
X50.6070.5490.5540.5620.55810.624
X60.6010.8170.6520.6940.6920.6241







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Y1;X10.73410.69390.5225
p-value(0)(0)(0)
Y1;X20.7090.70490.5423
p-value(0)(0)(0)
Y1;X30.69330.70110.5493
p-value(0)(0)(0)
Y1;X40.69440.70440.5509
p-value(0)(0)(0)
Y1;X50.60660.53750.3879
p-value(0)(0)(0)
Y1;X60.60060.54870.4032
p-value(0)(0)(0)
X1;X20.77210.76570.5874
p-value(0)(0)(0)
X1;X30.80050.7730.605
p-value(0)(0)(0)
X1;X40.79960.77690.6071
p-value(0)(0)(0)
X1;X50.54860.47510.3431
p-value(0)(0)(0)
X1;X60.81730.79990.6251
p-value(0)(0)(0)
X2;X30.82150.79150.6202
p-value(0)(0)(0)
X2;X40.8250.79990.6275
p-value(0)(0)(0)
X2;X50.55350.5110.3622
p-value(0)(0)(0)
X2;X60.6520.63910.4655
p-value(0)(0)(0)
X3;X40.99780.9960.9674
p-value(0)(0)(0)
X3;X50.56240.53690.3882
p-value(0)(0)(0)
X3;X60.69390.6820.5068
p-value(0)(0)(0)
X4;X50.55790.53450.385
p-value(0)(0)(0)
X4;X60.69190.68330.5059
p-value(0)(0)(0)
X5;X60.62410.53640.3942
p-value(0)(0)(0)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
Y1;X1 & 0.7341 & 0.6939 & 0.5225 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Y1;X2 & 0.709 & 0.7049 & 0.5423 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Y1;X3 & 0.6933 & 0.7011 & 0.5493 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Y1;X4 & 0.6944 & 0.7044 & 0.5509 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Y1;X5 & 0.6066 & 0.5375 & 0.3879 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Y1;X6 & 0.6006 & 0.5487 & 0.4032 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X1;X2 & 0.7721 & 0.7657 & 0.5874 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X1;X3 & 0.8005 & 0.773 & 0.605 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X1;X4 & 0.7996 & 0.7769 & 0.6071 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X1;X5 & 0.5486 & 0.4751 & 0.3431 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X1;X6 & 0.8173 & 0.7999 & 0.6251 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X2;X3 & 0.8215 & 0.7915 & 0.6202 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X2;X4 & 0.825 & 0.7999 & 0.6275 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X2;X5 & 0.5535 & 0.511 & 0.3622 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X2;X6 & 0.652 & 0.6391 & 0.4655 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X3;X4 & 0.9978 & 0.996 & 0.9674 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X3;X5 & 0.5624 & 0.5369 & 0.3882 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X3;X6 & 0.6939 & 0.682 & 0.5068 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X4;X5 & 0.5579 & 0.5345 & 0.385 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X4;X6 & 0.6919 & 0.6833 & 0.5059 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X5;X6 & 0.6241 & 0.5364 & 0.3942 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160298&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]Y1;X1[/C][C]0.7341[/C][C]0.6939[/C][C]0.5225[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Y1;X2[/C][C]0.709[/C][C]0.7049[/C][C]0.5423[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Y1;X3[/C][C]0.6933[/C][C]0.7011[/C][C]0.5493[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Y1;X4[/C][C]0.6944[/C][C]0.7044[/C][C]0.5509[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Y1;X5[/C][C]0.6066[/C][C]0.5375[/C][C]0.3879[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Y1;X6[/C][C]0.6006[/C][C]0.5487[/C][C]0.4032[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X1;X2[/C][C]0.7721[/C][C]0.7657[/C][C]0.5874[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X1;X3[/C][C]0.8005[/C][C]0.773[/C][C]0.605[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X1;X4[/C][C]0.7996[/C][C]0.7769[/C][C]0.6071[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X1;X5[/C][C]0.5486[/C][C]0.4751[/C][C]0.3431[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X1;X6[/C][C]0.8173[/C][C]0.7999[/C][C]0.6251[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X2;X3[/C][C]0.8215[/C][C]0.7915[/C][C]0.6202[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X2;X4[/C][C]0.825[/C][C]0.7999[/C][C]0.6275[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X2;X5[/C][C]0.5535[/C][C]0.511[/C][C]0.3622[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X2;X6[/C][C]0.652[/C][C]0.6391[/C][C]0.4655[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X3;X4[/C][C]0.9978[/C][C]0.996[/C][C]0.9674[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X3;X5[/C][C]0.5624[/C][C]0.5369[/C][C]0.3882[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X3;X6[/C][C]0.6939[/C][C]0.682[/C][C]0.5068[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X4;X5[/C][C]0.5579[/C][C]0.5345[/C][C]0.385[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X4;X6[/C][C]0.6919[/C][C]0.6833[/C][C]0.5059[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X5;X6[/C][C]0.6241[/C][C]0.5364[/C][C]0.3942[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160298&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160298&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
Y1;X10.73410.69390.5225
p-value(0)(0)(0)
Y1;X20.7090.70490.5423
p-value(0)(0)(0)
Y1;X30.69330.70110.5493
p-value(0)(0)(0)
Y1;X40.69440.70440.5509
p-value(0)(0)(0)
Y1;X50.60660.53750.3879
p-value(0)(0)(0)
Y1;X60.60060.54870.4032
p-value(0)(0)(0)
X1;X20.77210.76570.5874
p-value(0)(0)(0)
X1;X30.80050.7730.605
p-value(0)(0)(0)
X1;X40.79960.77690.6071
p-value(0)(0)(0)
X1;X50.54860.47510.3431
p-value(0)(0)(0)
X1;X60.81730.79990.6251
p-value(0)(0)(0)
X2;X30.82150.79150.6202
p-value(0)(0)(0)
X2;X40.8250.79990.6275
p-value(0)(0)(0)
X2;X50.55350.5110.3622
p-value(0)(0)(0)
X2;X60.6520.63910.4655
p-value(0)(0)(0)
X3;X40.99780.9960.9674
p-value(0)(0)(0)
X3;X50.56240.53690.3882
p-value(0)(0)(0)
X3;X60.69390.6820.5068
p-value(0)(0)(0)
X4;X50.55790.53450.385
p-value(0)(0)(0)
X4;X60.69190.68330.5059
p-value(0)(0)(0)
X5;X60.62410.53640.3942
p-value(0)(0)(0)



Parameters (Session):
par1 = pearson ;
Parameters (R input):
par1 = pearson ;
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')