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

Wed, 21 Dec 2011 08:00:56 -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/21/t132447247677henwxc96ytz6w.htm/, Retrieved Tue, 07 May 2024 17:44:30 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=158627, Retrieved Tue, 07 May 2024 17:44:30 +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] [pearson correlati...] [2011-12-18 15:22:22] [9631d8669dd1906475401d4d7f07aac5]
-   PD    [Kendall tau Correlation Matrix] [Kendall tau Corre...] [2011-12-21 13:00:56] [76fd4dc79b6db5fbcdab5e105f7c78f7] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

20465	158258	48	18	23975	0
33629	186930	53	20	85634	1
1423	7215	0	0	1929	0
25629	129098	51	27	36294	0
54002	230632	76	31	72255	0
151036	508313	128	36	189748	1
33287	180745	62	23	61834	1
31172	185559	83	30	68167	0
28113	154581	55	30	38462	0
57803	290658	67	26	101219	1
49830	121844	50	24	43270	2
52143	184039	77	30	76183	0
21055	100324	46	22	31476	0
47007	209427	79	25	62157	4
28735	168265	56	18	46261	4
59147	154593	54	22	50063	3
78950	142018	81	33	64483	0
13497	79030	6	15	2341	5
46154	167047	74	34	48149	0
53249	27997	13	18	12743	0
10726	73019	22	15	18743	0
83700	241082	99	30	97057	0
40400	195820	38	25	17675	0
33797	141899	59	34	33106	1
36205	145433	50	21	53311	1
30165	183744	50	21	42754	0
58534	202232	61	25	59056	0
44663	190230	81	31	101621	0
92556	354924	60	31	118120	0
40078	192399	52	20	79572	0
34711	182286	61	28	42744	0
31076	181590	60	22	65931	2
74608	133801	53	17	38575	4
58092	233686	76	25	28795	0
42009	219428	63	24	94440	1
0	0	0	0	0	0
36022	223044	54	28	38229	0
23333	100129	44	14	31972	3
53349	136733	36	35	40071	9
92596	249965	83	34	132480	0
49598	242379	105	22	62797	2
44093	145794	37	34	40429	0
84205	96404	25	23	45545	2
63369	195891	64	24	57568	1
60132	117156	55	26	39019	2
37403	157787	41	22	53866	2
24460	81293	23	35	38345	1
46456	224049	67	24	50210	0
66616	223789	54	31	80947	1
41554	160344	68	26	43461	8
22346	48188	12	22	14812	0
30874	152206	86	21	37819	0
68701	294283	74	27	102738	0
35728	235223	56	30	54509	0
29010	195583	67	33	62956	1
23110	145942	40	11	55411	8
38844	208834	53	26	50611	0
27084	93764	26	26	26692	1
35139	151985	67	23	60056	0
57476	190545	36	38	25155	10
33277	148922	50	31	42840	6
31141	132856	48	20	39358	0
61281	126107	46	19	47241	11
25820	112718	53	26	49611	3
23284	160930	27	26	41833	0
35378	99184	38	33	48930	0
74990	182022	69	36	110600	8
29653	138708	93	25	52235	2
64622	114408	59	24	53986	0
4157	31970	5	21	4105	0
29245	225558	53	19	59331	3
50008	137011	40	12	47796	1
52338	113612	72	30	38302	2
13310	108641	51	21	14063	1
92901	162203	81	34	54414	0
10956	100098	27	32	9903	2
34241	174768	94	28	53987	1
75043	158459	71	28	88937	0
21152	80934	20	21	21928	0
42249	84971	34	31	29487	0
42005	80545	54	26	35334	0
41152	287191	49	29	57596	0
14399	62974	26	23	29750	1
28263	134091	48	25	41029	0
17215	75555	35	22	12416	0
48140	162154	32	26	51158	0
62897	226638	55	33	79935	0
22883	115019	58	24	26552	0
41622	105038	44	24	25807	7
40715	155537	45	21	50620	0
65897	153133	49	28	61467	5
76542	165577	72	27	65292	1
37477	151517	39	25	55516	0
53216	133686	28	15	42006	0
40911	61342	24	13	26273	0
57021	245196	52	36	90248	0
73116	195576	96	24	61476	0
3895	19349	13	1	9604	0
46609	225371	38	24	45108	3
29351	152796	41	31	47232	0
2325	59117	24	4	3439	0
31747	91762	54	21	30553	0
32665	136769	68	23	24751	0
19249	113552	28	23	34458	1
15292	85338	36	12	24649	1
5842	27676	2	16	2342	0
33994	147984	83	29	52739	0
13018	122417	29	26	6245	0
0	0	0	0	0	0
98177	91529	46	25	35381	0
37941	107205	25	21	19595	0
31032	144664	51	23	50848	0
32683	136540	59	21	39443	0
34545	76656	36	21	27023	0
0	3616	0	0	0	0
0	0	0	0	0	0
27525	183065	40	23	61022	0
66856	144636	68	33	63528	0
28549	159104	28	30	34835	2
38610	113273	36	23	37172	0
2781	43410	7	1	13	0
41211	175774	70	29	62548	1
22698	95401	30	18	31334	0
41194	118893	59	32	20839	8
32689	60493	3	12	5084	3
5752	19764	10	2	9927	1
26757	164062	46	21	53229	3
22527	132696	34	28	29877	0
44810	155367	54	29	37310	0
0	11796	1	2	0	0
0	10674	0	0	0	0
100674	142261	39	18	50067	0
0	6836	0	1	0	0
57786	154206	48	21	47708	6
0	5118	5	0	0	0
5444	40248	8	4	6012	1
0	0	0	0	0	0
28470	122641	38	25	27749	0
61849	88837	21	26	47555	0
0	7131	0	0	0	1
2179	9056	0	4	1336	0
8019	76611	15	17	11017	1
39644	132697	50	21	55184	0
23494	100681	17	22	43485	1

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

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

