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 15:50:41 -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/t1324500651mjkn7k4sv7r6ege.htm/, Retrieved Tue, 07 May 2024 23:03:18 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159006, Retrieved Tue, 07 May 2024 23:03:18 +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-21 20:50:41] [3f0da162950979c43b1152c5680f6843] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

158258	89	48	18	20465	23975
186930	57	53	20	33629	85634
7215	18	0	0	1423	1929
129098	94	51	27	25629	36294
230587	134	76	31	54002	72255
508313	260	128	36	151036	189748
180745	56	62	23	33287	61834
185559	58	83	30	31172	68167
154581	43	55	30	28113	38462
290658	95	67	26	57803	101219
121844	75	50	24	49830	43270
184039	68	77	30	52143	76183
100324	98	46	22	21055	31476
209427	114	79	25	47007	62157
167592	57	55	18	28735	46261
154593	86	54	22	59147	50063
142018	56	81	33	78950	64483
77855	59	5	15	13497	2341
167047	86	74	34	46154	48149
27997	24	13	18	53249	12743
70824	58	19	15	10726	18743
241082	99	99	30	83700	97057
195820	72	38	25	40400	17675
141899	53	59	34	33797	33106
145433	85	50	21	36205	53311
180241	30	50	21	30165	42754
202232	160	61	25	58534	59056
190230	90	81	31	44663	101621
354924	117	60	31	92556	118120
192399	43	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	52	63	24	42009	94440
0	1	0	0	0	0
223044	63	54	28	36022	38229
100129	51	44	14	23333	31972
136733	47	36	35	53349	40071
249965	64	83	34	92596	132480
242379	71	105	22	49598	62797
145794	59	37	34	44093	40429
96404	31	25	23	84205	45545
195891	78	64	24	63369	57568
115335	49	55	26	60132	39019
157787	94	41	22	37403	53866
81293	31	23	35	24460	38345
224049	100	67	24	46456	50210
223789	86	54	31	66616	80947
160344	58	68	26	41554	43461
48188	28	12	22	22346	14812
152206	68	86	21	30874	37819
294283	72	74	27	68701	102738
235223	78	56	30	35728	54509
195583	59	67	33	29010	62956
145942	54	40	11	23110	55411
208834	66	53	26	38844	50611
93764	23	26	26	27084	26692
151985	66	67	23	35139	60056
190545	94	36	38	57476	25155
148922	59	50	31	33277	42840
132856	80	48	20	31141	39358
124234	59	46	19	61281	47241
112718	36	53	26	25820	49611
160930	34	27	26	23284	41833
99184	40	38	33	35378	48930
182022	69	69	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
137011	71	40	12	50008	47796
113612	68	72	30	52338	38302
108641	70	51	21	13310	14063
162203	66	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	27	26	23	14399	29750
130982	38	47	25	28263	41029
75555	45	35	22	17215	12416
162154	54	32	26	48140	51158
224670	225	55	33	62897	79935
115019	110	58	24	22883	26552
105038	60	44	24	41622	25807
155537	52	45	21	40715	50620
153133	41	49	28	65897	61467
165577	76	72	27	76542	65292
151517	57	39	25	37477	55516
133686	58	28	15	53216	42006
58128	38	24	13	40911	26273
245196	117	52	36	57021	90248
195576	69	96	24	73116	61476
19349	12	13	1	3895	9604
225371	105	38	24	46609	45108
152796	76	41	31	29351	47232
59117	28	24	4	2325	3439
91762	23	54	21	31747	30553
127987	52	59	23	32665	24751
113552	58	28	23	19249	34458
85338	40	36	12	15292	24649
27676	22	2	16	5842	2342
147984	47	83	29	33994	52739
122417	36	29	26	13018	6245
0	0	0	0	0	0
91529	32	46	25	98177	35381
107205	66	25	21	37941	19595
144664	44	51	23	31032	50848
136540	61	59	21	32683	39443
76656	59	36	21	34545	27023
3616	5	0	0	0	0
0	0	0	0	0	0
183065	42	40	23	27525	61022
144636	83	68	33	66856	63528
152826	96	28	28	28549	34835
113273	38	36	23	38610	37172
43410	19	7	1	2781	13
175774	72	70	29	41211	62548
95401	41	30	18	22698	31334
118893	54	59	32	41194	20839
60493	40	3	12	32689	5084
19764	12	10	2	5752	9927
164062	55	46	21	26757	53229
132696	32	34	28	22527	29877
155088	47	54	29	44810	37310
11796	9	1	2	0	0
10674	9	0	0	0	0
142261	56	39	18	100674	50067
6836	3	0	1	0	0
154206	61	48	21	57786	47708
5118	3	5	0	0	0
40248	16	8	4	5444	6012
0	0	0	0	0	0
122641	46	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	50	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	2 seconds
R Server	'Gwilym Jenkins' @ jenkins.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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159006&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159006&T=0

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

