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, 22 Dec 2011 11:25:44 -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/22/t1324571233xb2iwwbyuxh5wjo.htm/, Retrieved Fri, 03 May 2024 03:55:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159689, Retrieved Fri, 03 May 2024 03:55:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact64
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] [WS10: pearson] [2011-12-11 13:35:32] [17977ad44e8eb3a4dcd5a9173c81cab3]
- RMP     [Multiple Regression] [WS10: MR] [2011-12-11 14:26:04] [17977ad44e8eb3a4dcd5a9173c81cab3]
- RM        [Recursive Partitioning (Regression Trees)] [WS10: RP2] [2011-12-11 15:20:26] [17977ad44e8eb3a4dcd5a9173c81cab3]
- RMPD          [Kendall tau Correlation Matrix] [pearson] [2011-12-22 16:25:44] [1a4698f17d8e7f554418314cf0e4bd67] [Current]
Feedback Forum

Post a new message
Dataseries X:
210907	30	112285	24188	146283
120982	28	84786	18273	98364
176508	38	83123	14130	86146
179321	30	101193	32287	96933
123185	22	38361	8654	79234
52746	26	68504	9245	42551
385534	25	119182	33251	195663
33170	18	22807	1271	6853
101645	11	17140	5279	21529
149061	26	116174	27101	95757
165446	25	57635	16373	85584
237213	38	66198	19716	143983
173326	44	71701	17753	75851
133131	30	57793	9028	59238
258873	40	80444	18653	93163
180083	34	53855	8828	96037
324799	47	97668	29498	151511
230964	30	133824	27563	136368
236785	31	101481	18293	112642
135473	23	99645	22530	94728
202925	36	114789	15977	105499
215147	36	99052	35082	121527
344297	30	67654	16116	127766
153935	25	65553	15849	98958
132943	39	97500	16026	77900
174724	34	69112	26569	85646
174415	31	82753	24785	98579
225548	31	85323	17569	130767
223632	33	72654	23825	131741
124817	25	30727	7869	53907
221698	33	77873	14975	178812
210767	35	117478	37791	146761
170266	42	74007	9605	82036
260561	43	90183	27295	163253
84853	30	61542	2746	27032
294424	33	101494	34461	171975
101011	13	27570	8098	65990
215641	32	55813	4787	86572
325107	36	79215	24919	159676
7176	0	1423	603	1929
167542	28	55461	16329	85371
106408	14	31081	12558	58391
96560	17	22996	7784	31580
265769	32	83122	28522	136815
269651	30	70106	22265	120642
149112	35	60578	14459	69107
175824	20	39992	14526	50495
152871	28	79892	22240	108016
111665	28	49810	11802	46341
116408	39	71570	7623	78348
362301	34	100708	11912	79336
78800	26	33032	7935	56968
183167	39	82875	18220	93176
277965	39	139077	19199	161632
150629	33	71595	19918	87850
168809	28	72260	21884	127969
24188	4	5950	2694	15049
329267	39	115762	15808	155135
65029	18	32551	3597	25109
101097	14	31701	5296	45824
218946	29	80670	25239	102996
244052	44	143558	29801	160604
341570	21	117105	18450	158051
103597	16	23789	7132	44547
233328	28	120733	34861	162647
256462	35	105195	35940	174141
206161	28	73107	16688	60622
311473	38	132068	24683	179566
235800	23	149193	46230	184301
177939	36	46821	10387	75661
207176	32	87011	21436	96144
196553	29	95260	30546	129847
174184	25	55183	19746	117286
143246	27	106671	15977	71180
187559	36	73511	22583	109377
187681	28	92945	17274	85298
119016	23	78664	16469	73631
182192	40	70054	14251	86767
73566	23	22618	3007	23824
194979	40	74011	16851	93487
167488	28	83737	21113	82981
143756	34	69094	17401	73815
275541	33	93133	23958	94552
243199	28	95536	23567	132190
182999	34	225920	13065	128754
135649	30	62133	15358	66363
152299	33	61370	14587	67808
120221	22	43836	12770	61724
346485	38	106117	24021	131722
145790	26	38692	9648	68580
193339	35	84651	20537	106175
80953	8	56622	7905	55792
122774	24	15986	4527	25157
130585	29	95364	30495	76669
112611	20	26706	7117	57283
286468	29	89691	17719	105805
241066	45	67267	27056	129484
148446	37	126846	33473	72413
204713	33	41140	9758	87831
182079	33	102860	21115	96971
140344	25	51715	7236	71299
220516	32	55801	13790	77494
243060	29	111813	32902	120336
162765	28	120293	25131	93913
182613	28	138599	30910	136048
232138	31	161647	35947	181248
265318	52	115929	29848	146123
85574	21	24266	6943	32036
310839	24	162901	42705	186646
225060	41	109825	31808	102255
232317	33	129838	26675	168237
144966	32	37510	8435	64219
43287	19	43750	7409	19630
155754	20	40652	14993	76825
164709	31	87771	36867	115338
201940	31	85872	33835	109427
235454	32	89275	24164	118168
220801	18	44418	12607	84845
99466	23	192565	22609	153197
92661	17	35232	5892	29877
133328	20	40909	17014	63506
61361	12	13294	5394	22445
125930	17	32387	9178	47695
100750	30	140867	6440	68370
224549	31	120662	21916	146304
82316	10	21233	4011	38233
102010	13	44332	5818	42071
101523	22	61056	18647	50517
243511	42	101338	20556	103950
22938	1	1168	238	5841
41566	9	13497	70	2341
152474	32	65567	22392	84396
61857	11	25162	3913	24610
99923	25	32334	12237	35753
132487	36	40735	8388	55515
317394	31	91413	22120	209056
21054	0	855	338	6622
209641	24	97068	11727	115814
22648	13	44339	3704	11609
31414	8	14116	3988	13155
46698	13	10288	3030	18274
131698	19	65622	13520	72875
91735	18	16563	1421	10112
244749	33	76643	20923	142775
184510	40	110681	20237	68847
79863	22	29011	3219	17659
128423	38	92696	3769	20112
97839	24	94785	12252	61023
38214	8	8773	1888	13983
151101	35	83209	14497	65176
272458	43	93815	28864	132432
172494	43	86687	21721	112494
108043	14	34553	4821	45109
328107	41	105547	33644	170875
250579	38	103487	15923	180759
351067	45	213688	42935	214921
158015	31	71220	18864	100226
98866	13	23517	4977	32043
85439	28	56926	7785	54454
229242	31	91721	17939	78876
351619	40	115168	23436	170745
84207	30	111194	325	6940
120445	16	51009	13539	49025
324598	37	135777	34538	122037
131069	30	51513	12198	53782
204271	35	74163	26924	127748
165543	32	51633	12716	86839
141722	27	75345	8172	44830
116048	20	33416	10855	77395
250047	18	83305	11932	89324
299775	31	98952	14300	103300
195838	31	102372	25515	112283
173260	21	37238	2805	10901
254488	39	103772	29402	120691
104389	41	123969	16440	58106
136084	13	27142	11221	57140
199476	32	135400	28732	122422
92499	18	21399	5250	25899
224330	39	130115	28608	139296
135781	14	24874	8092	52678
74408	7	34988	4473	23853
81240	17	45549	1572	17306
14688	0	6023	2065	7953
181633	30	64466	14817	89455
271856	37	54990	16714	147866
7199	0	1644	556	4245
46660	5	6179	2089	21509
17547	1	3926	2658	7670
133368	16	32755	10695	66675
95227	32	34777	1669	14336
152601	24	73224	16267	53608
98146	17	27114	7768	30059
79619	11	20760	7252	29668
59194	24	37636	6387	22097
139942	22	65461	18715	96841
118612	12	30080	7936	41907
72880	19	24094	8643	27080
65475	13	69008	7294	35885
99643	17	54968	4570	41247
71965	15	46090	7185	28313
77272	16	27507	10058	36845
49289	24	10672	2342	16548
135131	15	34029	8509	36134
108446	17	46300	13275	55764
89746	18	24760	6816	28910
44296	20	18779	1930	13339
77648	16	21280	8086	25319
181528	16	40662	10737	66956
134019	18	28987	8033	47487
124064	22	22827	7058	52785
92630	8	18513	6782	44683
121848	17	30594	5401	35619
52915	18	24006	6521	21920
81872	16	27913	10856	45608
58981	23	42744	2154	7721
53515	22	12934	6117	20634
60812	13	22574	5238	29788
56375	13	41385	4820	31931
65490	16	18653	5615	37754
80949	16	18472	4272	32505
76302	20	30976	8702	40557
104011	22	63339	15340	94238
98104	17	25568	8030	44197
67989	18	33747	9526	43228
30989	17	4154	1278	4103
135458	12	19474	4236	44144
73504	7	35130	3023	32868
63123	17	39067	7196	27640
61254	14	13310	3394	14063
74914	23	65892	6371	28990
31774	17	4143	1574	4694
81437	14	28579	9620	42648
87186	15	51776	6978	64329
50090	17	21152	4911	21928
65745	21	38084	8645	25836
56653	18	27717	8987	22779
158399	18	32928	5544	40820
46455	17	11342	3083	27530
73624	17	19499	6909	32378
38395	16	16380	3189	10824
91899	15	36874	6745	39613
139526	21	48259	16724	60865
52164	16	16734	4850	19787
51567	14	28207	7025	20107
70551	15	30143	6047	36605
84856	17	41369	7377	40961
102538	15	45833	9078	48231
86678	15	29156	4605	39725
85709	10	35944	3238	21455
34662	6	36278	8100	23430
150580	22	45588	9653	62991
99611	21	45097	8914	49363
19349	1	3895	786	9604
99373	18	28394	6700	24552
86230	17	18632	5788	31493
30837	4	2325	593	3439
31706	10	25139	4506	19555
89806	16	27975	6382	21228
62088	16	14483	5621	23177
40151	9	13127	3997	22094
27634	16	5839	520	2342
76990	17	24069	8891	38798
37460	7	3738	999	3255
54157	15	18625	7067	24261
49862	14	36341	4639	18511
84337	14	24548	5654	40798
64175	18	21792	6928	28893
59382	12	26263	1514	21425
119308	16	23686	9238	50276
76702	21	49303	8204	37643
103425	19	25659	5926	30377
70344	16	28904	5785	27126
43410	1	2781	4	13
104838	16	29236	5930	42097
62215	10	19546	3710	24451
69304	19	22818	705	14335
53117	12	32689	443	5084
19764	2	5752	2416	9927
86680	14	22197	7747	43527
84105	17	20055	5432	27184
77945	19	25272	4913	21610
89113	14	82206	2650	20484
91005	11	32073	2370	20156
40248	4	5444	775	6012
64187	16	20154	5576	18475
50857	20	36944	1352	12645
56613	12	8019	3080	11017
62792	15	30884	10205	37623
72535	16	19540	6095	35873




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159689&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 time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net







