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, 15 Dec 2011 11:19:37 -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/15/t13239662648cefpw3tt95m6ch.htm/, Retrieved Wed, 08 May 2024 06:46:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=155550, Retrieved Wed, 08 May 2024 06:46:17 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact79
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's tau Co...] [2011-12-15 16:19:37] [f914a0f804421ae312123c83c378984e] [Current]
- R PD      [Kendall tau Correlation Matrix] [paper_deel3: Kend...] [2011-12-23 02:04:29] [ce03f21eb3e54b507ec8f2385bd7917e]
Feedback Forum

Post a new message
Dataseries X:
112285	24188	146283	144	145
84786	18273	98364	103	101
83123	14130	86146	98	98
101193	32287	96933	135	132
38361	8654	79234	61	60
68504	9245	42551	39	38
119182	33251	195663	150	144
22807	1271	6853	5	5
17140	5279	21529	28	28
116174	27101	95757	84	84
57635	16373	85584	80	79
66198	19716	143983	130	127
71701	17753	75851	82	78
57793	9028	59238	60	60
80444	18653	93163	131	131
53855	8828	96037	84	84
97668	29498	151511	140	133
133824	27563	136368	151	150
101481	18293	112642	91	91
99645	22530	94728	138	132
114789	15977	105499	150	136
99052	35082	121527	124	124
67654	16116	127766	119	118
65553	15849	98958	73	70
97500	16026	77900	110	107
69112	26569	85646	123	119
82753	24785	98579	90	89
85323	17569	130767	116	112
72654	23825	131741	113	108
30727	7869	53907	56	52
77873	14975	178812	115	112
117478	37791	146761	119	116
74007	9605	82036	129	123
90183	27295	163253	127	125
61542	2746	27032	27	27
101494	34461	171975	175	162
27570	8098	65990	35	32
55813	4787	86572	64	64
79215	24919	159676	96	92
1423	603	1929	0	0
55461	16329	85371	84	83
31081	12558	58391	41	41
22996	7784	31580	47	47
83122	28522	136815	126	120
70106	22265	120642	105	105
60578	14459	69107	80	79
39992	14526	50495	70	65
79892	22240	108016	73	70
49810	11802	46341	57	55
71570	7623	78348	40	39
100708	11912	79336	68	67
33032	7935	56968	21	21
82875	18220	93176	127	127
139077	19199	161632	154	152
71595	19918	87850	116	113
72260	21884	127969	102	99
5950	2694	15049	7	7
115762	15808	155135	148	141
32551	3597	25109	21	21
31701	5296	45824	35	35
80670	25239	102996	112	109
143558	29801	160604	137	133
117105	18450	158051	135	123
23789	7132	44547	26	26
120733	34861	162647	230	230
105195	35940	174141	181	166
73107	16688	60622	71	68
132068	24683	179566	147	147
149193	46230	184301	190	179
46821	10387	75661	64	61
87011	21436	96144	105	101
95260	30546	129847	107	108
55183	19746	117286	94	90
106671	15977	71180	116	114
73511	22583	109377	106	103
92945	17274	85298	143	142
78664	16469	73631	81	79
70054	14251	86767	89	88
22618	3007	23824	26	25
74011	16851	93487	84	83
83737	21113	82981	113	113
69094	17401	73815	120	118
93133	23958	94552	110	110
95536	23567	132190	134	129
225920	13065	128754	54	51
62133	15358	66363	96	93
61370	14587	67808	78	76
43836	12770	61724	51	49
106117	24021	131722	121	118
38692	9648	68580	38	38
84651	20537	106175	145	141
56622	7905	55792	59	58
15986	4527	25157	27	27
95364	30495	76669	91	91
26706	7117	57283	48	48
89691	17719	105805	68	63
67267	27056	129484	58	56
126846	33473	72413	150	144
41140	9758	87831	74	73
102860	21115	96971	181	168
51715	7236	71299	65	64
55801	13790	77494	97	97
111813	32902	120336	121	117
120293	25131	93913	99	100
138599	30910	136048	152	149
161647	35947	181248	188	187
115929	29848	146123	138	127
24266	6943	32036	40	37
162901	42705	186646	254	245
109825	31808	102255	87	87
129838	26675	168237	178	177
37510	8435	64219	51	49
43750	7409	19630	49	49
40652	14993	76825	73	73
87771	36867	115338	176	177
85872	33835	109427	94	94
89275	24164	118168	120	117
44418	12607	84845	66	60
192565	22609	153197	56	55
35232	5892	29877	39	39
40909	17014	63506	66	64
13294	5394	22445	27	26
32387	9178	47695	65	64
140867	6440	68370	58	58
120662	21916	146304	98	95
21233	4011	38233	25	25
44332	5818	42071	26	26
61056	18647	50517	77	76
101338	20556	103950	130	129
1168	238	5841	11	11
13497	70	2341	2	2
65567	22392	84396	101	101
25162	3913	24610	31	28
32334	12237	35753	36	36
40735	8388	55515	120	89
91413	22120	209056	195	193
855	338	6622	4	4
97068	11727	115814	89	84
44339	3704	11609	24	23
14116	3988	13155	39	39
10288	3030	18274	14	14
65622	13520	72875	78	78
16563	1421	10112	15	14
76643	20923	142775	106	101
110681	20237	68847	83	82
29011	3219	17659	24	24
92696	3769	20112	37	36
94785	12252	61023	77	75
8773	1888	13983	16	16
83209	14497	65176	56	55
93815	28864	132432	132	131
86687	21721	112494	144	131
34553	4821	45109	40	39
105547	33644	170875	153	144
103487	15923	180759	143	139
213688	42935	214921	220	211
71220	18864	100226	79	78
23517	4977	32043	50	50
56926	7785	54454	39	39
91721	17939	78876	95	90
115168	23436	170745	169	166
111194	325	6940	12	12
51009	13539	49025	63	57
135777	34538	122037	134	133
51513	12198	53782	69	69
74163	26924	127748	119	119
51633	12716	86839	119	119
75345	8172	44830	75	65
33416	10855	77395	63	61
83305	11932	89324	55	49
98952	14300	103300	103	101
102372	25515	112283	197	196
37238	2805	10901	16	15
103772	29402	120691	140	136
123969	16440	58106	89	89
27142	11221	57140	40	40
135400	28732	122422	125	123
21399	5250	25899	21	21
130115	28608	139296	167	163
24874	8092	52678	32	29
34988	4473	23853	36	35
45549	1572	17306	13	13
6023	2065	7953	5	5
64466	14817	89455	96	96
54990	16714	147866	151	151
1644	556	4245	6	6
6179	2089	21509	13	13
3926	2658	7670	3	3
32755	10695	66675	57	56
34777	1669	14336	23	23
73224	16267	53608	61	57
27114	7768	30059	21	14
20760	7252	29668	43	43
37636	6387	22097	20	20
65461	18715	96841	82	72
30080	7936	41907	90	87
24094	8643	27080	25	21
69008	7294	35885	60	56
54968	4570	41247	61	59
46090	7185	28313	85	82
27507	10058	36845	43	43
10672	2342	16548	25	25
34029	8509	36134	41	38
46300	13275	55764	26	25
24760	6816	28910	38	38
18779	1930	13339	12	12
21280	8086	25319	29	29
40662	10737	66956	49	47
28987	8033	47487	46	45
22827	7058	52785	41	40
18513	6782	44683	31	30
30594	5401	35619	41	41
24006	6521	21920	26	25
27913	10856	45608	23	23
42744	2154	7721	14	14
12934	6117	20634	16	16
22574	5238	29788	25	26
41385	4820	31931	21	21
18653	5615	37754	32	27
18472	4272	32505	9	9
30976	8702	40557	35	33
63339	15340	94238	42	42
25568	8030	44197	68	68
33747	9526	43228	32	32
4154	1278	4103	6	6
19474	4236	44144	68	67
35130	3023	32868	33	33
39067	7196	27640	84	77
13310	3394	14063	46	46
65892	6371	28990	30	30
4143	1574	4694	0	0
28579	9620	42648	36	36
51776	6978	64329	47	46
21152	4911	21928	20	18
38084	8645	25836	50	48
27717	8987	22779	30	29
32928	5544	40820	30	28
11342	3083	27530	34	34
19499	6909	32378	33	33
16380	3189	10824	34	34
36874	6745	39613	37	33
48259	16724	60865	83	80
16734	4850	19787	32	32
28207	7025	20107	30	30
30143	6047	36605	43	41
41369	7377	40961	41	41
45833	9078	48231	51	51
29156	4605	39725	19	18
35944	3238	21455	37	34
36278	8100	23430	33	31
45588	9653	62991	41	39
45097	8914	49363	54	54
3895	786	9604	14	14
28394	6700	24552	25	24
18632	5788	31493	25	24
2325	593	3439	8	8
25139	4506	19555	26	26
27975	6382	21228	20	19
14483	5621	23177	11	11
13127	3997	22094	14	14
5839	520	2342	3	1
24069	8891	38798	40	39
3738	999	3255	5	5
18625	7067	24261	38	37
36341	4639	18511	32	32
24548	5654	40798	41	38
21792	6928	28893	46	47
26263	1514	21425	47	47
23686	9238	50276	37	37
49303	8204	37643	51	51
25659	5926	30377	49	45
28904	5785	27126	21	21
2781	4	13	1	1
29236	5930	42097	44	42
19546	3710	24451	26	26
22818	705	14335	21	21
32689	443	5084	4	4
5752	2416	9927	10	10
22197	7747	43527	43	43
20055	5432	27184	34	34
25272	4913	21610	32	31
82206	2650	20484	20	19
32073	2370	20156	34	34
5444	775	6012	6	6
20154	5576	18475	12	11
36944	1352	12645	24	24
8019	3080	11017	16	16
30884	10205	37623	72	72
19540	6095	35873	27	21




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155550&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'AstonUniversity' @ aston.wessa.net