Correlations for all pairs of data series (method=kendall)
	CWCharacters	Time	Blogs	Reviews	CWseconds	Shared
CWCharacters	1	0.47	0.473	0.423	0.539	0.092
Time	0.47	1	0.585	0.435	0.658	0.079
Blogs	0.473	0.585	1	0.441	0.583	0.063
Reviews	0.423	0.435	0.441	1	0.415	0.035
CWseconds	0.539	0.658	0.583	0.415	1	0.089
Shared	0.092	0.079	0.063	0.035	0.089	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & CWCharacters & Time & Blogs & Reviews & CWseconds & Shared \tabularnewline
CWCharacters & 1 & 0.47 & 0.473 & 0.423 & 0.539 & 0.092 \tabularnewline
Time & 0.47 & 1 & 0.585 & 0.435 & 0.658 & 0.079 \tabularnewline
Blogs & 0.473 & 0.585 & 1 & 0.441 & 0.583 & 0.063 \tabularnewline
Reviews & 0.423 & 0.435 & 0.441 & 1 & 0.415 & 0.035 \tabularnewline
CWseconds & 0.539 & 0.658 & 0.583 & 0.415 & 1 & 0.089 \tabularnewline
Shared & 0.092 & 0.079 & 0.063 & 0.035 & 0.089 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158627&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]CWCharacters[/C][C]Time[/C][C]Blogs[/C][C]Reviews[/C][C]CWseconds[/C][C]Shared[/C][/ROW]
[ROW][C]CWCharacters[/C][C]1[/C][C]0.47[/C][C]0.473[/C][C]0.423[/C][C]0.539[/C][C]0.092[/C][/ROW]
[ROW][C]Time[/C][C]0.47[/C][C]1[/C][C]0.585[/C][C]0.435[/C][C]0.658[/C][C]0.079[/C][/ROW]
[ROW][C]Blogs[/C][C]0.473[/C][C]0.585[/C][C]1[/C][C]0.441[/C][C]0.583[/C][C]0.063[/C][/ROW]
[ROW][C]Reviews[/C][C]0.423[/C][C]0.435[/C][C]0.441[/C][C]1[/C][C]0.415[/C][C]0.035[/C][/ROW]
[ROW][C]CWseconds[/C][C]0.539[/C][C]0.658[/C][C]0.583[/C][C]0.415[/C][C]1[/C][C]0.089[/C][/ROW]
[ROW][C]Shared[/C][C]0.092[/C][C]0.079[/C][C]0.063[/C][C]0.035[/C][C]0.089[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158627&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158627&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=kendall)
	CWCharacters	Time	Blogs	Reviews	CWseconds	Shared
