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 09:21:40 -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/t1324477388ut3qx0x4gcbndek.htm/, Retrieved Tue, 07 May 2024 23:41:34 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=158727, Retrieved Tue, 07 May 2024 23:41:34 +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] [] [2011-12-21 14:21:40] [722cc7f94b3c1568a723b3c5e98a2726] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

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

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	'AstonUniversity' @ aston.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 & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158727&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]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158727&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158727&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	'AstonUniversity' @ aston.wessa.net

Correlations for all pairs of data series (method=pearson)
	TIME	LOGINS	BLOGGEDCOMPUTATIONS	REVIEWEDCOMPENDIUMS	COMPENIUMCHARACTERS	COMPENDIUMSECONDS
TIME	1	0.767	0.787	0.678	0.691	0.86
LOGINS	0.767	1	0.643	0.557	0.618	0.653
BLOGGEDCOMPUTATIONS	0.787	0.643	1	0.675	0.66	0.762
REVIEWEDCOMPENDIUMS	0.678	0.557	0.675	1	0.617	0.62
COMPENIUMCHARACTERS	0.691	0.618	0.66	0.617	1	0.756
COMPENDIUMSECONDS	0.86	0.653	0.762	0.62	0.756	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & TIME & LOGINS & BLOGGEDCOMPUTATIONS & REVIEWEDCOMPENDIUMS & COMPENIUMCHARACTERS & COMPENDIUMSECONDS \tabularnewline
TIME & 1 & 0.767 & 0.787 & 0.678 & 0.691 & 0.86 \tabularnewline
LOGINS & 0.767 & 1 & 0.643 & 0.557 & 0.618 & 0.653 \tabularnewline
BLOGGEDCOMPUTATIONS & 0.787 & 0.643 & 1 & 0.675 & 0.66 & 0.762 \tabularnewline
REVIEWEDCOMPENDIUMS & 0.678 & 0.557 & 0.675 & 1 & 0.617 & 0.62 \tabularnewline
COMPENIUMCHARACTERS & 0.691 & 0.618 & 0.66 & 0.617 & 1 & 0.756 \tabularnewline
COMPENDIUMSECONDS & 0.86 & 0.653 & 0.762 & 0.62 & 0.756 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158727&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]TIME[/C][C]LOGINS[/C][C]BLOGGEDCOMPUTATIONS[/C][C]REVIEWEDCOMPENDIUMS[/C][C]COMPENIUMCHARACTERS[/C][C]COMPENDIUMSECONDS[/C][/ROW]
[ROW][C]TIME[/C][C]1[/C][C]0.767[/C][C]0.787[/C][C]0.678[/C][C]0.691[/C][C]0.86[/C][/ROW]
[ROW][C]LOGINS[/C][C]0.767[/C][C]1[/C][C]0.643[/C][C]0.557[/C][C]0.618[/C][C]0.653[/C][/ROW]
[ROW][C]BLOGGEDCOMPUTATIONS[/C][C]0.787[/C][C]0.643[/C][C]1[/C][C]0.675[/C][C]0.66[/C][C]0.762[/C][/ROW]
[ROW][C]REVIEWEDCOMPENDIUMS[/C][C]0.678[/C][C]0.557[/C][C]0.675[/C][C]1[/C][C]0.617[/C][C]0.62[/C][/ROW]
[ROW][C]COMPENIUMCHARACTERS[/C][C]0.691[/C][C]0.618[/C][C]0.66[/C][C]0.617[/C][C]1[/C][C]0.756[/C][/ROW]
[ROW][C]COMPENDIUMSECONDS[/C][C]0.86[/C][C]0.653[/C][C]0.762[/C][C]0.62[/C][C]0.756[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158727&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158727&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	LOGINS	BLOGGEDCOMPUTATIONS	REVIEWEDCOMPENDIUMS	COMPENIUMCHARACTERS	COMPENDIUMSECONDS
TIME	1	0.767	0.787	0.678	0.691	0.86
LOGINS	0.767	1	0.643	0.557	0.618	0.653
BLOGGEDCOMPUTATIONS	0.787	0.643	1	0.675	0.66	0.762
REVIEWEDCOMPENDIUMS	0.678	0.557	0.675	1	0.617	0.62
COMPENIUMCHARACTERS	0.691	0.618	0.66	0.617	1	0.756
COMPENDIUMSECONDS	0.86	0.653	0.762	0.62	0.756	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
TIME;LOGINS	0.7672	0.7266	0.5589
p-value	(0)	(0)	(0)
TIME;BLOGGEDCOMPUTATIONS	0.7872	0.7678	0.5884
p-value	(0)	(0)	(0)
TIME;REVIEWEDCOMPENDIUMS	0.6779	0.5889	0.4365
p-value	(0)	(0)	(0)
TIME;COMPENIUMCHARACTERS	0.6915	0.6281	0.4739
p-value	(0)	(0)	(0)
TIME;COMPENDIUMSECONDS	0.8604	0.8219	0.6552
p-value	(0)	(0)	(0)
LOGINS;BLOGGEDCOMPUTATIONS	0.643	0.6664	0.501
p-value	(0)	(0)	(0)
LOGINS;REVIEWEDCOMPENDIUMS	0.5569	0.4938	0.3637
p-value	(0)	(0)	(0)
LOGINS;COMPENIUMCHARACTERS	0.6179	0.6051	0.4587
p-value	(0)	(0)	(0)
LOGINS;COMPENDIUMSECONDS	0.6534	0.5918	0.4374
p-value	(0)	(0)	(0)
BLOGGEDCOMPUTATIONS;REVIEWEDCOMPENDIUMS	0.6751	0.5977	0.4458
p-value	(0)	(0)	(0)
BLOGGEDCOMPUTATIONS;COMPENIUMCHARACTERS	0.6597	0.6343	0.4772
p-value	(0)	(0)	(0)
BLOGGEDCOMPUTATIONS;COMPENDIUMSECONDS	0.7622	0.7563	0.5794
p-value	(0)	(0)	(0)
REVIEWEDCOMPENDIUMS;COMPENIUMCHARACTERS	0.6166	0.5727	0.4279
p-value	(0)	(0)	(0)
REVIEWEDCOMPENDIUMS;COMPENDIUMSECONDS	0.6197	0.559	0.4177
p-value	(0)	(0)	(0)
COMPENIUMCHARACTERS;COMPENDIUMSECONDS	0.7563	0.7017	0.5394
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;LOGINS & 0.7672 & 0.7266 & 0.5589 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TIME;BLOGGEDCOMPUTATIONS & 0.7872 & 0.7678 & 0.5884 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TIME;REVIEWEDCOMPENDIUMS & 0.6779 & 0.5889 & 0.4365 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TIME;COMPENIUMCHARACTERS & 0.6915 & 0.6281 & 0.4739 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TIME;COMPENDIUMSECONDS & 0.8604 & 0.8219 & 0.6552 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
LOGINS;BLOGGEDCOMPUTATIONS & 0.643 & 0.6664 & 0.501 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
LOGINS;REVIEWEDCOMPENDIUMS & 0.5569 & 0.4938 & 0.3637 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
LOGINS;COMPENIUMCHARACTERS & 0.6179 & 0.6051 & 0.4587 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
LOGINS;COMPENDIUMSECONDS & 0.6534 & 0.5918 & 0.4374 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BLOGGEDCOMPUTATIONS;REVIEWEDCOMPENDIUMS & 0.6751 & 0.5977 & 0.4458 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BLOGGEDCOMPUTATIONS;COMPENIUMCHARACTERS & 0.6597 & 0.6343 & 0.4772 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BLOGGEDCOMPUTATIONS;COMPENDIUMSECONDS & 0.7622 & 0.7563 & 0.5794 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
REVIEWEDCOMPENDIUMS;COMPENIUMCHARACTERS & 0.6166 & 0.5727 & 0.4279 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
REVIEWEDCOMPENDIUMS;COMPENDIUMSECONDS & 0.6197 & 0.559 & 0.4177 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
COMPENIUMCHARACTERS;COMPENDIUMSECONDS & 0.7563 & 0.7017 & 0.5394 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158727&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;LOGINS[/C][C]0.7672[/C][C]0.7266[/C][C]0.5589[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TIME;BLOGGEDCOMPUTATIONS[/C][C]0.7872[/C][C]0.7678[/C][C]0.5884[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TIME;REVIEWEDCOMPENDIUMS[/C][C]0.6779[/C][C]0.5889[/C][C]0.4365[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TIME;COMPENIUMCHARACTERS[/C][C]0.6915[/C][C]0.6281[/C][C]0.4739[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TIME;COMPENDIUMSECONDS[/C][C]0.8604[/C][C]0.8219[/C][C]0.6552[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]LOGINS;BLOGGEDCOMPUTATIONS[/C][C]0.643[/C][C]0.6664[/C][C]0.501[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]LOGINS;REVIEWEDCOMPENDIUMS[/C][C]0.5569[/C][C]0.4938[/C][C]0.3637[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]LOGINS;COMPENIUMCHARACTERS[/C][C]0.6179[/C][C]0.6051[/C][C]0.4587[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]LOGINS;COMPENDIUMSECONDS[/C][C]0.6534[/C][C]0.5918[/C][C]0.4374[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BLOGGEDCOMPUTATIONS;REVIEWEDCOMPENDIUMS[/C][C]0.6751[/C][C]0.5977[/C][C]0.4458[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BLOGGEDCOMPUTATIONS;COMPENIUMCHARACTERS[/C][C]0.6597[/C][C]0.6343[/C][C]0.4772[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BLOGGEDCOMPUTATIONS;COMPENDIUMSECONDS[/C][C]0.7622[/C][C]0.7563[/C][C]0.5794[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]REVIEWEDCOMPENDIUMS;COMPENIUMCHARACTERS[/C][C]0.6166[/C][C]0.5727[/C][C]0.4279[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]REVIEWEDCOMPENDIUMS;COMPENDIUMSECONDS[/C][C]0.6197[/C][C]0.559[/C][C]0.4177[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]COMPENIUMCHARACTERS;COMPENDIUMSECONDS[/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]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158727&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158727&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
TIME;LOGINS	0.7672	0.7266	0.5589
p-value	(0)	(0)	(0)
TIME;BLOGGEDCOMPUTATIONS	0.7872	0.7678	0.5884
p-value	(0)	(0)	(0)
TIME;REVIEWEDCOMPENDIUMS	0.6779	0.5889	0.4365
p-value	(0)	(0)	(0)
TIME;COMPENIUMCHARACTERS	0.6915	0.6281	0.4739
p-value	(0)	(0)	(0)
TIME;COMPENDIUMSECONDS	0.8604	0.8219	0.6552
p-value	(0)	(0)	(0)
LOGINS;BLOGGEDCOMPUTATIONS	0.643	0.6664	0.501
p-value	(0)	(0)	(0)
LOGINS;REVIEWEDCOMPENDIUMS	0.5569	0.4938	0.3637
p-value	(0)	(0)	(0)
LOGINS;COMPENIUMCHARACTERS	0.6179	0.6051	0.4587
p-value	(0)	(0)	(0)
LOGINS;COMPENDIUMSECONDS	0.6534	0.5918	0.4374
p-value	(0)	(0)	(0)
BLOGGEDCOMPUTATIONS;REVIEWEDCOMPENDIUMS	0.6751	0.5977	0.4458
p-value	(0)	(0)	(0)
BLOGGEDCOMPUTATIONS;COMPENIUMCHARACTERS	0.6597	0.6343	0.4772
p-value	(0)	(0)	(0)
BLOGGEDCOMPUTATIONS;COMPENDIUMSECONDS	0.7622	0.7563	0.5794
p-value	(0)	(0)	(0)
REVIEWEDCOMPENDIUMS;COMPENIUMCHARACTERS	0.6166	0.5727	0.4279
p-value	(0)	(0)	(0)
REVIEWEDCOMPENDIUMS;COMPENDIUMSECONDS	0.6197	0.559	0.4177
p-value	(0)	(0)	(0)
COMPENIUMCHARACTERS;COMPENDIUMSECONDS	0.7563	0.7017	0.5394
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code