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

Tue, 13 Dec 2011 17:08:13 -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/13/t1323814106quli3a5qbatykkv.htm/, Retrieved Thu, 02 May 2024 19:04:29 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=154751, Retrieved Thu, 02 May 2024 19:04:29 +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 17:44:33] [b98453cac15ba1066b407e146608df68]
- RMPD  [Kendall tau Correlation Matrix] [] [2011-12-13 16:01:05] [a1957df0bc37aec4aa3c994e6a08412c]
-   PD      [Kendall tau Correlation Matrix] [] [2011-12-13 22:08:13] [fdaf10f0fcbe7b8f79ecbd42ec74e6ad] [Current]
-   PD        [Kendall tau Correlation Matrix] [] [2011-12-19 11:01:34] [a1957df0bc37aec4aa3c994e6a08412c] 
-    D          [Kendall tau Correlation Matrix] [] [2011-12-19 11:44:54] [a1957df0bc37aec4aa3c994e6a08412c] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

2981,85	2819,19	11394,84	10539,51	10407	44,23
3080,58	2892,56	11545,71	10723,78	10463	45,85
3106,22	2866,08	11809,38	10682,06	10556	53,38
3119,31	2817,41	11395,64	10283,19	10646	53,26
3061,26	2934,75	11082,38	10377,18	10702	51,8
3097,31	3036,54	11402,75	10486,64	11353	55,3
3161,69	3139,5	11716,87	10545,38	11346	57,81
3257,16	3114,31	12204,98	10554,27	11451	63,96
3277,01	3261,3	12986,62	10532,54	11964	63,77
3295,32	3201,79	13392,79	10324,31	12574	59,15
3363,99	3264,53	14368,05	10695,25	13031	56,12
3494,17	3349,1	15650,83	10827,81	13812	57,42
3667,03	3446,17	16102,64	10872,48	14544	63,52
3813,06	3469,48	16187,64	10971,19	14931	61,71
3917,96	3507,13	16311,54	11145,65	14886	63,01
3895,51	3536,2	17232,97	11234,68	16005	68,18
3801,06	3359,05	16397,83	11333,88	17064	72,03
3570,12	3378,85	14990,31	10997,97	15168	69,75
3701,61	3449,15	15147,55	11036,89	16050	74,41
3862,27	3522,89	15786,78	11257,35	15839	74,33
3970,1	3551,04	15934,09	11533,59	15137	64,24
4138,52	3669,15	16519,44	11963,12	14954	60,03
4199,75	3602	16101,07	12185,15	15648	59,44
4290,89	3697,22	16775,08	12377,62	15305	62,5
4443,91	3760,9	17286,32	12512,89	15579	55,04
4502,64	3665,08	17741,23	12631,48	16348	58,34
4356,98	3708,8	17128,37	12268,53	15928	61,92
4591,27	3858,21	17460,53	12754,8	16171	67,65
4696,96	3933,16	17611,14	13407,75	15937	67,68
4621,4	3946,98	18001,37	13480,21	15713	70,3
4562,84	3794,29	17974,77	13673,28	15594	75,26
4202,52	3765,56	16460,95	13239,71	15683	71,44
4296,49	3820,33	16235,39	13557,69	16438	76,36
4435,23	3885,12	16903,36	13901,28	17032	81,71
4105,18	3752,67	15543,76	13200,58	17696	92,6
4116,68	3683,79	15532,18	13406,97	17745	90,6
3844,49	3240,75	13731,31	12538,12	19394	92,23
3720,98	3188,82	13547,84	12419,57	20148	94,09
3674,4	3017,98	12602,93	12193,88	20108	102,79
3857,62	3237,2	13357,7	12656,63	18584	109,65
3801,06	3182,53	13995,33	12812,48	18441	124,05
3504,37	2906,42	14084,6	12056,67	18391	132,69
3032,6	2881,35	13168,91	11322,38	19178	135,81
3047,03	2915,64	12989,35	11530,75	18079	116,07
2962,34	2635,13	12123,53	11114,08	18483	101,42
2197,82	2331,43	9117,03	9181,73	19644	75,73
2014,45	2159,04	8531,45	8614,55	19195	55,48
1862,83	NA	8460,94	8595,56	19650	43,8
1905,41	1983,48	8331,49	8396,2	20830	45,29
1810,99	1770,41	7694,78	7690,5	23595	44,01
1670,07	1815,99	7764,58	7235,47	22937	47,48
1864,44	2026,97	8767,96	7992,12	21814	51,07
2052,02	2124,81	9304,43	8398,37	21928	57,84
2029,6	2098,28	9810,31	8593	21777	69,04
2070,83	2291,39	9691,12	8679,75	21383	65,61
2293,41	2401,57	10430,35	9374,63	21467	72,87
2443,27	2453,89	10302,87	9634,97	22052	68,41
2513,17	2409,53	10066,24	9857,34	22680	73,25
2466,92	2432,45	9633,83	10238,83	24320	77,43
2502,66	2585,34	10169,02	10433,44	24977	75,28
2539,91	2478,51	10661,62	10471,24	25204	77,33
2482,6	2470,18	10175,13	10214,51	25739	74,31
2626,15	2629,16	10671,49	10677,52	26434	79,7
2656,32	2541,22	11139,77	11052,15	27525	85,47
2446,66	2397,18	10103,98	10500,19	30695	77,98
2467,38	2359,66	9786,05	10159,27	32436	75,69
2462,32	2476,2	9456,84	10222,24	30160	75,2
2504,58	2449,57	9268,24	10350,4	30236	77,21
2579,39	2482,18	9346,72	10598,07	31293	77,85
2649,24	2542,76	9455,09	11044,49	31077	83,53
2636,87	2477,63	9797,18	11198,31	32226	85,99
2613,94	2586,46	10254,46	11465,26	33865	91,77
2634,01	2654,47	10449,53	11802,37	32810	96,59
2711,94	2713,48	10622,27	12190	32242	103,57
2646,43	2582,9	9852,45	12081,48	32700	114,46
2717,79	2661,37	9644,62	12434,93	32819	122,54
2701,54	2631,87	9650,78	12579,99	33947	115,08
2572,98	2561,37	9541,53	12097,31	34148	113,93
2488,92	2510,85	9996,68	12512,33	35261	116,29
2204,91	2238,24	9072,94	11326,62	39506	110,12
2123,99	2159,7	8695,42	11175,45	41591	110,86
2149,1	2318	8733,56	11515,93	39148	108,53

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 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 & 2 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154751&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154751&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154751&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	2 seconds
R Server	'Gertrude Mary Cox' @ cox.wessa.net

