Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_pairs.wasp

Title produced by software

Kendall tau Correlation Matrix

Date of computation

Mon, 19 Dec 2011 07:11:50 -0500

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/19/t1324296745t213k1hgex47zc0.htm/, Retrieved Wed, 15 May 2024 18:23:38 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=157307, Retrieved Wed, 15 May 2024 18:23:38 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

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] [] [2011-12-13 16:14:56] [a1957df0bc37aec4aa3c994e6a08412c]
-   PD    [Kendall tau Correlation Matrix] [] [2011-12-13 22:09:40] [a1957df0bc37aec4aa3c994e6a08412c]
-   PD        [Kendall tau Correlation Matrix] [] [2011-12-19 12:11:50] [fdaf10f0fcbe7b8f79ecbd42ec74e6ad] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

112285	210907	24188	145	1418
84786	120982	18273	101	869
83123	176508	14130	98	1530
101193	179321	32287	132	2172
38361	123185	8654	60	901
68504	52746	9245	38	463
119182	385534	33251	144	3201
22807	33170	1271	5	371
17140	101645	5279	28	1192
116174	149061	27101	84	1583
57635	165446	16373	79	1439
66198	237213	19716	127	1764
71701	173326	17753	78	1495
57793	133131	9028	60	1373
80444	258873	18653	131	2187
53855	180083	8828	84	1491
97668	324799	29498	133	4041
133824	230964	27563	150	1706
101481	236785	18293	91	2152
99645	135473	22530	132	1036
114789	202925	15977	136	1882
99052	215147	35082	124	1929
67654	344297	16116	118	2242
65553	153935	15849	70	1220
97500	132943	16026	107	1289
69112	174724	26569	119	2515
82753	174415	24785	89	2147
85323	225548	17569	112	2352
72654	223632	23825	108	1638
30727	124817	7869	52	1222
77873	221698	14975	112	1812
117478	210767	37791	116	1677
74007	170266	9605	123	1579
90183	260561	27295	125	1731
61542	84853	2746	27	807
101494	294424	34461	162	2452
27570	101011	8098	32	829
55813	215641	4787	64	1940
79215	325107	24919	92	2662
1423	7176	603	0	186
55461	167542	16329	83	1499
31081	106408	12558	41	865
22996	96560	7784	47	1793
83122	265769	28522	120	2527
70106	269651	22265	105	2747
60578	149112	14459	79	1324
39992	175824	14526	65	2702
79892	152871	22240	70	1383
49810	111665	11802	55	1179
71570	116408	7623	39	2099
100708	362301	11912	67	4308
33032	78800	7935	21	918
82875	183167	18220	127	1831
139077	277965	19199	152	3373
71595	150629	19918	113	1713
72260	168809	21884	99	1438
5950	24188	2694	7	496
115762	329267	15808	141	2253
32551	65029	3597	21	744
31701	101097	5296	35	1161
80670	218946	25239	109	2352
143558	244052	29801	133	2144
117105	341570	18450	123	4691
23789	103597	7132	26	1112
120733	233328	34861	230	2694
105195	256462	35940	166	1973
73107	206161	16688	68	1769
132068	311473	24683	147	3148
149193	235800	46230	179	2474
46821	177939	10387	61	2084
87011	207176	21436	101	1954
95260	196553	30546	108	1226
55183	174184	19746	90	1389
106671	143246	15977	114	1496
73511	187559	22583	103	2269
92945	187681	17274	142	1833
78664	119016	16469	79	1268
70054	182192	14251	88	1943
22618	73566	3007	25	893
74011	194979	16851	83	1762
83737	167488	21113	113	1403
69094	143756	17401	118	1425
93133	275541	23958	110	1857
95536	243199	23567	129	1840
225920	182999	13065	51	1502
62133	135649	15358	93	1441
61370	152299	14587	76	1420
43836	120221	12770	49	1416
106117	346485	24021	118	2970
38692	145790	9648	38	1317
84651	193339	20537	141	1644
56622	80953	7905	58	870
15986	122774	4527	27	1654
95364	130585	30495	91	1054
26706	112611	7117	48	937
89691	286468	17719	63	3004
67267	241066	27056	56	2008
126846	148446	33473	144	2547
41140	204713	9758	73	1885
102860	182079	21115	168	1626
51715	140344	7236	64	1468
55801	220516	13790	97	2445
111813	243060	32902	117	1964
120293	162765	25131	100	1381
138599	182613	30910	149	1369
161647	232138	35947	187	1659
115929	265318	29848	127	2888
24266	85574	6943	37	1290
162901	310839	42705	245	2845
109825	225060	31808	87	1982
129838	232317	26675	177	1904
37510	144966	8435	49	1391
43750	43287	7409	49	602
40652	155754	14993	73	1743
87771	164709	36867	177	1559
85872	201940	33835	94	2014
89275	235454	24164	117	2143
44418	220801	12607	60	2146
192565	99466	22609	55	874
35232	92661	5892	39	1590
40909	133328	17014	64	1590
13294	61361	5394	26	1210
32387	125930	9178	64	2072
140867	100750	6440	58	1281
120662	224549	21916	95	1401
21233	82316	4011	25	834
44332	102010	5818	26	1105
61056	101523	18647	76	1272
101338	243511	20556	129	1944
1168	22938	238	11	391
13497	41566	70	2	761
65567	152474	22392	101	1605
25162	61857	3913	28	530
32334	99923	12237	36	1988
40735	132487	8388	89	1386
91413	317394	22120	193	2395
855	21054	338	4	387
97068	209641	11727	84	1742
44339	22648	3704	23	620
14116	31414	3988	39	449
10288	46698	3030	14	800
65622	131698	13520	78	1684
16563	91735	1421	14	1050
76643	244749	20923	101	2699
110681	184510	20237	82	1606
29011	79863	3219	24	1502
92696	128423	3769	36	1204
94785	97839	12252	75	1138
8773	38214	1888	16	568
83209	151101	14497	55	1459
93815	272458	28864	131	2158
86687	172494	21721	131	1111
34553	108043	4821	39	1421
105547	328107	33644	144	2833
103487	250579	15923	139	1955
213688	351067	42935	211	2922
71220	158015	18864	78	1002
23517	98866	4977	50	1060
56926	85439	7785	39	956
91721	229242	17939	90	2186
115168	351619	23436	166	3604
111194	84207	325	12	1035
51009	120445	13539	57	1417
135777	324598	34538	133	3261
51513	131069	12198	69	1587
74163	204271	26924	119	1424
51633	165543	12716	119	1701
75345	141722	8172	65	1249
33416	116048	10855	61	946
83305	250047	11932	49	1926
98952	299775	14300	101	3352
102372	195838	25515	196	1641
37238	173260	2805	15	2035
103772	254488	29402	136	2312
123969	104389	16440	89	1369
27142	136084	11221	40	1577
135400	199476	28732	123	2201
21399	92499	5250	21	961
130115	224330	28608	163	1900
24874	135781	8092	29	1254
34988	74408	4473	35	1335
45549	81240	1572	13	1597
6023	14688	2065	5	207
64466	181633	14817	96	1645
54990	271856	16714	151	2429
1644	7199	556	6	151
6179	46660	2089	13	474
3926	17547	2658	3	141
32755	133368	10695	56	1639
34777	95227	1669	23	872
73224	152601	16267	57	1318
27114	98146	7768	14	1018
20760	79619	7252	43	1383
37636	59194	6387	20	1314
65461	139942	18715	72	1335
30080	118612	7936	87	1403
24094	72880	8643	21	910
69008	65475	7294	56	616
54968	99643	4570	59	1407
46090	71965	7185	82	771
27507	77272	10058	43	766
10672	49289	2342	25	473
34029	135131	8509	38	1376
46300	108446	13275	25	1232
24760	89746	6816	38	1521
18779	44296	1930	12	572
21280	77648	8086	29	1059
40662	181528	10737	47	1544
28987	134019	8033	45	1230
22827	124064	7058	40	1206
18513	92630	6782	30	1205
30594	121848	5401	41	1255
24006	52915	6521	25	613
27913	81872	10856	23	721
42744	58981	2154	14	1109
12934	53515	6117	16	740
22574	60812	5238	26	1126
41385	56375	4820	21	728
18653	65490	5615	27	689
18472	80949	4272	9	592
30976	76302	8702	33	995
63339	104011	15340	42	1613
25568	98104	8030	68	2048
33747	67989	9526	32	705
4154	30989	1278	6	301
19474	135458	4236	67	1803
35130	73504	3023	33	799
39067	63123	7196	77	861
13310	61254	3394	46	1186
65892	74914	6371	30	1451
4143	31774	1574	0	628
28579	81437	9620	36	1161
51776	87186	6978	46	1463
21152	50090	4911	18	742
38084	65745	8645	48	979
27717	56653	8987	29	675
32928	158399	5544	28	1241
11342	46455	3083	34	676
19499	73624	6909	33	1049
16380	38395	3189	34	620
36874	91899	6745	33	1081
48259	139526	16724	80	1688
16734	52164	4850	32	736
28207	51567	7025	30	617
30143	70551	6047	41	812
41369	84856	7377	41	1051
45833	102538	9078	51	1656
29156	86678	4605	18	705
35944	85709	3238	34	945
36278	34662	8100	31	554
45588	150580	9653	39	1597
45097	99611	8914	54	982
3895	19349	786	14	222
28394	99373	6700	24	1212
18632	86230	5788	24	1143
2325	30837	593	8	435
25139	31706	4506	26	532
27975	89806	6382	19	882
14483	62088	5621	11	608
13127	40151	3997	14	459
5839	27634	520	1	578
24069	76990	8891	39	826
3738	37460	999	5	509
18625	54157	7067	37	717
36341	49862	4639	32	637
24548	84337	5654	38	857
21792	64175	6928	47	830
26263	59382	1514	47	652
23686	119308	9238	37	707
49303	76702	8204	51	954
25659	103425	5926	45	1461
28904	70344	5785	21	672
2781	43410	4	1	778
29236	104838	5930	42	1141
19546	62215	3710	26	680
22818	69304	705	21	1090
32689	53117	443	4	616
5752	19764	2416	10	285
22197	86680	7747	43	1145
20055	84105	5432	34	733
25272	77945	4913	31	888
82206	89113	2650	19	849
32073	91005	2370	34	1182
5444	40248	775	6	528
20154	64187	5576	11	642
36944	50857	1352	24	947
8019	56613	3080	16	819
30884	62792	10205	72	757
19540	72535	6095	21	894

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 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=157307&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=157307&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=157307&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gertrude Mary Cox' @ cox.wessa.net

