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 computationTue, 20 Dec 2011 04:45:40 -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/20/t13243745648hotccfd682kefr.htm/, Retrieved Sun, 05 May 2024 22:16:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=157854, Retrieved Sun, 05 May 2024 22:16:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact143
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] [] [2011-12-20 09:45:40] [ef12b3094dcc95645ac503919f1fca4e] [Current]
-   P       [Kendall tau Correlation Matrix] [] [2011-12-20 10:11:16] [9026c059d17255e641798e6a3c7c272a]
Feedback Forum

Post a new message
Dataseries X:
140824	70	96	144	32033	272545
110459	66	71	133	20654	180141
105079	75	70	170	16346	228925
112098	104	134	148	35926	218443
43929	52	67	88	10621	171533
76173	28	8	129	10024	70849
187326	125	160	128	43068	532492
22807	19	1	67	1271	33186
144408	59	83	132	34416	217320
66485	44	82	120	20318	213274
79089	111	92	169	24409	309323
81625	122	117	218	20648	242739
68788	76	56	122	12347	194882
103297	81	139	191	21857	364569
69446	86	80	162	11034	255231
114948	180	175	223	33433	384524
167949	75	114	156	35902	334118
125081	162	100	144	22355	343085
125818	56	103	111	31219	176082
136588	87	135	199	21983	266736
112431	70	123	187	40085	278265
103037	104	87	144	18507	442703
82317	42	66	89	16278	180393
118906	55	103	208	24662	189897
83515	125	149	165	31452	242176
104581	129	113	146	32580	241883
103129	129	99	158	22883	267318
83243	88	117	154	27652	277501
37110	52	57	117	9845	155915
113344	72	141	158	20190	365373
139165	80	130	195	46201	291907
86652	79	47	186	10971	236819
112302	95	140	197	34811	342856
69652	39	43	141	3029	101014
119442	100	141	168	38941	409551
69867	56	83	159	4958	273950
101629	122	112	161	32344	425253
70168	84	79	139	19433	227636
31081	33	33	55	12558	115658
103925	201	137	166	36524	375992
92622	82	125	151	26041	334004
79011	71	76	148	16637	186648
93487	76	78	115	28395	206196
64520	64	68	181	16747	182286
93473	82	50	73	9105	153778
114360	153	101	147	11941	455401
33032	42	20	82	7935	78800
96125	77	101	201	19499	208277
151911	121	149	193	22938	358127
89256	59	99	164	25314	176734
95676	76	95	158	28527	224649
5950	24	8	12	2694	24188
149695	326	88	163	20867	380576
32551	17	21	67	3597	65029
31701	64	30	52	5296	101097
100087	60	97	134	32982	279128
169707	86	130	230	38975	328024
150491	198	132	145	42721	359138
120192	145	161	153	41455	369539
95893	86	89	155	23923	266240
151715	146	160	198	26719	388953
176225	119	139	101	53405	305351
59900	118	104	169	12526	281929
104767	89	92	163	26584	264889
114799	68	52	139	37062	229585
72128	68	117	116	25696	235052
143592	135	93	145	24634	209030
89626	151	85	167	27269	240070
131072	84	143	135	25270	243937
126817	70	143	102	24634	175816
81351	70	99	173	17828	239337
22618	32	22	88	3007	73566
88977	86	78	175	20065	242622
92059	55	83	133	24648	196387
81897	64	131	148	21588	209049
108146	88	140	169	25217	363250
126372	96	148	143	30927	362030
249771	108	80	154	18487	217036
71154	65	133	148	18050	208824
71571	66	95	134	17696	195793
55918	48	62	109	17326	153654
160141	128	161	175	39361	475859
38692	69	30	99	9648	145943
102812	106	118	122	26759	287359
56622	25	49	28	7905	80953
15986	55	52	101	4527	150216
123534	60	76	139	41517	179317
108535	213	85	143	21261	394546
93879	120	146	206	36099	345373
144551	106	165	171	39039	179811
56750	100	84	150	13841	283459
127654	81	165	154	23841	274449
65594	65	48	114	8589	190312
59938	77	149	140	15049	280628
146975	85	75	156	39038	329007
161100	39	83	140	34974	189654
168553	59	110	127	39932	259365
183500	83	164	141	43840	297464
165986	155	154	251	43146	399815
184923	113	165	126	50099	402133
140358	138	121	198	40312	291970
149959	67	150	155	32616	296670
57224	188	73	138	11338	189276
43750	14	13	71	7409	43287
48029	83	89	84	18213	185969
104978	148	105	167	45873	250254
100046	50	129	155	39844	268391
101047	92	169	162	28317	314131
197426	81	28	112	24797	156967
160902	97	118	168	7471	161884
147172	74	79	157	27259	334485
109432	89	147	164	23201	300526
1168	11	12	0	238	23623
83248	73	146	155	28830	195817
25162	25	23	32	3913	61857
45724	50	83	169	9935	163871
110529	120	163	140	27738	428191
855	16	4	0	338	21054
101382	52	81	111	13326	252805
14116	22	18	25	3988	31961
89506	118	114	146	24347	331849
135356	68	76	183	27111	243223
116066	93	55	181	3938	177264
144244	54	44	107	17416	152043
8773	34	16	27	1888	38214
102153	43	81	163	18700	224597
117440	82	137	198	36809	357602
104128	61	50	205	24959	198104
134238	85	142	187	37343	423741
134047	99	157	187	21849	338606
279488	129	141	210	49809	417175
79756	36	71	151	21654	187992
66089	43	42	131	8728	102424
102070	347	94	171	20920	302158
146760	182	117	172	27195	437141
154771	56	63	164	1037	146250
165933	134	127	172	42570	395382
64593	78	55	143	17672	162422
92280	49	117	151	34245	278077
67150	96	110	158	16786	282410
128692	115	39	125	20954	219493
124089	122	95	169	16378	384177
125386	92	128	145	31852	246963
37238	63	41	79	2805	173260
140015	103	146	190	38086	333967
150047	58	147	192	21166	168994
154451	87	119	132	34672	253330
156349	109	185	168	36171	305217
0	0	0	0	0	1
6023	10	4	0	2065	14688
0	1	0	0	0	98
0	2	0	0	0	455
0	0	0	0	0	0
0	0	0	0	0	0
84601	88	75	133	19354	260345
68946	162	157	204	22124	409163
0	0	0	0	0	0
0	4	0	0	0	203
1644	5	7	0	556	7199
6179	20	12	15	2089	46660
3926	5	0	4	2658	17547
52789	45	37	152	1813	116969
0	2	0	0	0	969
100350	70	59	125	17372	229447




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=157854&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=157854&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=157854&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)
totalsizeloginsbloggedcomputationsfeedbacktotalrevisionstimespent
totalsize10.5250.6910.6940.7730.707
logins0.52510.5680.5930.4940.716
bloggedcomputations0.6910.56810.7520.780.824
feedback0.6940.5930.75210.6410.761
totalrevisions0.7730.4940.780.64110.732
timespent0.7070.7160.8240.7610.7321

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & totalsize & logins & bloggedcomputations & feedback & totalrevisions & timespent \tabularnewline
totalsize & 1 & 0.525 & 0.691 & 0.694 & 0.773 & 0.707 \tabularnewline
logins & 0.525 & 1 & 0.568 & 0.593 & 0.494 & 0.716 \tabularnewline
bloggedcomputations & 0.691 & 0.568 & 1 & 0.752 & 0.78 & 0.824 \tabularnewline
feedback & 0.694 & 0.593 & 0.752 & 1 & 0.641 & 0.761 \tabularnewline
totalrevisions & 0.773 & 0.494 & 0.78 & 0.641 & 1 & 0.732 \tabularnewline
timespent & 0.707 & 0.716 & 0.824 & 0.761 & 0.732 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=157854&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]totalsize[/C][C]logins[/C][C]bloggedcomputations[/C][C]feedback[/C][C]totalrevisions[/C][C]timespent[/C][/ROW]
[ROW][C]totalsize[/C][C]1[/C][C]0.525[/C][C]0.691[/C][C]0.694[/C][C]0.773[/C][C]0.707[/C][/ROW]
[ROW][C]logins[/C][C]0.525[/C][C]1[/C][C]0.568[/C][C]0.593[/C][C]0.494[/C][C]0.716[/C][/ROW]
[ROW][C]bloggedcomputations[/C][C]0.691[/C][C]0.568[/C][C]1[/C][C]0.752[/C][C]0.78[/C][C]0.824[/C][/ROW]
[ROW][C]feedback[/C][C]0.694[/C][C]0.593[/C][C]0.752[/C][C]1[/C][C]0.641[/C][C]0.761[/C][/ROW]
[ROW][C]totalrevisions[/C][C]0.773[/C][C]0.494[/C][C]0.78[/C][C]0.641[/C][C]1[/C][C]0.732[/C][/ROW]
[ROW][C]timespent[/C][C]0.707[/C][C]0.716[/C][C]0.824[/C][C]0.761[/C][C]0.732[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=157854&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=157854&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)
totalsizeloginsbloggedcomputationsfeedbacktotalrevisionstimespent
totalsize10.5250.6910.6940.7730.707
logins0.52510.5680.5930.4940.716
bloggedcomputations0.6910.56810.7520.780.824
feedback0.6940.5930.75210.6410.761
totalrevisions0.7730.4940.780.64110.732
timespent0.7070.7160.8240.7610.7321







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
totalsize;logins0.52490.59810.4375
p-value(0)(0)(0)
totalsize;bloggedcomputations0.69060.66390.5051
p-value(0)(0)(0)
totalsize;feedback0.6940.55170.4073
p-value(0)(0)(0)
totalsize;totalrevisions0.77290.7670.6062
p-value(0)(0)(0)
totalsize;timespent0.70750.65380.495
p-value(0)(0)(0)
logins;bloggedcomputations0.56760.68160.5035
p-value(0)(0)(0)
logins;feedback0.59280.61510.4523
p-value(0)(0)(0)
logins;totalrevisions0.49380.59480.4349
p-value(0)(0)(0)
logins;timespent0.71610.79910.626
p-value(0)(0)(0)
bloggedcomputations;feedback0.75220.64960.4859
p-value(0)(0)(0)
bloggedcomputations;totalrevisions0.78020.76670.5879
p-value(0)(0)(0)
bloggedcomputations;timespent0.82410.79250.6265
p-value(0)(0)(0)
feedback;totalrevisions0.64120.53640.3916
p-value(0)(0)(0)
feedback;timespent0.76060.65540.495
p-value(0)(0)(0)
totalrevisions;timespent0.73170.71590.5404
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
totalsize;logins & 0.5249 & 0.5981 & 0.4375 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totalsize;bloggedcomputations & 0.6906 & 0.6639 & 0.5051 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totalsize;feedback & 0.694 & 0.5517 & 0.4073 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totalsize;totalrevisions & 0.7729 & 0.767 & 0.6062 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totalsize;timespent & 0.7075 & 0.6538 & 0.495 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;bloggedcomputations & 0.5676 & 0.6816 & 0.5035 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;feedback & 0.5928 & 0.6151 & 0.4523 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;totalrevisions & 0.4938 & 0.5948 & 0.4349 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;timespent & 0.7161 & 0.7991 & 0.626 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
bloggedcomputations;feedback & 0.7522 & 0.6496 & 0.4859 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
bloggedcomputations;totalrevisions & 0.7802 & 0.7667 & 0.5879 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
bloggedcomputations;timespent & 0.8241 & 0.7925 & 0.6265 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
feedback;totalrevisions & 0.6412 & 0.5364 & 0.3916 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
feedback;timespent & 0.7606 & 0.6554 & 0.495 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totalrevisions;timespent & 0.7317 & 0.7159 & 0.5404 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=157854&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]totalsize;logins[/C][C]0.5249[/C][C]0.5981[/C][C]0.4375[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totalsize;bloggedcomputations[/C][C]0.6906[/C][C]0.6639[/C][C]0.5051[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totalsize;feedback[/C][C]0.694[/C][C]0.5517[/C][C]0.4073[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totalsize;totalrevisions[/C][C]0.7729[/C][C]0.767[/C][C]0.6062[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totalsize;timespent[/C][C]0.7075[/C][C]0.6538[/C][C]0.495[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;bloggedcomputations[/C][C]0.5676[/C][C]0.6816[/C][C]0.5035[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;feedback[/C][C]0.5928[/C][C]0.6151[/C][C]0.4523[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;totalrevisions[/C][C]0.4938[/C][C]0.5948[/C][C]0.4349[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;timespent[/C][C]0.7161[/C][C]0.7991[/C][C]0.626[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]bloggedcomputations;feedback[/C][C]0.7522[/C][C]0.6496[/C][C]0.4859[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]bloggedcomputations;totalrevisions[/C][C]0.7802[/C][C]0.7667[/C][C]0.5879[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]bloggedcomputations;timespent[/C][C]0.8241[/C][C]0.7925[/C][C]0.6265[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]feedback;totalrevisions[/C][C]0.6412[/C][C]0.5364[/C][C]0.3916[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]feedback;timespent[/C][C]0.7606[/C][C]0.6554[/C][C]0.495[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totalrevisions;timespent[/C][C]0.7317[/C][C]0.7159[/C][C]0.5404[/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=157854&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=157854&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
totalsize;logins0.52490.59810.4375
p-value(0)(0)(0)
totalsize;bloggedcomputations0.69060.66390.5051
p-value(0)(0)(0)
totalsize;feedback0.6940.55170.4073
p-value(0)(0)(0)
totalsize;totalrevisions0.77290.7670.6062
p-value(0)(0)(0)
totalsize;timespent0.70750.65380.495
p-value(0)(0)(0)
logins;bloggedcomputations0.56760.68160.5035
p-value(0)(0)(0)
logins;feedback0.59280.61510.4523
p-value(0)(0)(0)
logins;totalrevisions0.49380.59480.4349
p-value(0)(0)(0)
logins;timespent0.71610.79910.626
p-value(0)(0)(0)
bloggedcomputations;feedback0.75220.64960.4859
p-value(0)(0)(0)
bloggedcomputations;totalrevisions0.78020.76670.5879
p-value(0)(0)(0)
bloggedcomputations;timespent0.82410.79250.6265
p-value(0)(0)(0)
feedback;totalrevisions0.64120.53640.3916
p-value(0)(0)(0)
feedback;timespent0.76060.65540.495
p-value(0)(0)(0)
totalrevisions;timespent0.73170.71590.5404
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')