Correlations for all pairs of data series (method=pearson)
	TotTimespentinRFCsec	NumbLog	TotNumberBloggedComp	TotNumbReviewComp	CompWrittotnumbchar	CompWrittotnumbsec
TotTimespentinRFCsec	1	0.766	0.787	0.676	0.689	0.86
NumbLog	0.766	1	0.644	0.55	0.618	0.653
TotNumberBloggedComp	0.787	0.644	1	0.678	0.664	0.767
TotNumbReviewComp	0.676	0.55	0.678	1	0.616	0.621
CompWrittotnumbchar	0.689	0.618	0.664	0.616	1	0.756
CompWrittotnumbsec	0.86	0.653	0.767	0.621	0.756	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & TotTimespentinRFCsec & NumbLog & TotNumberBloggedComp & TotNumbReviewComp & CompWrittotnumbchar & CompWrittotnumbsec \tabularnewline
TotTimespentinRFCsec & 1 & 0.766 & 0.787 & 0.676 & 0.689 & 0.86 \tabularnewline
NumbLog & 0.766 & 1 & 0.644 & 0.55 & 0.618 & 0.653 \tabularnewline
TotNumberBloggedComp & 0.787 & 0.644 & 1 & 0.678 & 0.664 & 0.767 \tabularnewline
TotNumbReviewComp & 0.676 & 0.55 & 0.678 & 1 & 0.616 & 0.621 \tabularnewline
CompWrittotnumbchar & 0.689 & 0.618 & 0.664 & 0.616 & 1 & 0.756 \tabularnewline
CompWrittotnumbsec & 0.86 & 0.653 & 0.767 & 0.621 & 0.756 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159006&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]TotTimespentinRFCsec[/C][C]NumbLog[/C][C]TotNumberBloggedComp[/C][C]TotNumbReviewComp[/C][C]CompWrittotnumbchar[/C][C]CompWrittotnumbsec[/C][/ROW]
[ROW][C]TotTimespentinRFCsec[/C][C]1[/C][C]0.766[/C][C]0.787[/C][C]0.676[/C][C]0.689[/C][C]0.86[/C][/ROW]
[ROW][C]NumbLog[/C][C]0.766[/C][C]1[/C][C]0.644[/C][C]0.55[/C][C]0.618[/C][C]0.653[/C][/ROW]
[ROW][C]TotNumberBloggedComp[/C][C]0.787[/C][C]0.644[/C][C]1[/C][C]0.678[/C][C]0.664[/C][C]0.767[/C][/ROW]
[ROW][C]TotNumbReviewComp[/C][C]0.676[/C][C]0.55[/C][C]0.678[/C][C]1[/C][C]0.616[/C][C]0.621[/C][/ROW]
[ROW][C]CompWrittotnumbchar[/C][C]0.689[/C][C]0.618[/C][C]0.664[/C][C]0.616[/C][C]1[/C][C]0.756[/C][/ROW]
[ROW][C]CompWrittotnumbsec[/C][C]0.86[/C][C]0.653[/C][C]0.767[/C][C]0.621[/C][C]0.756[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159006&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159006&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)
	TotTimespentinRFCsec	NumbLog	TotNumberBloggedComp	TotNumbReviewComp	CompWrittotnumbchar	CompWrittotnumbsec