Correlations for all pairs of data series (method=kendall)
	totsize	time_in_rfc	totrevisions	totblogs	pageviews
totsize	1	0.617	0.649	0.656	0.532
time_in_rfc	0.617	1	0.639	0.665	0.739
totrevisions	0.649	0.639	1	0.715	0.543
totblogs	0.656	0.665	0.715	1	0.583
pageviews	0.532	0.739	0.543	0.583	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & totsize & time_in_rfc & totrevisions & totblogs & pageviews \tabularnewline
totsize & 1 & 0.617 & 0.649 & 0.656 & 0.532 \tabularnewline
time_in_rfc & 0.617 & 1 & 0.639 & 0.665 & 0.739 \tabularnewline
totrevisions & 0.649 & 0.639 & 1 & 0.715 & 0.543 \tabularnewline
totblogs & 0.656 & 0.665 & 0.715 & 1 & 0.583 \tabularnewline
pageviews & 0.532 & 0.739 & 0.543 & 0.583 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=157307&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]totsize[/C][C]time_in_rfc[/C][C]totrevisions[/C][C]totblogs[/C][C]pageviews[/C][/ROW]
[ROW][C]totsize[/C][C]1[/C][C]0.617[/C][C]0.649[/C][C]0.656[/C][C]0.532[/C][/ROW]
[ROW][C]time_in_rfc[/C][C]0.617[/C][C]1[/C][C]0.639[/C][C]0.665[/C][C]0.739[/C][/ROW]
[ROW][C]totrevisions[/C][C]0.649[/C][C]0.639[/C][C]1[/C][C]0.715[/C][C]0.543[/C][/ROW]
[ROW][C]totblogs[/C][C]0.656[/C][C]0.665[/C][C]0.715[/C][C]1[/C][C]0.583[/C][/ROW]
[ROW][C]pageviews[/C][C]0.532[/C][C]0.739[/C][C]0.543[/C][C]0.583[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=157307&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=157307&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)
	totsize	time_in_rfc	totrevisions	totblogs	pageviews