CWCharacters	1	0.47	0.473	0.423	0.539	0.092
Time	0.47	1	0.585	0.435	0.658	0.079
Blogs	0.473	0.585	1	0.441	0.583	0.063
Reviews	0.423	0.435	0.441	1	0.415	0.035
CWseconds	0.539	0.658	0.583	0.415	1	0.089
Shared	0.092	0.079	0.063	0.035	0.089	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
CWCharacters;Time	0.689	0.6235	0.4696
p-value	(0)	(0)	(0)
CWCharacters;Blogs	0.6616	0.6316	0.4734
p-value	(0)	(0)	(0)
CWCharacters;Reviews	0.6149	0.5666	0.4232
p-value	(0)	(0)	(0)
CWCharacters;CWseconds	0.7563	0.7017	0.5394
p-value	(0)	(0)	(0)
CWCharacters;Shared	0.1394	0.121	0.0924
p-value	(0.0956)	(0.1485)	(0.1484)
Time;Blogs	0.785	0.7636	0.5854
p-value	(0)	(0)	(0)
Time;Reviews	0.6761	0.5855	0.4346
p-value	(0)	(0)	(0)
Time;CWseconds	0.8591	0.8244	0.6583
p-value	(0)	(0)	(0)
Time;Shared	0.074	0.1012	0.0785
p-value	(0.378)	(0.2276)	(0.2185)
Blogs;Reviews	0.6752	0.5895	0.4406
p-value	(0)	(0)	(0)
Blogs;CWseconds	0.7641	0.7608	0.5835
p-value	(0)	(0)	(0)
Blogs;Shared	0.0639	0.086	0.0633
p-value	(0.4468)	(0.3054)	(0.3245)
Reviews;CWseconds	0.6197	0.5561	0.415
p-value	(0)	(0)	(0)
Reviews;Shared	0.1384	0.0465	0.0354
p-value	(0.098)	(0.5796)	(0.5868)
CWseconds;Shared	0.0458	0.1224	0.0886
p-value	(0.5858)	(0.1438)	(0.1657)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
CWCharacters;Time & 0.689 & 0.6235 & 0.4696 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
CWCharacters;Blogs & 0.6616 & 0.6316 & 0.4734 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
CWCharacters;Reviews & 0.6149 & 0.5666 & 0.4232 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
CWCharacters;CWseconds & 0.7563 & 0.7017 & 0.5394 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
CWCharacters;Shared & 0.1394 & 0.121 & 0.0924 \tabularnewline
p-value & (0.0956) & (0.1485) & (0.1484) \tabularnewline
Time;Blogs & 0.785 & 0.7636 & 0.5854 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;Reviews & 0.6761 & 0.5855 & 0.4346 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;CWseconds & 0.8591 & 0.8244 & 0.6583 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;Shared & 0.074 & 0.1012 & 0.0785 \tabularnewline
p-value & (0.378) & (0.2276) & (0.2185) \tabularnewline
Blogs;Reviews & 0.6752 & 0.5895 & 0.4406 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Blogs;CWseconds & 0.7641 & 0.7608 & 0.5835 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Blogs;Shared & 0.0639 & 0.086 & 0.0633 \tabularnewline
p-value & (0.4468) & (0.3054) & (0.3245) \tabularnewline
Reviews;CWseconds & 0.6197 & 0.5561 & 0.415 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Reviews;Shared & 0.1384 & 0.0465 & 0.0354 \tabularnewline
p-value & (0.098) & (0.5796) & (0.5868) \tabularnewline
CWseconds;Shared & 0.0458 & 0.1224 & 0.0886 \tabularnewline
p-value & (0.5858) & (0.1438) & (0.1657) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158627&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]CWCharacters;Time[/C][C]0.689[/C][C]0.6235[/C][C]0.4696[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]CWCharacters;Blogs[/C][C]0.6616[/C][C]0.6316[/C][C]0.4734[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]CWCharacters;Reviews[/C][C]0.6149[/C][C]0.5666[/C][C]0.4232[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]CWCharacters;CWseconds[/C][C]0.7563[/C][C]0.7017[/C][C]0.5394[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]CWCharacters;Shared[/C][C]0.1394[/C][C]0.121[/C][C]0.0924[/C][/ROW]
[ROW][C]p-value[/C][C](0.0956)[/C][C](0.1485)[/C][C](0.1484)[/C][/ROW]
[ROW][C]Time;Blogs[/C][C]0.785[/C][C]0.7636[/C][C]0.5854[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;Reviews[/C][C]0.6761[/C][C]0.5855[/C][C]0.4346[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;CWseconds[/C][C]0.8591[/C][C]0.8244[/C][C]0.6583[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;Shared[/C][C]0.074[/C][C]0.1012[/C][C]0.0785[/C][/ROW]
[ROW][C]p-value[/C][C](0.378)[/C][C](0.2276)[/C][C](0.2185)[/C][/ROW]
[ROW][C]Blogs;Reviews[/C][C]0.6752[/C][C]0.5895[/C][C]0.4406[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Blogs;CWseconds[/C][C]0.7641[/C][C]0.7608[/C][C]0.5835[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Blogs;Shared[/C][C]0.0639[/C][C]0.086[/C][C]0.0633[/C][/ROW]
[ROW][C]p-value[/C][C](0.4468)[/C][C](0.3054)[/C][C](0.3245)[/C][/ROW]
[ROW][C]Reviews;CWseconds[/C][C]0.6197[/C][C]0.5561[/C][C]0.415[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Reviews;Shared[/C][C]0.1384[/C][C]0.0465[/C][C]0.0354[/C][/ROW]
[ROW][C]p-value[/C][C](0.098)[/C][C](0.5796)[/C][C](0.5868)[/C][/ROW]
[ROW][C]CWseconds;Shared[/C][C]0.0458[/C][C]0.1224[/C][C]0.0886[/C][/ROW]
[ROW][C]p-value[/C][C](0.5858)[/C][C](0.1438)[/C][C](0.1657)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158627&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158627&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
CWCharacters;Time	0.689	0.6235	0.4696
p-value	(0)	(0)	(0)
CWCharacters;Blogs	0.6616	0.6316	0.4734
p-value	(0)	(0)	(0)
CWCharacters;Reviews	0.6149	0.5666	0.4232
p-value	(0)	(0)	(0)
CWCharacters;CWseconds	0.7563	0.7017	0.5394
p-value	(0)	(0)	(0)
CWCharacters;Shared	0.1394	0.121	0.0924
p-value	(0.0956)	(0.1485)	(0.1484)
Time;Blogs	0.785	0.7636	0.5854
p-value	(0)	(0)	(0)
Time;Reviews	0.6761	0.5855	0.4346
p-value	(0)	(0)	(0)
Time;CWseconds	0.8591	0.8244	0.6583
p-value	(0)	(0)	(0)
Time;Shared	0.074	0.1012	0.0785
p-value	(0.378)	(0.2276)	(0.2185)
Blogs;Reviews	0.6752	0.5895	0.4406
p-value	(0)	(0)	(0)
Blogs;CWseconds	0.7641	0.7608	0.5835
p-value	(0)	(0)	(0)
Blogs;Shared	0.0639	0.086	0.0633
p-value	(0.4468)	(0.3054)	(0.3245)
Reviews;CWseconds	0.6197	0.5561	0.415
p-value	(0)	(0)	(0)
Reviews;Shared	0.1384	0.0465	0.0354
p-value	(0.098)	(0.5796)	(0.5868)
CWseconds;Shared	0.0458	0.1224	0.0886
p-value	(0.5858)	(0.1438)	(0.1657)

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = kendall ;

Parameters (R input):

par1 = kendall ;

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