TotTimespentinRFCsec	1	0.766	0.787	0.676	0.689	0.86
NumbLog	0.766	1	0.644	0.55	0.618	0.653
TotNumberBloggedComp	0.787	0.644	1	0.678	0.664	0.767
TotNumbReviewComp	0.676	0.55	0.678	1	0.616	0.621
CompWrittotnumbchar	0.689	0.618	0.664	0.616	1	0.756
CompWrittotnumbsec	0.86	0.653	0.767	0.621	0.756	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
TotTimespentinRFCsec;NumbLog	0.7664	0.7277	0.5607
p-value	(0)	(0)	(0)
TotTimespentinRFCsec;TotNumberBloggedComp	0.7865	0.7663	0.5883
p-value	(0)	(0)	(0)
TotTimespentinRFCsec;TotNumbReviewComp	0.6761	0.5842	0.4336
p-value	(0)	(0)	(0)
TotTimespentinRFCsec;CompWrittotnumbchar	0.6894	0.6258	0.4712
p-value	(0)	(0)	(0)
TotTimespentinRFCsec;CompWrittotnumbsec	0.8599	0.8272	0.661
p-value	(0)	(0)	(0)
NumbLog;TotNumberBloggedComp	0.6436	0.672	0.5046
p-value	(0)	(0)	(0)
NumbLog;TotNumbReviewComp	0.5504	0.4922	0.3616
p-value	(0)	(0)	(0)
NumbLog;CompWrittotnumbchar	0.6181	0.6086	0.4621
p-value	(0)	(0)	(0)
NumbLog;CompWrittotnumbsec	0.6526	0.5936	0.4378
p-value	(0)	(0)	(0)
TotNumberBloggedComp;TotNumbReviewComp	0.678	0.5945	0.445
p-value	(0)	(0)	(0)
TotNumberBloggedComp;CompWrittotnumbchar	0.6639	0.6341	0.4759
p-value	(0)	(0)	(0)
TotNumberBloggedComp;CompWrittotnumbsec	0.7671	0.7651	0.5864
p-value	(0)	(0)	(0)
TotNumbReviewComp;CompWrittotnumbchar	0.6161	0.5681	0.4247
p-value	(0)	(0)	(0)
TotNumbReviewComp;CompWrittotnumbsec	0.6208	0.5578	0.4168
p-value	(0)	(0)	(0)
CompWrittotnumbchar;CompWrittotnumbsec	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
TotTimespentinRFCsec;NumbLog & 0.7664 & 0.7277 & 0.5607 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TotTimespentinRFCsec;TotNumberBloggedComp & 0.7865 & 0.7663 & 0.5883 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TotTimespentinRFCsec;TotNumbReviewComp & 0.6761 & 0.5842 & 0.4336 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TotTimespentinRFCsec;CompWrittotnumbchar & 0.6894 & 0.6258 & 0.4712 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TotTimespentinRFCsec;CompWrittotnumbsec & 0.8599 & 0.8272 & 0.661 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
NumbLog;TotNumberBloggedComp & 0.6436 & 0.672 & 0.5046 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
NumbLog;TotNumbReviewComp & 0.5504 & 0.4922 & 0.3616 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
NumbLog;CompWrittotnumbchar & 0.6181 & 0.6086 & 0.4621 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
NumbLog;CompWrittotnumbsec & 0.6526 & 0.5936 & 0.4378 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TotNumberBloggedComp;TotNumbReviewComp & 0.678 & 0.5945 & 0.445 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TotNumberBloggedComp;CompWrittotnumbchar & 0.6639 & 0.6341 & 0.4759 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TotNumberBloggedComp;CompWrittotnumbsec & 0.7671 & 0.7651 & 0.5864 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TotNumbReviewComp;CompWrittotnumbchar & 0.6161 & 0.5681 & 0.4247 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TotNumbReviewComp;CompWrittotnumbsec & 0.6208 & 0.5578 & 0.4168 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
CompWrittotnumbchar;CompWrittotnumbsec & 0.7563 & 0.7017 & 0.5394 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159006&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]TotTimespentinRFCsec;NumbLog[/C][C]0.7664[/C][C]0.7277[/C][C]0.5607[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TotTimespentinRFCsec;TotNumberBloggedComp[/C][C]0.7865[/C][C]0.7663[/C][C]0.5883[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TotTimespentinRFCsec;TotNumbReviewComp[/C][C]0.6761[/C][C]0.5842[/C][C]0.4336[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TotTimespentinRFCsec;CompWrittotnumbchar[/C][C]0.6894[/C][C]0.6258[/C][C]0.4712[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TotTimespentinRFCsec;CompWrittotnumbsec[/C][C]0.8599[/C][C]0.8272[/C][C]0.661[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]NumbLog;TotNumberBloggedComp[/C][C]0.6436[/C][C]0.672[/C][C]0.5046[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]NumbLog;TotNumbReviewComp[/C][C]0.5504[/C][C]0.4922[/C][C]0.3616[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]NumbLog;CompWrittotnumbchar[/C][C]0.6181[/C][C]0.6086[/C][C]0.4621[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]NumbLog;CompWrittotnumbsec[/C][C]0.6526[/C][C]0.5936[/C][C]0.4378[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TotNumberBloggedComp;TotNumbReviewComp[/C][C]0.678[/C][C]0.5945[/C][C]0.445[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TotNumberBloggedComp;CompWrittotnumbchar[/C][C]0.6639[/C][C]0.6341[/C][C]0.4759[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TotNumberBloggedComp;CompWrittotnumbsec[/C][C]0.7671[/C][C]0.7651[/C][C]0.5864[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TotNumbReviewComp;CompWrittotnumbchar[/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]TotNumbReviewComp;CompWrittotnumbsec[/C][C]0.6208[/C][C]0.5578[/C][C]0.4168[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]CompWrittotnumbchar;CompWrittotnumbsec[/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=159006&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159006&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
TotTimespentinRFCsec;NumbLog	0.7664	0.7277	0.5607
p-value	(0)	(0)	(0)
TotTimespentinRFCsec;TotNumberBloggedComp	0.7865	0.7663	0.5883
p-value	(0)	(0)	(0)
TotTimespentinRFCsec;TotNumbReviewComp	0.6761	0.5842	0.4336
p-value	(0)	(0)	(0)
TotTimespentinRFCsec;CompWrittotnumbchar	0.6894	0.6258	0.4712
p-value	(0)	(0)	(0)
TotTimespentinRFCsec;CompWrittotnumbsec	0.8599	0.8272	0.661
p-value	(0)	(0)	(0)
NumbLog;TotNumberBloggedComp	0.6436	0.672	0.5046
p-value	(0)	(0)	(0)
NumbLog;TotNumbReviewComp	0.5504	0.4922	0.3616
p-value	(0)	(0)	(0)
NumbLog;CompWrittotnumbchar	0.6181	0.6086	0.4621
p-value	(0)	(0)	(0)
NumbLog;CompWrittotnumbsec	0.6526	0.5936	0.4378
p-value	(0)	(0)	(0)
TotNumberBloggedComp;TotNumbReviewComp	0.678	0.5945	0.445
p-value	(0)	(0)	(0)
TotNumberBloggedComp;CompWrittotnumbchar	0.6639	0.6341	0.4759
p-value	(0)	(0)	(0)
TotNumberBloggedComp;CompWrittotnumbsec	0.7671	0.7651	0.5864
p-value	(0)	(0)	(0)
TotNumbReviewComp;CompWrittotnumbchar	0.6161	0.5681	0.4247
p-value	(0)	(0)	(0)
TotNumbReviewComp;CompWrittotnumbsec	0.6208	0.5578	0.4168
p-value	(0)	(0)	(0)
CompWrittotnumbchar;CompWrittotnumbsec	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