totsize	1	0.617	0.649	0.656	0.532
time_in_rfc	0.617	1	0.639	0.665	0.739
totrevisions	0.649	0.639	1	0.715	0.543
totblogs	0.656	0.665	0.715	1	0.583
pageviews	0.532	0.739	0.543	0.583	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
totsize;time_in_rfc	0.7462	0.8118	0.6171
p-value	(0)	(0)	(0)
totsize;totrevisions	0.8078	0.8289	0.6491
p-value	(0)	(0)	(0)
totsize;totblogs	0.7983	0.8394	0.6562
p-value	(0)	(0)	(0)
totsize;pageviews	0.6439	0.7212	0.5315
p-value	(0)	(0)	(0)
time_in_rfc;totrevisions	0.7827	0.841	0.639
p-value	(0)	(0)	(0)
time_in_rfc;totblogs	0.8143	0.8573	0.665
p-value	(0)	(0)	(0)
time_in_rfc;pageviews	0.8928	0.9025	0.7387
p-value	(0)	(0)	(0)
totrevisions;totblogs	0.8759	0.894	0.7151
p-value	(0)	(0)	(0)
totrevisions;pageviews	0.6678	0.7428	0.5434
p-value	(0)	(0)	(0)
totblogs;pageviews	0.7024	0.7796	0.5828
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
totsize;time_in_rfc & 0.7462 & 0.8118 & 0.6171 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;totrevisions & 0.8078 & 0.8289 & 0.6491 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;totblogs & 0.7983 & 0.8394 & 0.6562 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;pageviews & 0.6439 & 0.7212 & 0.5315 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;totrevisions & 0.7827 & 0.841 & 0.639 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;totblogs & 0.8143 & 0.8573 & 0.665 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;pageviews & 0.8928 & 0.9025 & 0.7387 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totrevisions;totblogs & 0.8759 & 0.894 & 0.7151 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totrevisions;pageviews & 0.6678 & 0.7428 & 0.5434 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totblogs;pageviews & 0.7024 & 0.7796 & 0.5828 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=157307&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]totsize;time_in_rfc[/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]totsize;totrevisions[/C][C]0.8078[/C][C]0.8289[/C][C]0.6491[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;totblogs[/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]totsize;pageviews[/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]time_in_rfc;totrevisions[/C][C]0.7827[/C][C]0.841[/C][C]0.639[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;totblogs[/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]time_in_rfc;pageviews[/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]totrevisions;totblogs[/C][C]0.8759[/C][C]0.894[/C][C]0.7151[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totrevisions;pageviews[/C][C]0.6678[/C][C]0.7428[/C][C]0.5434[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totblogs;pageviews[/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]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=157307&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=157307&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
pair	Pearson r	Spearman rho	Kendall tau
totsize;time_in_rfc	0.7462	0.8118	0.6171
p-value	(0)	(0)	(0)
totsize;totrevisions	0.8078	0.8289	0.6491
p-value	(0)	(0)	(0)
totsize;totblogs	0.7983	0.8394	0.6562
p-value	(0)	(0)	(0)
totsize;pageviews	0.6439	0.7212	0.5315
p-value	(0)	(0)	(0)
time_in_rfc;totrevisions	0.7827	0.841	0.639
p-value	(0)	(0)	(0)
time_in_rfc;totblogs	0.8143	0.8573	0.665
p-value	(0)	(0)	(0)
time_in_rfc;pageviews	0.8928	0.9025	0.7387
p-value	(0)	(0)	(0)
totrevisions;totblogs	0.8759	0.894	0.7151
p-value	(0)	(0)	(0)
totrevisions;pageviews	0.6678	0.7428	0.5434
p-value	(0)	(0)	(0)
totblogs;pageviews	0.7024	0.7796	0.5828
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code