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 04:50:25 -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/t1324461039fq4a7h3zdxpwjbi.htm/, Retrieved Tue, 07 May 2024 09:32:59 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=158399, Retrieved Tue, 07 May 2024 09:32:59 +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

120

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Kendall tau Correlation Matrix] [rfc kendall] [2011-12-21 09:50:25] [0956ee981dded61b2e7128dae94e5715] [Current]
-    D    [Kendall tau Correlation Matrix] [] [2011-12-22 19:41:26] [ff74c68cc78961a8924de2f2c00accbc] 
-   PD    [Kendall tau Correlation Matrix] [] [2011-12-22 20:03:34] [ff74c68cc78961a8924de2f2c00accbc] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1772	158258	48	18	63	20465
1703	186930	53	20	56	33629
192	7215	0	0	0	1423
2294	129098	51	27	63	25629
3448	230587	76	31	116	54002
6813	508313	128	36	138	151036
1795	180745	62	23	71	33287
1680	185559	83	30	107	31172
1896	154581	55	30	50	28113
2917	290658	67	26	79	57803
1946	121844	50	24	58	49830
2148	184039	77	30	91	52143
1832	100324	46	22	41	21055
3059	209427	79	25	91	47007
1469	167592	55	18	61	28735
1565	154593	54	22	74	59147
1755	142018	81	33	131	78950
1234	77855	5	15	45	13497
2779	167047	74	34	110	46154
726	27997	13	18	41	53249
1048	73019	22	15	37	10726
2804	241082	99	30	84	83700
1760	195820	38	25	67	40400
2261	141899	59	34	69	33797
1848	145433	50	21	58	36205
1647	180241	50	21	60	30165
2081	202232	61	25	88	58534
1392	190230	81	31	75	44663
2741	354924	60	31	98	92556
2111	192399	52	20	67	40078
1684	182286	61	28	84	34711
1616	181590	60	22	62	31076
2227	133801	53	17	35	74608
3088	233686	76	25	74	58092
2388	219428	63	24	89	42009
1	0	0	0	0	0
2099	223044	54	28	79	36022
1669	100129	44	14	39	23333
2094	136733	36	35	101	53349
2153	249965	83	34	135	92596
2390	242379	105	22	76	49598
1701	145794	37	34	118	44093
983	96404	25	23	76	84205
2161	195891	64	24	65	63369
1276	117156	55	26	97	60132
1189	157787	41	22	67	37403
744	81293	23	35	63	24460
2231	224049	67	24	96	46456
2242	223789	54	31	112	66616
2638	160344	68	26	75	41554
658	48188	12	22	39	22346
1859	152206	86	21	63	30874
2489	294283	74	27	93	68701
2025	235223	56	30	76	35728
1911	195583	67	33	117	29010
1714	145942	40	11	30	23110
1851	208834	53	26	65	38844
980	93764	26	26	78	27084
1177	151985	67	23	87	35139
2809	190545	36	38	85	57476
1688	148922	50	31	115	33277
2097	132856	48	20	62	31141
1309	126107	46	19	53	61281
1243	112718	53	26	67	25820
1255	160930	27	26	90	23284
1293	99184	38	33	100	35378
2259	182022	69	36	135	74990
2897	138708	93	25	71	29653
1103	114408	59	24	75	64622
340	31970	5	21	42	4157
2791	225558	53	19	42	29245
1333	137011	40	12	8	50008
1441	113612	72	30	86	52338
1622	108641	51	21	41	13310
2649	162203	81	34	118	92901
1499	100098	27	32	91	10956
2302	174768	94	28	102	34241
2540	158459	71	28	89	75043
1000	80934	20	21	46	21152
1234	84971	34	31	60	42249
927	80545	54	26	69	42005
2176	287191	49	29	95	41152
956	62974	26	23	17	14399
1531	130982	47	25	61	28263
1013	75555	35	22	55	17215
1771	162154	32	26	55	48140
2613	226638	55	33	124	62897
1203	115019	58	24	73	22883
1303	105038	44	24	73	41622
1524	155537	45	21	67	40715
1829	153133	49	28	66	65897
2227	165577	72	27	75	76542
1233	151517	39	25	83	37477
1365	133686	28	15	55	53216
901	58128	24	13	27	40911
2319	245196	52	36	115	57021
1856	195576	96	24	76	73116
223	19349	13	1	0	3895
2390	225371	38	24	83	46609
1973	152796	41	31	90	29351
699	59117	24	4	4	2325
1062	91762	54	21	60	31747
1252	127987	59	23	63	32665
1154	113552	28	23	52	19249
823	85338	36	12	24	15292
596	27676	2	16	17	5842
1471	147984	83	29	105	33994
1130	122417	29	26	20	13018
0	0	0	0	0	0
1082	91529	46	25	51	98177
1134	107205	25	21	76	37941
1366	144664	51	23	59	31032
1452	136540	59	21	70	32683
869	76656	36	21	38	34545
78	3616	0	0	0	0
0	0	0	0	0	0
1127	183065	40	23	81	27525
1578	144636	68	33	78	66856
1982	152826	28	28	67	28549
919	113273	36	23	89	38610
778	43410	7	1	3	2781
1751	175774	70	29	87	41211
956	95401	30	18	51	22698
1875	118893	59	32	69	41194
731	60493	3	12	32	32689
285	19764	10	2	4	5752
1833	164062	46	21	70	26757
1147	132696	34	28	102	22527
1646	155367	54	29	91	44810
256	11796	1	2	1	0
98	10674	0	0	0	0
1403	142261	39	18	39	100674
41	6836	0	1	0	0
1786	154206	48	21	45	57786
42	5118	5	0	0	0
528	40248	8	4	7	5444
0	0	0	0	0	0
1072	122641	38	25	75	28470
1305	88837	21	26	52	61849
81	7131	0	0	0	0
261	9056	0	4	1	2179
934	76611	15	17	49	8019
1179	132697	50	21	69	39644
1147	100681	17	22	56	23494

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158399&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=kendall)
	Pageviews	time	blogs	peerreviews	peerreviews+	compcharachters