Correlations for all pairs of data series (method=pearson)
	BEL20	DJEuropeStoxx	Nikkei	DowJones	Goudprijs	Brent
BEL20	1	0.982	0.965	0.779	-0.579	-0.04
DJEuropeStoxx	0.982	1	0.963	0.747	-0.613	-0.107
Nikkei	0.965	0.963	1	0.668	-0.621	-0.115
DowJones	0.779	0.747	0.668	1	-0.042	0.477
Goudprijs	-0.579	-0.613	-0.621	-0.042	1	0.565
Brent	-0.04	-0.107	-0.115	0.477	0.565	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & BEL20 & DJEuropeStoxx & Nikkei & DowJones & Goudprijs & Brent \tabularnewline
BEL20 & 1 & 0.982 & 0.965 & 0.779 & -0.579 & -0.04 \tabularnewline
DJEuropeStoxx & 0.982 & 1 & 0.963 & 0.747 & -0.613 & -0.107 \tabularnewline
Nikkei & 0.965 & 0.963 & 1 & 0.668 & -0.621 & -0.115 \tabularnewline
DowJones & 0.779 & 0.747 & 0.668 & 1 & -0.042 & 0.477 \tabularnewline
Goudprijs & -0.579 & -0.613 & -0.621 & -0.042 & 1 & 0.565 \tabularnewline
Brent & -0.04 & -0.107 & -0.115 & 0.477 & 0.565 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154751&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]BEL20[/C][C]DJEuropeStoxx[/C][C]Nikkei[/C][C]DowJones[/C][C]Goudprijs[/C][C]Brent[/C][/ROW]
[ROW][C]BEL20[/C][C]1[/C][C]0.982[/C][C]0.965[/C][C]0.779[/C][C]-0.579[/C][C]-0.04[/C][/ROW]
[ROW][C]DJEuropeStoxx[/C][C]0.982[/C][C]1[/C][C]0.963[/C][C]0.747[/C][C]-0.613[/C][C]-0.107[/C][/ROW]
[ROW][C]Nikkei[/C][C]0.965[/C][C]0.963[/C][C]1[/C][C]0.668[/C][C]-0.621[/C][C]-0.115[/C][/ROW]
[ROW][C]DowJones[/C][C]0.779[/C][C]0.747[/C][C]0.668[/C][C]1[/C][C]-0.042[/C][C]0.477[/C][/ROW]
[ROW][C]Goudprijs[/C][C]-0.579[/C][C]-0.613[/C][C]-0.621[/C][C]-0.042[/C][C]1[/C][C]0.565[/C][/ROW]
[ROW][C]Brent[/C][C]-0.04[/C][C]-0.107[/C][C]-0.115[/C][C]0.477[/C][C]0.565[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154751&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154751&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)
	BEL20	DJEuropeStoxx	Nikkei	DowJones	Goudprijs	Brent
