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 computationThu, 06 Dec 2012 14:27:55 -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/2012/Dec/06/t1354822092oco9mcvgehsazit.htm/, Retrieved Fri, 29 Mar 2024 08:15:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=197227, Retrieved Fri, 29 Mar 2024 08:15:14 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact91
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 18:04:16] [b98453cac15ba1066b407e146608df68]
- RMPD    [Kendall tau Correlation Matrix] [kendall tau] [2012-12-06 19:27:55] [6c45f368330652e778bc9af460dd8da6] [Current]
Feedback Forum

Post a new message
Dataseries X:
1418	210907	56	112285	3	145
869	120982	56	84786	4	101
1530	176508	54	83123	12	98
2172	179321	89	101193	2	132
901	123185	40	38361	1	60
463	52746	25	68504	3	38
3201	385534	92	119182	0	144
371	33170	18	22807	0	5
1192	101645	63	17140	0	28
1583	149061	44	116174	5	84
1439	165446	33	57635	0	79
1764	237213	84	66198	0	127
1495	173326	88	71701	7	78
1373	133131	55	57793	7	60
2187	258873	60	80444	3	131
1491	180083	66	53855	9	84
4041	324799	154	97668	0	133
1706	230964	53	133824	4	150
2152	236785	119	101481	3	91
1036	135473	41	99645	0	132
1882	202925	61	114789	7	136
1929	215147	58	99052	0	124
2242	344297	75	67654	1	118
1220	153935	33	65553	5	70
1289	132943	40	97500	7	107
2515	174724	92	69112	0	119
2147	174415	100	82753	0	89
2352	225548	112	85323	5	112
1638	223632	73	72654	0	108
1222	124817	40	30727	0	52
1812	221698	45	77873	0	112
1677	210767	60	117478	3	116
1579	170266	62	74007	4	123
1731	260561	75	90183	1	125
807	84853	31	61542	4	27
2452	294424	77	101494	2	162
829	101011	34	27570	0	32
1940	215641	46	55813	0	64
2662	325107	99	79215	0	92
186	7176	17	1423	0	0
1499	167542	66	55461	2	83
865	106408	30	31081	1	41
1793	96560	76	22996	0	47
2527	265769	146	83122	2	120
2747	269651	67	70106	10	105
1324	149112	56	60578	6	79
2702	175824	107	39992	0	65
1383	152871	58	79892	5	70
1179	111665	34	49810	4	55
2099	116408	61	71570	1	39
4308	362301	119	100708	2	67
918	78800	42	33032	2	21
1831	183167	66	82875	0	127
3373	277965	89	139077	8	152
1713	150629	44	71595	3	113
1438	168809	66	72260	0	99
496	24188	24	5950	0	7
2253	329267	259	115762	8	141
744	65029	17	32551	5	21
1161	101097	64	31701	3	35
2352	218946	41	80670	1	109
2144	244052	68	143558	5	133
4691	341570	168	117105	1	123
1112	103597	43	23789	1	26
2694	233328	132	120733	5	230
1973	256462	105	105195	0	166
1769	206161	71	73107	12	68
3148	311473	112	132068	8	147
2474	235800	94	149193	8	179
2084	177939	82	46821	8	61
1954	207176	70	87011	8	101
1226	196553	57	95260	2	108
1389	174184	53	55183	0	90
1496	143246	103	106671	5	114
2269	187559	121	73511	8	103
1833	187681	62	92945	2	142
1268	119016	52	78664	5	79
1943	182192	52	70054	12	88
893	73566	32	22618	6	25
1762	194979	62	74011	7	83
1403	167488	45	83737	2	113
1425	143756	46	69094	0	118
1857	275541	63	93133	4	110
1840	243199	75	95536	3	129
1502	182999	88	225920	6	51
1441	135649	46	62133	2	93
1420	152299	53	61370	0	76
1416	120221	37	43836	1	49
2970	346485	90	106117	0	118
1317	145790	63	38692	5	38
1644	193339	78	84651	2	141
870	80953	25	56622	0	58
1654	122774	45	15986	0	27
1054	130585	46	95364	5	91
937	112611	41	26706	0	48
3004	286468	144	89691	1	63
2008	241066	82	67267	0	56
2547	148446	91	126846	1	144
1885	204713	71	41140	1	73
1626	182079	63	102860	2	168
1468	140344	53	51715	6	64
2445	220516	62	55801	1	97
1964	243060	63	111813	4	117
1381	162765	32	120293	2	100
1369	182613	39	138599	3	149
1659	232138	62	161647	0	187
2888	265318	117	115929	10	127
1290	85574	34	24266	0	37
2845	310839	92	162901	9	245
1982	225060	93	109825	7	87
1904	232317	54	129838	0	177
1391	144966	144	37510	0	49
602	43287	14	43750	4	49
1743	155754	61	40652	4	73
1559	164709	109	87771	0	177
2014	201940	38	85872	0	94
2143	235454	73	89275	0	117
2146	220801	75	44418	1	60
874	99466	50	192565	0	55
1590	92661	61	35232	1	39
1590	133328	55	40909	0	64
1210	61361	77	13294	0	26
2072	125930	75	32387	4	64
1281	100750	72	140867	0	58
1401	224549	50	120662	4	95
834	82316	32	21233	4	25
1105	102010	53	44332	3	26
1272	101523	42	61056	0	76
1944	243511	71	101338	0	129
391	22938	10	1168	0	11
761	41566	35	13497	5	2
1605	152474	65	65567	0	101
530	61857	25	25162	4	28
1988	99923	66	32334	0	36
1386	132487	41	40735	0	89
2395	317394	86	91413	1	193
387	21054	16	855	0	4
1742	209641	42	97068	5	84
620	22648	19	44339	0	23
449	31414	19	14116	0	39
800	46698	45	10288	0	14
1684	131698	65	65622	0	78
1050	91735	35	16563	0	14
2699	244749	95	76643	2	101
1606	184510	49	110681	7	82
1502	79863	37	29011	1	24
1204	128423	64	92696	8	36
1138	97839	38	94785	2	75
568	38214	34	8773	0	16
1459	151101	32	83209	2	55
2158	272458	65	93815	0	131
1111	172494	52	86687	0	131
1421	108043	62	34553	1	39
2833	328107	65	105547	3	144
1955	250579	83	103487	0	139
2922	351067	95	213688	3	211
1002	158015	29	71220	0	78
1060	98866	18	23517	0	50
956	85439	33	56926	0	39
2186	229242	247	91721	4	90
3604	351619	139	115168	4	166
1035	84207	29	111194	11	12
1417	120445	118	51009	0	57
3261	324598	110	135777	0	133
1587	131069	67	51513	4	69
1424	204271	42	74163	0	119
1701	165543	65	51633	1	119
1249	141722	94	75345	0	65
946	116048	64	33416	0	61
1926	250047	81	83305	0	49
3352	299775	95	98952	9	101
1641	195838	67	102372	1	196
2035	173260	63	37238	3	15
2312	254488	83	103772	10	136
1369	104389	45	123969	5	89
1577	136084	30	27142	0	40
2201	199476	70	135400	2	123
961	92499	32	21399	0	21
1900	224330	83	130115	1	163
1254	135781	31	24874	2	29
1335	74408	67	34988	4	35
1597	81240	66	45549	0	13
207	14688	10	6023	0	5
1645	181633	70	64466	2	96
2429	271856	103	54990	1	151
151	7199	5	1644	0	6
474	46660	20	6179	0	13
141	17547	5	3926	0	3
1639	133368	36	32755	1	56
872	95227	34	34777	0	23
1318	152601	48	73224	2	57
1018	98146	40	27114	0	14
1383	79619	43	20760	3	43
1314	59194	31	37636	6	20
1335	139942	42	65461	0	72
1403	118612	46	30080	2	87
910	72880	33	24094	0	21
616	65475	18	69008	2	56
1407	99643	55	54968	1	59
771	71965	35	46090	1	82
766	77272	59	27507	2	43
473	49289	19	10672	1	25
1376	135131	66	34029	0	38
1232	108446	60	46300	1	25
1521	89746	36	24760	3	38
572	44296	25	18779	0	12
1059	77648	47	21280	0	29
1544	181528	54	40662	0	47
1230	134019	53	28987	0	45
1206	124064	40	22827	1	40
1205	92630	40	18513	4	30
1255	121848	39	30594	0	41
613	52915	14	24006	0	25
721	81872	45	27913	0	23
1109	58981	36	42744	7	14
740	53515	28	12934	2	16
1126	60812	44	22574	0	26
728	56375	30	41385	7	21
689	65490	22	18653	3	27
592	80949	17	18472	0	9
995	76302	31	30976	0	33
1613	104011	55	63339	6	42
2048	98104	54	25568	2	68
705	67989	21	33747	0	32
301	30989	14	4154	0	6
1803	135458	81	19474	3	67
799	73504	35	35130	0	33
861	63123	43	39067	1	77
1186	61254	46	13310	1	46
1451	74914	30	65892	0	30
628	31774	23	4143	1	0
1161	81437	38	28579	0	36
1463	87186	54	51776	0	46
742	50090	20	21152	0	18
979	65745	53	38084	0	48
675	56653	45	27717	0	29
1241	158399	39	32928	0	28
676	46455	20	11342	0	34
1049	73624	24	19499	0	33
620	38395	31	16380	0	34
1081	91899	35	36874	0	33
1688	139526	151	48259	0	80
736	52164	52	16734	0	32
617	51567	30	28207	2	30
812	70551	31	30143	0	41
1051	84856	29	41369	1	41
1656	102538	57	45833	1	51
705	86678	40	29156	0	18
945	85709	44	35944	0	34
554	34662	25	36278	0	31
1597	150580	77	45588	0	39
982	99611	35	45097	0	54
222	19349	11	3895	0	14
1212	99373	63	28394	1	24
1143	86230	44	18632	0	24
435	30837	19	2325	0	8
532	31706	13	25139	0	26
882	89806	42	27975	0	19
608	62088	38	14483	1	11
459	40151	29	13127	0	14
578	27634	20	5839	0	1
826	76990	27	24069	0	39
509	37460	20	3738	0	5
717	54157	19	18625	0	37
637	49862	37	36341	0	32
857	84337	26	24548	0	38
830	64175	42	21792	0	47
652	59382	49	26263	0	47
707	119308	30	23686	0	37
954	76702	49	49303	0	51
1461	103425	67	25659	1	45
672	70344	28	28904	0	21
778	43410	19	2781	0	1
1141	104838	49	29236	1	42
680	62215	27	19546	0	26
1090	69304	30	22818	6	21
616	53117	22	32689	3	4
285	19764	12	5752	1	10
1145	86680	31	22197	2	43
733	84105	20	20055	0	34
888	77945	20	25272	0	31
849	89113	39	82206	0	19
1182	91005	29	32073	3	34
528	40248	16	5444	1	6
642	64187	27	20154	0	11
947	50857	21	36944	0	24
819	56613	19	8019	1	16
757	62792	35	30884	0	72
894	72535	14	19540	0	21




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=197227&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 time3 seconds
R Server'George Udny Yule' @ yule.wessa.net