Pageviews	1	0.701	0.596	0.464	0.489	0.475
time	0.701	1	0.588	0.434	0.537	0.472
blogs	0.596	0.588	1	0.445	0.525	0.476
peerreviews	0.464	0.434	0.445	1	0.684	0.425
peerreviews+	0.489	0.537	0.525	0.684	1	0.467
compcharachters	0.475	0.472	0.476	0.425	0.467	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Pageviews & time & blogs & peerreviews & peerreviews+ & compcharachters \tabularnewline
Pageviews & 1 & 0.701 & 0.596 & 0.464 & 0.489 & 0.475 \tabularnewline
time & 0.701 & 1 & 0.588 & 0.434 & 0.537 & 0.472 \tabularnewline
blogs & 0.596 & 0.588 & 1 & 0.445 & 0.525 & 0.476 \tabularnewline
peerreviews & 0.464 & 0.434 & 0.445 & 1 & 0.684 & 0.425 \tabularnewline
peerreviews+ & 0.489 & 0.537 & 0.525 & 0.684 & 1 & 0.467 \tabularnewline
compcharachters & 0.475 & 0.472 & 0.476 & 0.425 & 0.467 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158399&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Pageviews[/C][C]time[/C][C]blogs[/C][C]peerreviews[/C][C]peerreviews+[/C][C]compcharachters[/C][/ROW]
[ROW][C]Pageviews[/C][C]1[/C][C]0.701[/C][C]0.596[/C][C]0.464[/C][C]0.489[/C][C]0.475[/C][/ROW]
[ROW][C]time[/C][C]0.701[/C][C]1[/C][C]0.588[/C][C]0.434[/C][C]0.537[/C][C]0.472[/C][/ROW]
[ROW][C]blogs[/C][C]0.596[/C][C]0.588[/C][C]1[/C][C]0.445[/C][C]0.525[/C][C]0.476[/C][/ROW]
[ROW][C]peerreviews[/C][C]0.464[/C][C]0.434[/C][C]0.445[/C][C]1[/C][C]0.684[/C][C]0.425[/C][/ROW]
[ROW][C]peerreviews+[/C][C]0.489[/C][C]0.537[/C][C]0.525[/C][C]0.684[/C][C]1[/C][C]0.467[/C][/ROW]
[ROW][C]compcharachters[/C][C]0.475[/C][C]0.472[/C][C]0.476[/C][C]0.425[/C][C]0.467[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158399&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158399&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)
	Pageviews	time	blogs	peerreviews	peerreviews+	compcharachters