Correlations for all pairs of data series (method=pearson)
totsizetotrevisionstotsecondstothyperlinkstotblogs
totsize10.8080.8230.7980.798
totrevisions0.80810.8750.8750.876
totseconds0.8230.87510.8870.886
tothyperlinks0.7980.8750.88710.998
totblogs0.7980.8760.8860.9981

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & totsize & totrevisions & totseconds & tothyperlinks & totblogs \tabularnewline
totsize & 1 & 0.808 & 0.823 & 0.798 & 0.798 \tabularnewline
totrevisions & 0.808 & 1 & 0.875 & 0.875 & 0.876 \tabularnewline
totseconds & 0.823 & 0.875 & 1 & 0.887 & 0.886 \tabularnewline
tothyperlinks & 0.798 & 0.875 & 0.887 & 1 & 0.998 \tabularnewline
totblogs & 0.798 & 0.876 & 0.886 & 0.998 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=155550&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]totsize[/C][C]totrevisions[/C][C]totseconds[/C][C]tothyperlinks[/C][C]totblogs[/C][/ROW]
[ROW][C]totsize[/C][C]1[/C][C]0.808[/C][C]0.823[/C][C]0.798[/C][C]0.798[/C][/ROW]
[ROW][C]totrevisions[/C][C]0.808[/C][C]1[/C][C]0.875[/C][C]0.875[/C][C]0.876[/C][/ROW]
[ROW][C]totseconds[/C][C]0.823[/C][C]0.875[/C][C]1[/C][C]0.887[/C][C]0.886[/C][/ROW]
[ROW][C]tothyperlinks[/C][C]0.798[/C][C]0.875[/C][C]0.887[/C][C]1[/C][C]0.998[/C][/ROW]
[ROW][C]totblogs[/C][C]0.798[/C][C]0.876[/C][C]0.886[/C][C]0.998[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=155550&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155550&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)
totsizetotrevisionstotsecondstothyperlinkstotblogs
totsize10.8080.8230.7980.798
totrevisions0.80810.8750.8750.876
totseconds0.8230.87510.8870.886
tothyperlinks0.7980.8750.88710.998
totblogs0.7980.8760.8860.9981







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
totsize;totrevisions0.80780.82890.6491
p-value(0)(0)(0)
totsize;totseconds0.82320.84150.6567
p-value(0)(0)(0)
totsize;tothyperlinks0.79780.83840.6548
p-value(0)(0)(0)
totsize;totblogs0.79830.83940.6562
p-value(0)(0)(0)
totrevisions;totseconds0.87460.91850.7495
p-value(0)(0)(0)
totrevisions;tothyperlinks0.87460.89390.7162
p-value(0)(0)(0)
totrevisions;totblogs0.87590.8940.7151
p-value(0)(0)(0)
totseconds;tothyperlinks0.88690.90320.7339
p-value(0)(0)(0)
totseconds;totblogs0.88640.90280.7317
p-value(0)(0)(0)
tothyperlinks;totblogs0.99830.99870.9803
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;totrevisions & 0.8078 & 0.8289 & 0.6491 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;totseconds & 0.8232 & 0.8415 & 0.6567 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;tothyperlinks & 0.7978 & 0.8384 & 0.6548 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;totblogs & 0.7983 & 0.8394 & 0.6562 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totrevisions;totseconds & 0.8746 & 0.9185 & 0.7495 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totrevisions;tothyperlinks & 0.8746 & 0.8939 & 0.7162 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totrevisions;totblogs & 0.8759 & 0.894 & 0.7151 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totseconds;tothyperlinks & 0.8869 & 0.9032 & 0.7339 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totseconds;totblogs & 0.8864 & 0.9028 & 0.7317 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
tothyperlinks;totblogs & 0.9983 & 0.9987 & 0.9803 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=155550&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;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;totseconds[/C][C]0.8232[/C][C]0.8415[/C][C]0.6567[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;tothyperlinks[/C][C]0.7978[/C][C]0.8384[/C][C]0.6548[/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]totrevisions;totseconds[/C][C]0.8746[/C][C]0.9185[/C][C]0.7495[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totrevisions;tothyperlinks[/C][C]0.8746[/C][C]0.8939[/C][C]0.7162[/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]totseconds;tothyperlinks[/C][C]0.8869[/C][C]0.9032[/C][C]0.7339[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totseconds;totblogs[/C][C]0.8864[/C][C]0.9028[/C][C]0.7317[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]tothyperlinks;totblogs[/C][C]0.9983[/C][C]0.9987[/C][C]0.9803[/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=155550&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155550&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
totsize;totrevisions0.80780.82890.6491
p-value(0)(0)(0)
totsize;totseconds0.82320.84150.6567
p-value(0)(0)(0)
totsize;tothyperlinks0.79780.83840.6548
p-value(0)(0)(0)
totsize;totblogs0.79830.83940.6562
p-value(0)(0)(0)
totrevisions;totseconds0.87460.91850.7495
p-value(0)(0)(0)
totrevisions;tothyperlinks0.87460.89390.7162
p-value(0)(0)(0)
totrevisions;totblogs0.87590.8940.7151
p-value(0)(0)(0)
totseconds;tothyperlinks0.88690.90320.7339
p-value(0)(0)(0)
totseconds;totblogs0.88640.90280.7317
p-value(0)(0)(0)
tothyperlinks;totblogs0.99830.99870.9803
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')