Correlations for all pairs of data series (method=pearson)
time_in_rfccompendiums_reviewedtotsizetotrevisionstotseconds
time_in_rfc10.7580.7460.7830.895
compendiums_reviewed0.75810.7340.6980.732
totsize0.7460.73410.8080.823
totrevisions0.7830.6980.80810.875
totseconds0.8950.7320.8230.8751

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & time_in_rfc & compendiums_reviewed & totsize & totrevisions & totseconds \tabularnewline
time_in_rfc & 1 & 0.758 & 0.746 & 0.783 & 0.895 \tabularnewline
compendiums_reviewed & 0.758 & 1 & 0.734 & 0.698 & 0.732 \tabularnewline
totsize & 0.746 & 0.734 & 1 & 0.808 & 0.823 \tabularnewline
totrevisions & 0.783 & 0.698 & 0.808 & 1 & 0.875 \tabularnewline
totseconds & 0.895 & 0.732 & 0.823 & 0.875 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159689&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]time_in_rfc[/C][C]compendiums_reviewed[/C][C]totsize[/C][C]totrevisions[/C][C]totseconds[/C][/ROW]
[ROW][C]time_in_rfc[/C][C]1[/C][C]0.758[/C][C]0.746[/C][C]0.783[/C][C]0.895[/C][/ROW]
[ROW][C]compendiums_reviewed[/C][C]0.758[/C][C]1[/C][C]0.734[/C][C]0.698[/C][C]0.732[/C][/ROW]
[ROW][C]totsize[/C][C]0.746[/C][C]0.734[/C][C]1[/C][C]0.808[/C][C]0.823[/C][/ROW]
[ROW][C]totrevisions[/C][C]0.783[/C][C]0.698[/C][C]0.808[/C][C]1[/C][C]0.875[/C][/ROW]
[ROW][C]totseconds[/C][C]0.895[/C][C]0.732[/C][C]0.823[/C][C]0.875[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159689&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159689&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)
time_in_rfccompendiums_reviewedtotsizetotrevisionstotseconds
time_in_rfc10.7580.7460.7830.895
compendiums_reviewed0.75810.7340.6980.732
totsize0.7460.73410.8080.823
totrevisions0.7830.6980.80810.875
totseconds0.8950.7320.8230.8751







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
time_in_rfc;compendiums_reviewed0.7580.78920.5899
p-value(0)(0)(0)
time_in_rfc;totsize0.74620.81180.6171
p-value(0)(0)(0)
time_in_rfc;totrevisions0.78270.8410.639
p-value(0)(0)(0)
time_in_rfc;totseconds0.89490.91750.7548
p-value(0)(0)(0)
compendiums_reviewed;totsize0.73450.78990.5825
p-value(0)(0)(0)
compendiums_reviewed;totrevisions0.69780.74290.5478
p-value(0)(0)(0)
compendiums_reviewed;totseconds0.73210.76070.5536
p-value(0)(0)(0)
totsize;totrevisions0.80780.82890.6491
p-value(0)(0)(0)
totsize;totseconds0.82320.84150.6567
p-value(0)(0)(0)
totrevisions;totseconds0.87460.91850.7495
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
time_in_rfc;compendiums_reviewed & 0.758 & 0.7892 & 0.5899 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;totsize & 0.7462 & 0.8118 & 0.6171 \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;totseconds & 0.8949 & 0.9175 & 0.7548 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
compendiums_reviewed;totsize & 0.7345 & 0.7899 & 0.5825 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
compendiums_reviewed;totrevisions & 0.6978 & 0.7429 & 0.5478 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
compendiums_reviewed;totseconds & 0.7321 & 0.7607 & 0.5536 \tabularnewline
p-value & (0) & (0) & (0) \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
totrevisions;totseconds & 0.8746 & 0.9185 & 0.7495 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159689&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]time_in_rfc;compendiums_reviewed[/C][C]0.758[/C][C]0.7892[/C][C]0.5899[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;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_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;totseconds[/C][C]0.8949[/C][C]0.9175[/C][C]0.7548[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]compendiums_reviewed;totsize[/C][C]0.7345[/C][C]0.7899[/C][C]0.5825[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]compendiums_reviewed;totrevisions[/C][C]0.6978[/C][C]0.7429[/C][C]0.5478[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]compendiums_reviewed;totseconds[/C][C]0.7321[/C][C]0.7607[/C][C]0.5536[/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;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]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]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159689&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159689&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
time_in_rfc;compendiums_reviewed0.7580.78920.5899
p-value(0)(0)(0)
time_in_rfc;totsize0.74620.81180.6171
p-value(0)(0)(0)
time_in_rfc;totrevisions0.78270.8410.639
p-value(0)(0)(0)
time_in_rfc;totseconds0.89490.91750.7548
p-value(0)(0)(0)
compendiums_reviewed;totsize0.73450.78990.5825
p-value(0)(0)(0)
compendiums_reviewed;totrevisions0.69780.74290.5478
p-value(0)(0)(0)
compendiums_reviewed;totseconds0.73210.76070.5536
p-value(0)(0)(0)
totsize;totrevisions0.80780.82890.6491
p-value(0)(0)(0)
totsize;totseconds0.82320.84150.6567
p-value(0)(0)(0)
totrevisions;totseconds0.87460.91850.7495
p-value(0)(0)(0)



Parameters (Session):
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')