Pageviews	1	0.701	0.596	0.464	0.489	0.475
time	0.701	1	0.588	0.434	0.537	0.472
blogs	0.596	0.588	1	0.445	0.525	0.476
peerreviews	0.464	0.434	0.445	1	0.684	0.425
peerreviews+	0.489	0.537	0.525	0.684	1	0.467
compcharachters	0.475	0.472	0.476	0.425	0.467	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
Pageviews;time	0.8904	0.8653	0.7014
p-value	(0)	(0)	(0)
Pageviews;blogs	0.7931	0.7697	0.5956
p-value	(0)	(0)	(0)
Pageviews;peerreviews	0.6707	0.6221	0.4645
p-value	(0)	(0)	(0)
Pageviews;peerreviews+	0.6926	0.6517	0.4887
p-value	(0)	(0)	(0)
Pageviews;compcharachters	0.6933	0.6338	0.475
p-value	(0)	(0)	(0)
time;blogs	0.7864	0.7665	0.5883
p-value	(0)	(0)	(0)
time;peerreviews	0.6762	0.5848	0.434
p-value	(0)	(0)	(0)
time;peerreviews+	0.7397	0.7103	0.5369
p-value	(0)	(0)	(0)
time;compcharachters	0.6897	0.6262	0.4715
p-value	(0)	(0)	(0)
blogs;peerreviews	0.6779	0.5941	0.4446
p-value	(0)	(0)	(0)
blogs;peerreviews+	0.7319	0.6894	0.5251
p-value	(0)	(0)	(0)
blogs;compcharachters	0.6636	0.6337	0.4756
p-value	(0)	(0)	(0)
peerreviews;peerreviews+	0.8826	0.8338	0.684
p-value	(0)	(0)	(0)
peerreviews;compcharachters	0.6161	0.5681	0.4247
p-value	(0)	(0)	(0)
peerreviews+;compcharachters	0.6423	0.6142	0.4666
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
Pageviews;time & 0.8904 & 0.8653 & 0.7014 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;blogs & 0.7931 & 0.7697 & 0.5956 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;peerreviews & 0.6707 & 0.6221 & 0.4645 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;peerreviews+ & 0.6926 & 0.6517 & 0.4887 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;compcharachters & 0.6933 & 0.6338 & 0.475 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;blogs & 0.7864 & 0.7665 & 0.5883 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;peerreviews & 0.6762 & 0.5848 & 0.434 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;peerreviews+ & 0.7397 & 0.7103 & 0.5369 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;compcharachters & 0.6897 & 0.6262 & 0.4715 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogs;peerreviews & 0.6779 & 0.5941 & 0.4446 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogs;peerreviews+ & 0.7319 & 0.6894 & 0.5251 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogs;compcharachters & 0.6636 & 0.6337 & 0.4756 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
peerreviews;peerreviews+ & 0.8826 & 0.8338 & 0.684 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
peerreviews;compcharachters & 0.6161 & 0.5681 & 0.4247 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
peerreviews+;compcharachters & 0.6423 & 0.6142 & 0.4666 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158399&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]Pageviews;time[/C][C]0.8904[/C][C]0.8653[/C][C]0.7014[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;blogs[/C][C]0.7931[/C][C]0.7697[/C][C]0.5956[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;peerreviews[/C][C]0.6707[/C][C]0.6221[/C][C]0.4645[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;peerreviews+[/C][C]0.6926[/C][C]0.6517[/C][C]0.4887[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;compcharachters[/C][C]0.6933[/C][C]0.6338[/C][C]0.475[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;blogs[/C][C]0.7864[/C][C]0.7665[/C][C]0.5883[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;peerreviews[/C][C]0.6762[/C][C]0.5848[/C][C]0.434[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;peerreviews+[/C][C]0.7397[/C][C]0.7103[/C][C]0.5369[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;compcharachters[/C][C]0.6897[/C][C]0.6262[/C][C]0.4715[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogs;peerreviews[/C][C]0.6779[/C][C]0.5941[/C][C]0.4446[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogs;peerreviews+[/C][C]0.7319[/C][C]0.6894[/C][C]0.5251[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogs;compcharachters[/C][C]0.6636[/C][C]0.6337[/C][C]0.4756[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]peerreviews;peerreviews+[/C][C]0.8826[/C][C]0.8338[/C][C]0.684[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]peerreviews;compcharachters[/C][C]0.6161[/C][C]0.5681[/C][C]0.4247[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]peerreviews+;compcharachters[/C][C]0.6423[/C][C]0.6142[/C][C]0.4666[/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=158399&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158399&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
Pageviews;time	0.8904	0.8653	0.7014
p-value	(0)	(0)	(0)
Pageviews;blogs	0.7931	0.7697	0.5956
p-value	(0)	(0)	(0)
Pageviews;peerreviews	0.6707	0.6221	0.4645
p-value	(0)	(0)	(0)
Pageviews;peerreviews+	0.6926	0.6517	0.4887
p-value	(0)	(0)	(0)
Pageviews;compcharachters	0.6933	0.6338	0.475
p-value	(0)	(0)	(0)
time;blogs	0.7864	0.7665	0.5883
p-value	(0)	(0)	(0)
time;peerreviews	0.6762	0.5848	0.434
p-value	(0)	(0)	(0)
time;peerreviews+	0.7397	0.7103	0.5369
p-value	(0)	(0)	(0)
time;compcharachters	0.6897	0.6262	0.4715
p-value	(0)	(0)	(0)
blogs;peerreviews	0.6779	0.5941	0.4446
p-value	(0)	(0)	(0)
blogs;peerreviews+	0.7319	0.6894	0.5251
p-value	(0)	(0)	(0)
blogs;compcharachters	0.6636	0.6337	0.4756
p-value	(0)	(0)	(0)
peerreviews;peerreviews+	0.8826	0.8338	0.684
p-value	(0)	(0)	(0)
peerreviews;compcharachters	0.6161	0.5681	0.4247
p-value	(0)	(0)	(0)
peerreviews+;compcharachters	0.6423	0.6142	0.4666
p-value	(0)	(0)	(0)

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