BEL20	1	0.982	0.965	0.779	-0.579	-0.04
DJEuropeStoxx	0.982	1	0.963	0.747	-0.613	-0.107
Nikkei	0.965	0.963	1	0.668	-0.621	-0.115
DowJones	0.779	0.747	0.668	1	-0.042	0.477
Goudprijs	-0.579	-0.613	-0.621	-0.042	1	0.565
Brent	-0.04	-0.107	-0.115	0.477	0.565	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
BEL20;DJEuropeStoxx	0.9823	0.9833	0.8986
p-value	(0)	(0)	(0)
BEL20;Nikkei	0.9647	0.9509	0.8155
p-value	(0)	(0)	(0)
BEL20;DowJones	0.7788	0.7617	0.6017
p-value	(0)	(0)	(0)
BEL20;Goudprijs	-0.5789	-0.6314	-0.3397
p-value	(0)	(0)	(0)
BEL20;Brent	-0.0397	-0.0274	0.0187
p-value	(0.7232)	(0.8069)	(0.8039)
DJEuropeStoxx;Nikkei	0.9633	0.9518	0.8167
p-value	(0)	(0)	(0)
DJEuropeStoxx;DowJones	0.7469	0.7241	0.5753
p-value	(0)	(0)	(0)
DJEuropeStoxx;Goudprijs	-0.6126	-0.6589	-0.3679
p-value	(0)	(0)	(0)
DJEuropeStoxx;Brent	-0.1069	-0.0968	-0.0222
p-value	(0.3421)	(0.3891)	(0.769)
Nikkei;DowJones	0.6685	0.6467	0.4953
p-value	(0)	(0)	(0)
Nikkei;Goudprijs	-0.6206	-0.6778	-0.4291
p-value	(0)	(0)	(0)
Nikkei;Brent	-0.1153	-0.1041	-0.0659
p-value	(0.3024)	(0.3512)	(0.3805)
DowJones;Goudprijs	-0.0421	-0.0777	-3e-04
p-value	(0.7076)	(0.4869)	(0.9968)
DowJones;Brent	0.4774	0.4822	0.346
p-value	(0)	(0)	(0)
Goudprijs;Brent	0.5654	0.6258	0.4851
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
BEL20;DJEuropeStoxx & 0.9823 & 0.9833 & 0.8986 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BEL20;Nikkei & 0.9647 & 0.9509 & 0.8155 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BEL20;DowJones & 0.7788 & 0.7617 & 0.6017 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BEL20;Goudprijs & -0.5789 & -0.6314 & -0.3397 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BEL20;Brent & -0.0397 & -0.0274 & 0.0187 \tabularnewline
p-value & (0.7232) & (0.8069) & (0.8039) \tabularnewline
DJEuropeStoxx;Nikkei & 0.9633 & 0.9518 & 0.8167 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
DJEuropeStoxx;DowJones & 0.7469 & 0.7241 & 0.5753 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
DJEuropeStoxx;Goudprijs & -0.6126 & -0.6589 & -0.3679 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
DJEuropeStoxx;Brent & -0.1069 & -0.0968 & -0.0222 \tabularnewline
p-value & (0.3421) & (0.3891) & (0.769) \tabularnewline
Nikkei;DowJones & 0.6685 & 0.6467 & 0.4953 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Nikkei;Goudprijs & -0.6206 & -0.6778 & -0.4291 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Nikkei;Brent & -0.1153 & -0.1041 & -0.0659 \tabularnewline
p-value & (0.3024) & (0.3512) & (0.3805) \tabularnewline
DowJones;Goudprijs & -0.0421 & -0.0777 & -3e-04 \tabularnewline
p-value & (0.7076) & (0.4869) & (0.9968) \tabularnewline
DowJones;Brent & 0.4774 & 0.4822 & 0.346 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Goudprijs;Brent & 0.5654 & 0.6258 & 0.4851 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154751&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]BEL20;DJEuropeStoxx[/C][C]0.9823[/C][C]0.9833[/C][C]0.8986[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BEL20;Nikkei[/C][C]0.9647[/C][C]0.9509[/C][C]0.8155[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BEL20;DowJones[/C][C]0.7788[/C][C]0.7617[/C][C]0.6017[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BEL20;Goudprijs[/C][C]-0.5789[/C][C]-0.6314[/C][C]-0.3397[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BEL20;Brent[/C][C]-0.0397[/C][C]-0.0274[/C][C]0.0187[/C][/ROW]
[ROW][C]p-value[/C][C](0.7232)[/C][C](0.8069)[/C][C](0.8039)[/C][/ROW]
[ROW][C]DJEuropeStoxx;Nikkei[/C][C]0.9633[/C][C]0.9518[/C][C]0.8167[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]DJEuropeStoxx;DowJones[/C][C]0.7469[/C][C]0.7241[/C][C]0.5753[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]DJEuropeStoxx;Goudprijs[/C][C]-0.6126[/C][C]-0.6589[/C][C]-0.3679[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]DJEuropeStoxx;Brent[/C][C]-0.1069[/C][C]-0.0968[/C][C]-0.0222[/C][/ROW]
[ROW][C]p-value[/C][C](0.3421)[/C][C](0.3891)[/C][C](0.769)[/C][/ROW]
[ROW][C]Nikkei;DowJones[/C][C]0.6685[/C][C]0.6467[/C][C]0.4953[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Nikkei;Goudprijs[/C][C]-0.6206[/C][C]-0.6778[/C][C]-0.4291[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Nikkei;Brent[/C][C]-0.1153[/C][C]-0.1041[/C][C]-0.0659[/C][/ROW]
[ROW][C]p-value[/C][C](0.3024)[/C][C](0.3512)[/C][C](0.3805)[/C][/ROW]
[ROW][C]DowJones;Goudprijs[/C][C]-0.0421[/C][C]-0.0777[/C][C]-3e-04[/C][/ROW]
[ROW][C]p-value[/C][C](0.7076)[/C][C](0.4869)[/C][C](0.9968)[/C][/ROW]
[ROW][C]DowJones;Brent[/C][C]0.4774[/C][C]0.4822[/C][C]0.346[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Goudprijs;Brent[/C][C]0.5654[/C][C]0.6258[/C][C]0.4851[/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=154751&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154751&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
BEL20;DJEuropeStoxx	0.9823	0.9833	0.8986
p-value	(0)	(0)	(0)
BEL20;Nikkei	0.9647	0.9509	0.8155
p-value	(0)	(0)	(0)
BEL20;DowJones	0.7788	0.7617	0.6017
p-value	(0)	(0)	(0)
BEL20;Goudprijs	-0.5789	-0.6314	-0.3397
p-value	(0)	(0)	(0)
BEL20;Brent	-0.0397	-0.0274	0.0187
p-value	(0.7232)	(0.8069)	(0.8039)
DJEuropeStoxx;Nikkei	0.9633	0.9518	0.8167
p-value	(0)	(0)	(0)
DJEuropeStoxx;DowJones	0.7469	0.7241	0.5753
p-value	(0)	(0)	(0)
DJEuropeStoxx;Goudprijs	-0.6126	-0.6589	-0.3679
p-value	(0)	(0)	(0)
DJEuropeStoxx;Brent	-0.1069	-0.0968	-0.0222
p-value	(0.3421)	(0.3891)	(0.769)
Nikkei;DowJones	0.6685	0.6467	0.4953
p-value	(0)	(0)	(0)
Nikkei;Goudprijs	-0.6206	-0.6778	-0.4291
p-value	(0)	(0)	(0)
Nikkei;Brent	-0.1153	-0.1041	-0.0659
p-value	(0.3024)	(0.3512)	(0.3805)
DowJones;Goudprijs	-0.0421	-0.0777	-3e-04
p-value	(0.7076)	(0.4869)	(0.9968)
DowJones;Brent	0.4774	0.4822	0.346
p-value	(0)	(0)	(0)
Goudprijs;Brent	0.5654	0.6258	0.4851
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 1 ; par2 = none ; par3 = 3 ; par4 = no ;

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code