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 computationFri, 23 Dec 2011 00:39:23 -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/23/t1324618784hlf9xeq4wg5oft1.htm/, Retrieved Mon, 29 Apr 2024 17:43:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160164, Retrieved Mon, 29 Apr 2024 17:43:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact114
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [Pearson Correlati...] [2011-12-23 05:39:23] [5c55e7d277583a4a66c326a86fdb470e] [Current]
Feedback Forum

Post a new message
Dataseries X:
1845	162687	95	595	115	0	48
1917	233285	67	580	79	1	75
192	7215	18	72	1	0	0
2665	164587	99	737	158	0	74
3709	283430	141	1255	127	0	92
7138	546996	275	2021	278	1	137
1888	192501	61	606	95	1	65
1909	213538	64	533	64	0	97
2140	182282	46	687	92	0	62
3168	336547	102	1074	130	1	72
1957	122275	77	637	158	2	50
2370	203938	72	743	120	0	88
1998	119300	110	701	87	0	68
3203	220796	122	1087	264	4	79
1505	174005	67	422	51	4	56
1574	156326	89	474	85	3	54
1965	164063	60	483	100	0	101
1314	90025	63	375	72	5	13
2921	179987	90	929	147	0	80
823	47066	29	262	49	0	19
1289	109572	64	437	40	0	33
2818	241285	103	850	99	0	99
1792	208339	77	652	127	1	38
2474	164166	59	754	166	1	68
1994	159763	89	619	41	1	54
1806	207078	34	657	160	0	63
2177	217028	169	695	92	0	66
1458	201536	96	366	59	0	90
3057	408960	124	1015	89	0	75
2487	250260	48	1029	104	0	68
1914	216527	46	576	81	0	69
1825	212949	51	656	116	2	80
2509	164248	110	812	105	4	59
3634	278911	136	1108	388	0	135
2608	238654	59	852	88	1	75
1	0	1	0	0	0	0
2157	233971	66	1009	63	0	54
1978	149649	55	658	138	3	62
2224	161703	52	547	270	9	46
2215	254893	70	826	64	0	83
2538	269492	73	838	96	2	106
1881	169526	62	704	62	0	51
1113	107893	35	404	35	2	27
2380	229714	83	848	66	1	78
1365	139667	51	419	56	2	71
1294	175983	102	349	46	2	44
756	81407	33	216	49	1	23
2465	251259	110	796	121	0	78
2327	239807	90	752	113	1	60
2787	172743	60	964	190	8	73
658	48188	28	205	37	0	12
2013	169355	71	506	52	0	104
2666	335398	78	841	89	0	95
2086	244729	81	699	73	0	57
2067	208286	62	746	61	1	68
1776	159913	58	547	77	8	44
2045	232137	72	561	63	0	62
1047	101694	26	329	75	1	26
1190	157258	68	427	32	0	67
2932	211586	101	993	59	10	36
1868	181076	66	564	71	6	56
2316	158024	86	858	92	0	55
1392	141491	64	376	87	11	54
1355	130108	40	471	48	3	61
1326	166420	39	432	63	0	27
1587	135509	45	500	41	0	64
2336	195043	72	504	86	8	76
2898	138708	66	887	152	2	93
1118	116552	40	271	49	0	59
340	31970	15	101	40	0	5
3224	291993	121	1203	148	3	62
1552	167825	82	506	86	1	47
1551	135926	69	528	62	2	88
1794	136647	77	501	96	1	57
2728	171518	71	698	95	0	81
1580	108980	46	426	83	2	35
2414	183471	61	709	112	1	102
2640	167426	101	847	77	0	73
1203	112510	49	367	78	0	32
1313	92421	77	413	114	0	34
1207	117169	84	272	55	0	80
2246	304603	65	830	60	0	49
1076	75101	30	334	49	1	30
1638	145043	41	524	132	0	57
1208	95827	48	393	49	0	54
1868	173931	60	574	71	0	38
2829	250424	252	695	102	0	63
1209	115367	116	284	74	0	58
1463	125839	66	462	49	7	49
1610	164078	54	653	74	0	46
1865	158931	42	684	59	5	51
2444	190382	85	714	91	1	90
1253	155226	59	420	68	0	45
1468	146159	61	551	81	0	28
979	62641	44	396	33	0	26
2365	258585	121	741	166	0	54
1890	199841	71	571	97	0	96
223	19349	12	67	15	0	13
2527	247280	109	877	105	3	43
2186	173152	88	885	61	0	46
778	72128	30	306	11	0	30
1194	104253	26	382	45	0	59
1424	151090	57	435	89	0	73
1386	147990	68	348	72	1	40
839	87448	42	227	27	1	36
596	27676	22	194	59	0	2
1684	170326	52	413	127	0	103
1168	132148	38	273	48	1	30
0	0	0	0	0	0	0
1315	133868	36	390	58	0	78
1149	109001	68	376	57	0	25
1485	158833	46	495	60	0	59
1529	150013	66	448	77	1	60
962	89887	63	313	71	0	36
78	3616	5	14	5	0	0
0	0	0	0	0	0	0
1295	216479	48	445	78	0	51
1751	177323	102	637	76	0	79
2142	177948	102	593	124	2	30
1070	140106	41	326	67	0	43
778	43410	19	292	63	0	7
1986	206059	76	573	92	1	92
1084	109873	45	315	58	0	32
2400	157084	61	683	65	10	84
731	60493	40	174	29	3	3
285	19764	12	75	19	1	10
1873	177559	57	572	64	3	47
1269	154169	36	414	79	0	44
1725	164249	54	562	104	0	54
256	11796	9	79	22	0	1
98	10674	9	33	7	0	0
1435	151322	59	487	37	0	46
41	6836	3	11	5	0	0
1931	174712	68	664	48	6	51
42	5118	3	6	1	0	5
528	40248	16	183	34	1	8
0	0	0	0	0	0	0
1122	127628	51	342	53	0	38
1305	88837	38	269	44	0	21
81	7131	4	27	0	1	0
262	9056	15	99	18	0	0
1165	97191	31	322	52	1	26
1405	157478	59	367	60	0	53
1409	125583	23	521	50	1	31




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160164&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)
abcdefg
a10.8950.8160.9660.7510.1910.785
b0.89510.7610.8870.6120.0830.77
c0.8160.76110.7550.5930.0760.621
d0.9660.8870.75510.7050.1580.728
e0.7510.6120.5930.70510.1760.611
f0.1910.0830.0760.1580.17610.054
g0.7850.770.6210.7280.6110.0541

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & a & b & c & d & e & f & g \tabularnewline
a & 1 & 0.895 & 0.816 & 0.966 & 0.751 & 0.191 & 0.785 \tabularnewline
b & 0.895 & 1 & 0.761 & 0.887 & 0.612 & 0.083 & 0.77 \tabularnewline
c & 0.816 & 0.761 & 1 & 0.755 & 0.593 & 0.076 & 0.621 \tabularnewline
d & 0.966 & 0.887 & 0.755 & 1 & 0.705 & 0.158 & 0.728 \tabularnewline
e & 0.751 & 0.612 & 0.593 & 0.705 & 1 & 0.176 & 0.611 \tabularnewline
f & 0.191 & 0.083 & 0.076 & 0.158 & 0.176 & 1 & 0.054 \tabularnewline
g & 0.785 & 0.77 & 0.621 & 0.728 & 0.611 & 0.054 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160164&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]a[/C][C]b[/C][C]c[/C][C]d[/C][C]e[/C][C]f[/C][C]g[/C][/ROW]
[ROW][C]a[/C][C]1[/C][C]0.895[/C][C]0.816[/C][C]0.966[/C][C]0.751[/C][C]0.191[/C][C]0.785[/C][/ROW]
[ROW][C]b[/C][C]0.895[/C][C]1[/C][C]0.761[/C][C]0.887[/C][C]0.612[/C][C]0.083[/C][C]0.77[/C][/ROW]
[ROW][C]c[/C][C]0.816[/C][C]0.761[/C][C]1[/C][C]0.755[/C][C]0.593[/C][C]0.076[/C][C]0.621[/C][/ROW]
[ROW][C]d[/C][C]0.966[/C][C]0.887[/C][C]0.755[/C][C]1[/C][C]0.705[/C][C]0.158[/C][C]0.728[/C][/ROW]
[ROW][C]e[/C][C]0.751[/C][C]0.612[/C][C]0.593[/C][C]0.705[/C][C]1[/C][C]0.176[/C][C]0.611[/C][/ROW]
[ROW][C]f[/C][C]0.191[/C][C]0.083[/C][C]0.076[/C][C]0.158[/C][C]0.176[/C][C]1[/C][C]0.054[/C][/ROW]
[ROW][C]g[/C][C]0.785[/C][C]0.77[/C][C]0.621[/C][C]0.728[/C][C]0.611[/C][C]0.054[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160164&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160164&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)
abcdefg
a10.8950.8160.9660.7510.1910.785
b0.89510.7610.8870.6120.0830.77
c0.8160.76110.7550.5930.0760.621
d0.9660.8870.75510.7050.1580.728
e0.7510.6120.5930.70510.1760.611
f0.1910.0830.0760.1580.17610.054
g0.7850.770.6210.7280.6110.0541







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
a;b0.89530.86720.7094
p-value(0)(0)(0)
a;c0.81580.77470.6101
p-value(0)(0)(0)
a;d0.96570.95960.8359
p-value(0)(0)(0)
a;e0.7510.7750.5917
p-value(0)(0)(0)
a;f0.1910.22790.1726
p-value(0.0219)(0.006)(0.0067)
a;g0.7850.76480.589
p-value(0)(0)(0)
b;c0.76050.72650.5622
p-value(0)(0)(0)
b;d0.88690.85730.6907
p-value(0)(0)(0)
b;e0.61240.67470.5019
p-value(0)(0)(0)
b;f0.08260.11470.0877
p-value(0.3248)(0.1712)(0.1688)
b;g0.76990.72920.5536
p-value(0)(0)(0)
c;d0.75510.72960.5685
p-value(0)(0)(0)
c;e0.59320.6310.4689
p-value(0)(0)(0)
c;f0.07590.15090.115
p-value(0.3659)(0.0711)(0.0722)
c;g0.62150.63090.4672
p-value(0)(0)(0)
d;e0.70540.73660.557
p-value(0)(0)(0)
d;f0.15770.18960.1461
p-value(0.059)(0.0229)(0.0219)
d;g0.72760.6990.5324
p-value(0)(0)(0)
e;f0.17620.16460.128
p-value(0.0347)(0.0487)(0.0453)
e;g0.61080.62440.4577
p-value(0)(0)(0)
f;g0.05430.06010.0472
p-value(0.5179)(0.4744)(0.4618)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
a;b & 0.8953 & 0.8672 & 0.7094 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
a;c & 0.8158 & 0.7747 & 0.6101 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
a;d & 0.9657 & 0.9596 & 0.8359 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
a;e & 0.751 & 0.775 & 0.5917 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
a;f & 0.191 & 0.2279 & 0.1726 \tabularnewline
p-value & (0.0219) & (0.006) & (0.0067) \tabularnewline
a;g & 0.785 & 0.7648 & 0.589 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
b;c & 0.7605 & 0.7265 & 0.5622 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
b;d & 0.8869 & 0.8573 & 0.6907 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
b;e & 0.6124 & 0.6747 & 0.5019 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
b;f & 0.0826 & 0.1147 & 0.0877 \tabularnewline
p-value & (0.3248) & (0.1712) & (0.1688) \tabularnewline
b;g & 0.7699 & 0.7292 & 0.5536 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
c;d & 0.7551 & 0.7296 & 0.5685 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
c;e & 0.5932 & 0.631 & 0.4689 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
c;f & 0.0759 & 0.1509 & 0.115 \tabularnewline
p-value & (0.3659) & (0.0711) & (0.0722) \tabularnewline
c;g & 0.6215 & 0.6309 & 0.4672 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
d;e & 0.7054 & 0.7366 & 0.557 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
d;f & 0.1577 & 0.1896 & 0.1461 \tabularnewline
p-value & (0.059) & (0.0229) & (0.0219) \tabularnewline
d;g & 0.7276 & 0.699 & 0.5324 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
e;f & 0.1762 & 0.1646 & 0.128 \tabularnewline
p-value & (0.0347) & (0.0487) & (0.0453) \tabularnewline
e;g & 0.6108 & 0.6244 & 0.4577 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
f;g & 0.0543 & 0.0601 & 0.0472 \tabularnewline
p-value & (0.5179) & (0.4744) & (0.4618) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160164&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]a;b[/C][C]0.8953[/C][C]0.8672[/C][C]0.7094[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]a;c[/C][C]0.8158[/C][C]0.7747[/C][C]0.6101[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]a;d[/C][C]0.9657[/C][C]0.9596[/C][C]0.8359[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]a;e[/C][C]0.751[/C][C]0.775[/C][C]0.5917[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]a;f[/C][C]0.191[/C][C]0.2279[/C][C]0.1726[/C][/ROW]
[ROW][C]p-value[/C][C](0.0219)[/C][C](0.006)[/C][C](0.0067)[/C][/ROW]
[ROW][C]a;g[/C][C]0.785[/C][C]0.7648[/C][C]0.589[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]b;c[/C][C]0.7605[/C][C]0.7265[/C][C]0.5622[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]b;d[/C][C]0.8869[/C][C]0.8573[/C][C]0.6907[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]b;e[/C][C]0.6124[/C][C]0.6747[/C][C]0.5019[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]b;f[/C][C]0.0826[/C][C]0.1147[/C][C]0.0877[/C][/ROW]
[ROW][C]p-value[/C][C](0.3248)[/C][C](0.1712)[/C][C](0.1688)[/C][/ROW]
[ROW][C]b;g[/C][C]0.7699[/C][C]0.7292[/C][C]0.5536[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]c;d[/C][C]0.7551[/C][C]0.7296[/C][C]0.5685[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]c;e[/C][C]0.5932[/C][C]0.631[/C][C]0.4689[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]c;f[/C][C]0.0759[/C][C]0.1509[/C][C]0.115[/C][/ROW]
[ROW][C]p-value[/C][C](0.3659)[/C][C](0.0711)[/C][C](0.0722)[/C][/ROW]
[ROW][C]c;g[/C][C]0.6215[/C][C]0.6309[/C][C]0.4672[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]d;e[/C][C]0.7054[/C][C]0.7366[/C][C]0.557[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]d;f[/C][C]0.1577[/C][C]0.1896[/C][C]0.1461[/C][/ROW]
[ROW][C]p-value[/C][C](0.059)[/C][C](0.0229)[/C][C](0.0219)[/C][/ROW]
[ROW][C]d;g[/C][C]0.7276[/C][C]0.699[/C][C]0.5324[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]e;f[/C][C]0.1762[/C][C]0.1646[/C][C]0.128[/C][/ROW]
[ROW][C]p-value[/C][C](0.0347)[/C][C](0.0487)[/C][C](0.0453)[/C][/ROW]
[ROW][C]e;g[/C][C]0.6108[/C][C]0.6244[/C][C]0.4577[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]f;g[/C][C]0.0543[/C][C]0.0601[/C][C]0.0472[/C][/ROW]
[ROW][C]p-value[/C][C](0.5179)[/C][C](0.4744)[/C][C](0.4618)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160164&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160164&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
a;b0.89530.86720.7094
p-value(0)(0)(0)
a;c0.81580.77470.6101
p-value(0)(0)(0)
a;d0.96570.95960.8359
p-value(0)(0)(0)
a;e0.7510.7750.5917
p-value(0)(0)(0)
a;f0.1910.22790.1726
p-value(0.0219)(0.006)(0.0067)
a;g0.7850.76480.589
p-value(0)(0)(0)
b;c0.76050.72650.5622
p-value(0)(0)(0)
b;d0.88690.85730.6907
p-value(0)(0)(0)
b;e0.61240.67470.5019
p-value(0)(0)(0)
b;f0.08260.11470.0877
p-value(0.3248)(0.1712)(0.1688)
b;g0.76990.72920.5536
p-value(0)(0)(0)
c;d0.75510.72960.5685
p-value(0)(0)(0)
c;e0.59320.6310.4689
p-value(0)(0)(0)
c;f0.07590.15090.115
p-value(0.3659)(0.0711)(0.0722)
c;g0.62150.63090.4672
p-value(0)(0)(0)
d;e0.70540.73660.557
p-value(0)(0)(0)
d;f0.15770.18960.1461
p-value(0.059)(0.0229)(0.0219)
d;g0.72760.6990.5324
p-value(0)(0)(0)
e;f0.17620.16460.128
p-value(0.0347)(0.0487)(0.0453)
e;g0.61080.62440.4577
p-value(0)(0)(0)
f;g0.05430.06010.0472
p-value(0.5179)(0.4744)(0.4618)



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