Correlations for all pairs of data series (method=kendall)
viewstimeloginstotsizesharedblogs
views10.7390.6610.5320.2510.583
time0.73910.6090.6170.2450.665
logins0.6610.60910.4740.2080.512
totsize0.5320.6170.47410.3010.656
shared0.2510.2450.2080.30110.227
blogs0.5830.6650.5120.6560.2271

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & views & time & logins & totsize & shared & blogs \tabularnewline
views & 1 & 0.739 & 0.661 & 0.532 & 0.251 & 0.583 \tabularnewline
time & 0.739 & 1 & 0.609 & 0.617 & 0.245 & 0.665 \tabularnewline
logins & 0.661 & 0.609 & 1 & 0.474 & 0.208 & 0.512 \tabularnewline
totsize & 0.532 & 0.617 & 0.474 & 1 & 0.301 & 0.656 \tabularnewline
shared & 0.251 & 0.245 & 0.208 & 0.301 & 1 & 0.227 \tabularnewline
blogs & 0.583 & 0.665 & 0.512 & 0.656 & 0.227 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=197227&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]views[/C][C]time[/C][C]logins[/C][C]totsize[/C][C]shared[/C][C]blogs[/C][/ROW]
[ROW][C]views[/C][C]1[/C][C]0.739[/C][C]0.661[/C][C]0.532[/C][C]0.251[/C][C]0.583[/C][/ROW]
[ROW][C]time[/C][C]0.739[/C][C]1[/C][C]0.609[/C][C]0.617[/C][C]0.245[/C][C]0.665[/C][/ROW]
[ROW][C]logins[/C][C]0.661[/C][C]0.609[/C][C]1[/C][C]0.474[/C][C]0.208[/C][C]0.512[/C][/ROW]
[ROW][C]totsize[/C][C]0.532[/C][C]0.617[/C][C]0.474[/C][C]1[/C][C]0.301[/C][C]0.656[/C][/ROW]
[ROW][C]shared[/C][C]0.251[/C][C]0.245[/C][C]0.208[/C][C]0.301[/C][C]1[/C][C]0.227[/C][/ROW]
[ROW][C]blogs[/C][C]0.583[/C][C]0.665[/C][C]0.512[/C][C]0.656[/C][C]0.227[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=197227&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=197227&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)
viewstimeloginstotsizesharedblogs
views10.7390.6610.5320.2510.583
time0.73910.6090.6170.2450.665
logins0.6610.60910.4740.2080.512
totsize0.5320.6170.47410.3010.656
shared0.2510.2450.2080.30110.227
blogs0.5830.6650.5120.6560.2271







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
views;time0.89280.90250.7387
p-value(0)(0)(0)
views;logins0.75880.8450.6609
p-value(0)(0)(0)
views;totsize0.64390.72120.5315
p-value(0)(0)(0)
views;shared0.29720.3410.2511
p-value(0)(0)(0)
views;blogs0.70240.77960.5828
p-value(0)(0)(0)
time;logins0.7160.79820.609
p-value(0)(0)(0)
time;totsize0.74620.81180.6171
p-value(0)(0)(0)
time;shared0.29410.32960.2453
p-value(0)(0)(0)
time;blogs0.81430.85730.665
p-value(0)(0)(0)
logins;totsize0.53640.65880.4742
p-value(0)(0)(0)
logins;shared0.25050.27950.2078
p-value(0)(0)(0)
logins;blogs0.5810.70780.5116
p-value(0)(0)(0)
totsize;shared0.38610.40320.3007
p-value(0)(0)(0)
totsize;blogs0.79830.83940.6562
p-value(0)(0)(0)
shared;blogs0.26590.30640.2269
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
views;time & 0.8928 & 0.9025 & 0.7387 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
views;logins & 0.7588 & 0.845 & 0.6609 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
views;totsize & 0.6439 & 0.7212 & 0.5315 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
views;shared & 0.2972 & 0.341 & 0.2511 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
views;blogs & 0.7024 & 0.7796 & 0.5828 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;logins & 0.716 & 0.7982 & 0.609 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;totsize & 0.7462 & 0.8118 & 0.6171 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;shared & 0.2941 & 0.3296 & 0.2453 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;blogs & 0.8143 & 0.8573 & 0.665 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;totsize & 0.5364 & 0.6588 & 0.4742 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;shared & 0.2505 & 0.2795 & 0.2078 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;blogs & 0.581 & 0.7078 & 0.5116 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;shared & 0.3861 & 0.4032 & 0.3007 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;blogs & 0.7983 & 0.8394 & 0.6562 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shared;blogs & 0.2659 & 0.3064 & 0.2269 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=197227&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]views;time[/C][C]0.8928[/C][C]0.9025[/C][C]0.7387[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]views;logins[/C][C]0.7588[/C][C]0.845[/C][C]0.6609[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]views;totsize[/C][C]0.6439[/C][C]0.7212[/C][C]0.5315[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]views;shared[/C][C]0.2972[/C][C]0.341[/C][C]0.2511[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]views;blogs[/C][C]0.7024[/C][C]0.7796[/C][C]0.5828[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;logins[/C][C]0.716[/C][C]0.7982[/C][C]0.609[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;totsize[/C][C]0.7462[/C][C]0.8118[/C][C]0.6171[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;shared[/C][C]0.2941[/C][C]0.3296[/C][C]0.2453[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;blogs[/C][C]0.8143[/C][C]0.8573[/C][C]0.665[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;totsize[/C][C]0.5364[/C][C]0.6588[/C][C]0.4742[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;shared[/C][C]0.2505[/C][C]0.2795[/C][C]0.2078[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;blogs[/C][C]0.581[/C][C]0.7078[/C][C]0.5116[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;shared[/C][C]0.3861[/C][C]0.4032[/C][C]0.3007[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;blogs[/C][C]0.7983[/C][C]0.8394[/C][C]0.6562[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shared;blogs[/C][C]0.2659[/C][C]0.3064[/C][C]0.2269[/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=197227&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=197227&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
views;time0.89280.90250.7387
p-value(0)(0)(0)
views;logins0.75880.8450.6609
p-value(0)(0)(0)
views;totsize0.64390.72120.5315
p-value(0)(0)(0)
views;shared0.29720.3410.2511
p-value(0)(0)(0)
views;blogs0.70240.77960.5828
p-value(0)(0)(0)
time;logins0.7160.79820.609
p-value(0)(0)(0)
time;totsize0.74620.81180.6171
p-value(0)(0)(0)
time;shared0.29410.32960.2453
p-value(0)(0)(0)
time;blogs0.81430.85730.665
p-value(0)(0)(0)
logins;totsize0.53640.65880.4742
p-value(0)(0)(0)
logins;shared0.25050.27950.2078
p-value(0)(0)(0)
logins;blogs0.5810.70780.5116
p-value(0)(0)(0)
totsize;shared0.38610.40320.3007
p-value(0)(0)(0)
totsize;blogs0.79830.83940.6562
p-value(0)(0)(0)
shared;blogs0.26590.30640.2269
p-value(0)(0)(0)



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