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 computationSun, 26 Dec 2010 15:06:39 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/26/t1293375907fdvt419inslo93y.htm/, Retrieved Mon, 06 May 2024 11:05:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=115643, Retrieved Mon, 06 May 2024 11:05:28 +0000
QR Codes:

Original text written by user:Gebruikte gegevens: Group, trades, dividends, Wealth
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact142
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [Standard Deviation-Mean Plot] [Unemployment] [2010-11-29 10:34:47] [b98453cac15ba1066b407e146608df68]
- RMP     [ARIMA Backward Selection] [Unemployment] [2010-11-29 17:10:28] [b98453cac15ba1066b407e146608df68]
F   PD      [ARIMA Backward Selection] [Workshop 6 'Aanta...] [2010-12-14 18:47:02] [40c8b935cbad1b0be3c22a481f9723f7]
- R P         [ARIMA Backward Selection] [ARIMA backward se...] [2010-12-17 15:45:37] [75b8170d590d2aca2c97c1862bb2167f]
-   PD          [ARIMA Backward Selection] [ARIMA BACKWARD Se...] [2010-12-26 13:20:22] [c895532cb7349383dee5125244983cc8]
- RMP             [ARIMA Forecasting] [] [2010-12-26 14:45:55] [c895532cb7349383dee5125244983cc8]
- RM D                [Kendall tau Correlation Matrix] [Pearson correlati...] [2010-12-26 15:06:39] [9b9a58c480cb5dafe4bfceb51e1cfd12] [Current]
-                       [Kendall tau Correlation Matrix] [Kendall Tau Corre...] [2010-12-26 15:10:04] [c895532cb7349383dee5125244983cc8]
-    D                    [Kendall tau Correlation Matrix] [Pearson correlati...] [2010-12-26 15:15:56] [c895532cb7349383dee5125244983cc8]
-                           [Kendall tau Correlation Matrix] [Kendall Tau Corre...] [2010-12-26 15:18:36] [c895532cb7349383dee5125244983cc8]
-   P                         [Kendall tau Correlation Matrix] [Kendal Tau Correl...] [2010-12-28 08:33:14] [75b8170d590d2aca2c97c1862bb2167f]
-   P                         [Kendall tau Correlation Matrix] [berekening 7] [2010-12-28 13:47:30] [916599f00c9c716123aa8433d9efa14f]
-   P                       [Kendall tau Correlation Matrix] [pearson correlati...] [2010-12-28 08:28:09] [75b8170d590d2aca2c97c1862bb2167f]
-   P                       [Kendall tau Correlation Matrix] [berekening 6] [2010-12-28 13:45:17] [916599f00c9c716123aa8433d9efa14f]
Feedback Forum

Post a new message
Dataseries X:
1	17	60720	319369
0	47	94355	493408
0	6	60720	319210
1	11	77655	381180
1	105	134028	297978
0	17	62285	290476
1	8	59325	292136
1	8	60630	314353
1	14	65990	339445
1	6	59118	303677
0	53	100423	397144
0	63	100269	424898
1	0	60720	315380
1	393	60720	341570
1	11	61808	308989
1	73	60438	305959
1	14	58598	318690
1	40	59781	323361
1	13	60945	318903
1	10	61124	314049
1	0	60720	315380
1	35	47705	298466
1	0	60720	315380
0	118	121173	438493
0	9	57530	378049
1	5	62041	313332
1	14	60720	319864
0	322	136996	430866
1	0	60720	315380
1	26	84990	332743
0	29	63255	286963
1	0	60720	315380
1	15	58856	331955
0	162	146216	527021
0	87	82425	364304
1	71	86111	292154
1	6	60835	314987
1	24	55174	272713
1	481	129352	1398893
0	91	113521	409642
1	8	112995	429112
1	19	45689	382712
1	94	131116	374943
1	0	60720	315380
0	52	71873	297413
1	5	70415	304252
1	0	60720	315380
1	9	61938	309596
0	25	101792	377305
1	11	103345	386212
0	282	74996	657954
1	40	68696	368186
0	17	57320	269753
1	64	63838	585715
1	159	151352	1071292
0	248	37884	992426
1	5	60720	315371
0	36	72954	249898
0	72	64239	357312
1	0	60720	315380
1	0	60720	315380
0	75	126910	364839
0	138	21001	230621
1	1	61016	315877
0	60	59831	125390
1	3	60720	314882
0	217	210568	370837
0	10	71641	330068
1	4	72680	324385
1	0	60720	315380
0	109	47818	1443586
1	48	79510	253537
0	309	81767	4321023
1	0	60720	315380
0	29	64873	352108
1	32	57640	330059
0	21	59365	340968
1	28	60646	317736
1	182	31080	209458
0	302	126942	1491348
1	2	60720	314887
1	0	60720	315380
1	0	60720	315380
0	37	62920	353058
1	0	60720	315380
0	0	60720	315380
1	7	60793	314533
1	2	60698	315354
1	51	63261	302187
1	9	76644	336639
0	0	60720	315380
1	9	53110	296702
1	115	245546	1073089
1	38	60326	146494
1	2	60720	325249
1	6	69817	331420
1	0	60720	315380
1	26	61404	314922
1	30	62452	320016
1	80	41477	280398
1	99	63593	452469
1	2	58790	301164
1	16	62700	317330
1	2	60805	315576
1	0	60720	315380
1	180	27284	-7170
1	29	56225	322331
0	156	157214	1629616
1	62	54323	292754
1	28	57935	318056
1	79	59017	355178
1	3	73490	204325
1	0	60720	315380
1	16	68005	317046
0	0	60720	315380
1	8	54820	309560
0	34	94670	414462
0	119	82340	857217
0	81	112477	697458
0	108	108094	530670
1	40	67804	238125
1	0	60720	315380
0	45	80570	741409
1	52	95551	393343
1	90	77440	372631
0	0	60720	315380
1	60	73433	317291
1	0	60720	315380
1	223	157278	306275
0	11	73221	317892
1	14	67000	334280
0	0	60720	315380
0	0	60720	315380
0	0	60720	315380
1	3	60398	314210
0	31	60720	306948
1	0	60720	315380
1	33	64175	320398
0	0	60720	315380
1	0	60720	315380
1	226	93811	501749
0	58	27330	202055
1	0	60720	315380
1	0	60720	315380
0	14	60370	333210
0	0	60720	315380
1	11	60436	322340
1	63	55637	369448
0	117	67440	291841
1	0	60720	315380
0	0	60720	315380
1	8	59190	296919
1	0	60720	315380
1	8	58620	309038
1	3	65920	246541
0	14	74020	289513
1	53	61808	344425
1	0	60720	315380
1	2	62065	314210
0	29	107577	480382
1	9	60505	315009
1	0	60720	315380
1	11	56535	312878
0	8	64107	322031
1	0	60720	315380
0	49	102129	597793
1	0	60720	315380
1	69	61262	315688
1	49	39039	378525
1	117	69465	312378
1	22	130140	403560
0	20	97890	510834
0	16	77200	214215
1	23	90534	235133
0	32	48522	343613
1	21	81125	365959
1	0	60720	315380
1	14	60720	314551
1	17	61686	303230
0	0	60720	315380
1	84	121920	469107
1	14	103960	354228
1	0	60720	315380
1	0	60720	315380
0	0	60720	315380
1	9	60735	315394
1	4	61564	312412
1	9	64230	333505
1	588	-26007	223193
1	0	60720	315380
1	4	60761	315656
1	9	63870	296261
1	0	60720	315380
1	7	60845	336425
1	34	71642	359335
1	0	60720	315380
1	64	106611	308636
0	47	48022	158492
0	0	60720	315380
1	0	60720	315380
0	84	79801	711969
0	0	60720	315380
0	0	60720	315380
1	27	60830	306268
1	0	60720	315380
1	21	88590	442882
0	41	82903	378509
1	0	60720	315380
1	83	87192	346611
1	57	55792	314289
0	519	114337	856956
0	23	75832	217193
1	6	61630	315366
1	16	58580	307930
1	102	165548	702380
1	33	76403	194493
0	2	61656	316155
1	0	60720	315380
0	198	70184	330546
1	35	118881	394510
1	3	60887	312846
1	0	60720	315380
1	78	60925	296139
1	15	62969	295580
1	11	58625	297765
1	155	102313	377934
1	0	60720	315380
1	109	288170	638830
1	73	73007	304376
1	1	64820	307424
1	22	301670	644190
1	24	56178	295370
0	85	106113	574339
1	0	60720	315380
1	12	60798	310201
1	13	70694	327007
1	39	56364	343466
1	0	60720	315380
1	0	60720	315380
1	4	62045	318098
0	33	75230	448243
1	11	79285	325738
0	0	60720	315380
1	21	60720	312161
1	42	52811	243650
1	66	35250	407159
1	0	60720	315380
1	13	59734	317698
1	0	60720	315380
1	2	60722	312502
0	0	60720	315380
1	52	78780	322378
0	0	60720	315380
1	0	60720	315380
0	0	60720	315380
1	0	60720	315380
1	0	60720	315380
1	0	60720	315380
1	91	88577	640273
1	61	96448	345783
1	9	50350	652925
1	361	49857	439798
0	25	69351	278990
0	171	117869	339836
1	67	72683	240897
1	0	60720	315380
1	17	61167	297141
1	0	60720	315380
1	13	70811	331323
1	1	60896	313880
1	0	60720	315380
1	0	60720	315380
1	61	69863	309422
1	3	60938	315245
1	97	61348	405972
0	27	50804	300962
0	1	60745	316176
1	14	59506	302409
1	13	58456	283587
1	7	60950	263276
1	5	60720	312075
0	24	61600	308336
1	0	60720	315380
1	9	63915	298700
1	6	60719	315372
1	4	59500	318745
1	0	60720	315380
1	30	67939	408881
1	37	32168	786690
0	70	-14545	-83265
0	0	60720	315380
1	10	60720	321376
1	0	60720	315380
1	7	64270	276898
1	10	60951	315547
1	1	60743	315487
1	0	60720	315380
0	239	-1710	1405225
0	0	60720	315380
0	0	60720	315380
0	452	60448	983660
0	4	65688	318574
1	34	106885	310768
1	3	61360	312887
1	4	65276	312339
1	1	59988	314964
1	105	117520	379983
1	0	60720	315380
1	0	60720	315380
1	4	60722	315398
0	0	60720	315380
1	94	82732	253588
0	13	64016	316647
1	2	60890	315688
1	28	68136	310670
1	15	79420	165404
0	458	153198	4111912
1	10	58650	291650
0	0	60720	315380
1	2	69770	253468
1	8	60831	315688
1	12	59595	325699
1	66	87720	446211
1	0	60720	315380
1	47	114768	368078
1	0	60720	315380
1	59	138971	352850
0	1081	213118	6282154
1	247	32648	227132
0	12	83620	283910
1	43	74015	236761
1	0	60720	315380
0	0	60720	315380
0	79	191778	550608
0	33	76114	307528
1	0	60720	315380
1	107	93099	355864
1	295	116384	358589
1	0	60720	315380
0	0	60720	315380
1	92	110309	375195
1	20	61977	288985
1	0	60720	315380
1	86	90262	458343
1	0	60720	315380
0	20	80045	269587
1	2	61490	315236
1	30	51252	42754
1	0	60720	315380
1	48	60720	308256
1	0	60720	315380
1	0	60720	315380
0	4	60798	313164
1	0	60720	315380
1	23	71561	269661
0	0	60720	315380
1	0	60720	315380
0	0	60720	315380
1	0	60720	315380
0	150	134759	518365
0	158	156608	233773
1	18	39625	301881
1	15	56750	298568
0	17	87390	325479
1	14	58990	325506
1	110	48020	984885
1	152	60720	313267
1	6	60349	315793
1	0	60720	315380
0	97	67038	215362
1	18	113761	314073
1	11	58320	298096
1	24	62841	325176
1	145	79804	207393
0	5	62555	314806
1	107	99489	341340
0	75	90131	426280
0	505	95350	929118
1	2	64245	307322
1	0	60720	315380
1	62	69159	387475
1	5	65745	291787
0	20	77623	247060
1	15	63346	329784
1	3	60894	315834
1	11	58930	304555
0	43	60247	376641
0	0	60720	315380
1	0	60720	315380
0	0	60720	315380
1	0	60720	315380
1	0	60720	315380
1	947	90829	357760
1	8	59818	315637
1	0	60720	315380
0	0	60720	315380
1	0	60720	315380
1	0	60720	315380
1	6	59661	327071
1	15	102725	377516
1	80	108479	299243
0	101	87419	387699
1	22	54683	309836
1	373	122844	444477
1	10	62710	322327
1	5	60720	314913
1	21	60720	315553
0	28	87161	688779
1	61	101481	321896
1	855	128294	301607
1	7	62620	304485
1	0	60720	315380
0	0	60720	315380
1	3	69980	231861
1	26	60982	347385
1	11	59635	316386
0	115	188873	491303
1	74	80791	261216
1	2	60727	315388
1	0	60720	315380
1	5	60379	313729
1	45	37527	358649
0	353	234817	1926517
1	4	60510	296656
1	26	69206	275311
1	26	55830	-42143
0	0	60720	315380
1	12	72835	343929
1	8	68060	367655
1	0	60720	315380
1	72	56726	313491




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=115643&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=115643&T=0

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







Correlations for all pairs of data series (method=pearson)
Grouptradesdividendswealth
Group1-0.157-0.147-0.215
trades-0.15710.3560.568
dividends-0.1470.35610.378
wealth-0.2150.5680.3781

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Group & trades & dividends & wealth \tabularnewline
Group & 1 & -0.157 & -0.147 & -0.215 \tabularnewline
trades & -0.157 & 1 & 0.356 & 0.568 \tabularnewline
dividends & -0.147 & 0.356 & 1 & 0.378 \tabularnewline
wealth & -0.215 & 0.568 & 0.378 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=115643&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Group[/C][C]trades[/C][C]dividends[/C][C]wealth[/C][/ROW]
[ROW][C]Group[/C][C]1[/C][C]-0.157[/C][C]-0.147[/C][C]-0.215[/C][/ROW]
[ROW][C]trades[/C][C]-0.157[/C][C]1[/C][C]0.356[/C][C]0.568[/C][/ROW]
[ROW][C]dividends[/C][C]-0.147[/C][C]0.356[/C][C]1[/C][C]0.378[/C][/ROW]
[ROW][C]wealth[/C][C]-0.215[/C][C]0.568[/C][C]0.378[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=115643&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=115643&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)
Grouptradesdividendswealth
Group1-0.157-0.147-0.215
trades-0.15710.3560.568
dividends-0.1470.35610.378
wealth-0.2150.5680.3781







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Group;trades-0.1565-0.1555-0.1312
p-value(0.0011)(0.0012)(0.0013)
Group;dividends-0.1474-0.1743-0.1476
p-value(0.0022)(3e-04)(3e-04)
Group;wealth-0.2154-0.1847-0.1553
p-value(0)(1e-04)(1e-04)
trades;dividends0.35590.40490.3169
p-value(0)(0)(0)
trades;wealth0.56750.26590.1862
p-value(0)(0)(0)
dividends;wealth0.37760.32880.2459
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
Group;trades & -0.1565 & -0.1555 & -0.1312 \tabularnewline
p-value & (0.0011) & (0.0012) & (0.0013) \tabularnewline
Group;dividends & -0.1474 & -0.1743 & -0.1476 \tabularnewline
p-value & (0.0022) & (3e-04) & (3e-04) \tabularnewline
Group;wealth & -0.2154 & -0.1847 & -0.1553 \tabularnewline
p-value & (0) & (1e-04) & (1e-04) \tabularnewline
trades;dividends & 0.3559 & 0.4049 & 0.3169 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
trades;wealth & 0.5675 & 0.2659 & 0.1862 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
dividends;wealth & 0.3776 & 0.3288 & 0.2459 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=115643&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]Group;trades[/C][C]-0.1565[/C][C]-0.1555[/C][C]-0.1312[/C][/ROW]
[ROW][C]p-value[/C][C](0.0011)[/C][C](0.0012)[/C][C](0.0013)[/C][/ROW]
[ROW][C]Group;dividends[/C][C]-0.1474[/C][C]-0.1743[/C][C]-0.1476[/C][/ROW]
[ROW][C]p-value[/C][C](0.0022)[/C][C](3e-04)[/C][C](3e-04)[/C][/ROW]
[ROW][C]Group;wealth[/C][C]-0.2154[/C][C]-0.1847[/C][C]-0.1553[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](1e-04)[/C][C](1e-04)[/C][/ROW]
[ROW][C]trades;dividends[/C][C]0.3559[/C][C]0.4049[/C][C]0.3169[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]trades;wealth[/C][C]0.5675[/C][C]0.2659[/C][C]0.1862[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]dividends;wealth[/C][C]0.3776[/C][C]0.3288[/C][C]0.2459[/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=115643&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=115643&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
Group;trades-0.1565-0.1555-0.1312
p-value(0.0011)(0.0012)(0.0013)
Group;dividends-0.1474-0.1743-0.1476
p-value(0.0022)(3e-04)(3e-04)
Group;wealth-0.2154-0.1847-0.1553
p-value(0)(1e-04)(1e-04)
trades;dividends0.35590.40490.3169
p-value(0)(0)(0)
trades;wealth0.56750.26590.1862
p-value(0)(0)(0)
dividends;wealth0.37760.32880.2459
p-value(0)(0)(0)



Parameters (Session):
par1 = 12 ; par2 = 1 ; par3 = 1 ; par4 = 0 ; par5 = 1 ; par6 = 1 ; par7 = 1 ; par8 = 0 ; par9 = 0 ; par10 = FALSE ;
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')