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 12:30:47 -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/t132448873145n8kylkazubm8d.htm/, Retrieved Tue, 07 May 2024 11:55:53 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=158904, Retrieved Tue, 07 May 2024 11:55:53 +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] [Deel 3 - tutorial...] [2011-12-21 17:30:47] [fa59698fa31b1ba27cee5b36be631028] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

112285	56	144	94	146283	30
84786	56	103	103	98364	28
83123	54	98	93	86146	38
101193	89	135	103	96933	30
38361	40	61	51	79234	22
68504	25	39	70	42551	26
119182	92	150	91	195663	25
22807	18	5	22	6853	18
116174	44	84	93	95757	26
57635	33	80	60	85584	25
66198	84	130	123	143983	38
71701	88	82	148	75851	44
57793	55	60	90	59238	30
80444	60	131	124	93163	40
53855	66	84	70	96037	34
97668	154	140	168	151511	47
133824	53	151	115	136368	30
101481	119	91	71	112642	31
99645	41	138	66	94728	23
114789	61	150	134	105499	36
99052	58	124	117	121527	36
67654	75	119	108	127766	30
65553	33	73	84	98958	25
97500	40	110	156	77900	39
69112	92	123	120	85646	34
82753	100	90	114	98579	31
85323	112	116	94	130767	31
72654	73	113	120	131741	33
30727	40	56	81	53907	25
77873	45	115	110	178812	33
117478	60	119	133	146761	35
74007	62	129	122	82036	42
90183	75	127	158	163253	43
61542	31	27	109	27032	30
101494	77	175	124	171975	33
55813	46	64	92	86572	32
79215	99	96	126	159676	36
55461	66	84	70	85371	28
31081	30	41	37	58391	14
83122	146	126	120	136815	32
70106	67	105	93	120642	30
60578	56	80	95	69107	35
79892	58	73	90	108016	28
49810	34	57	80	46341	28
71570	61	40	31	78348	39
100708	119	68	110	79336	34
33032	42	21	66	56968	26
82875	66	127	138	93176	39
139077	89	154	133	161632	39
71595	44	116	113	87850	33
72260	66	102	100	127969	28
5950	24	7	7	15049	4
115762	259	148	140	155135	39
32551	17	21	61	25109	18
31701	64	35	41	45824	14
80670	41	112	96	102996	29
143558	68	137	164	160604	44
120733	132	230	102	162647	28
105195	105	181	124	174141	35
73107	71	71	99	60622	28
132068	112	147	129	179566	38
149193	94	190	62	184301	23
46821	82	64	73	75661	36
87011	70	105	114	96144	32
95260	57	107	99	129847	29
55183	53	94	70	117286	25
106671	103	116	104	71180	27
73511	121	106	116	109377	36
92945	62	143	91	85298	28
78664	52	81	74	73631	23
70054	52	89	138	86767	40
22618	32	26	67	23824	23
74011	62	84	151	93487	40
83737	45	113	72	82981	28
69094	46	120	120	73815	34
93133	63	110	115	94552	33
95536	75	134	105	132190	28
225920	88	54	104	128754	34
62133	46	96	108	66363	30
61370	53	78	98	67808	33
43836	37	51	69	61724	22
106117	90	121	111	131722	38
38692	63	38	99	68580	26
84651	78	145	71	106175	35
56622	25	59	27	55792	8
15986	45	27	69	25157	24
95364	46	91	107	76669	29
89691	144	68	107	105805	29
67267	82	58	93	129484	45
126846	91	150	129	72413	37
41140	71	74	69	87831	33
102860	63	181	118	96971	33
51715	53	65	73	71299	25
55801	62	97	119	77494	32
111813	63	121	104	120336	29
120293	32	99	107	93913	28
138599	39	152	99	136048	28
161647	62	188	90	181248	31
115929	117	138	197	146123	52
162901	92	254	85	186646	24
109825	93	87	139	102255	41
129838	54	178	106	168237	33
37510	144	51	50	64219	32
43750	14	49	64	19630	19
40652	61	73	31	76825	20
87771	109	176	63	115338	31
85872	38	94	92	109427	31
89275	73	120	106	118168	32
192565	50	56	69	153197	23
140867	72	58	93	68370	30
120662	50	98	114	146304	31
101338	71	130	110	103950	42
1168	10	11	0	5841	1
65567	65	101	83	84396	32
25162	25	31	30	24610	11
40735	41	120	98	55515	36
91413	86	195	82	209056	31
855	16	4	0	6622	0
97068	42	89	60	115814	24
14116	19	39	9	13155	8
76643	95	106	115	142775	33
110681	49	83	140	68847	40
92696	64	37	120	20112	38
94785	38	77	66	61023	24
8773	34	16	21	13983	8
83209	32	56	124	65176	35
93815	65	132	152	132432	43
86687	52	144	139	112494	43
105547	65	153	144	170875	41
103487	83	143	120	180759	38
213688	95	220	160	214921	45
71220	29	79	114	100226	31
56926	33	39	78	54454	28
91721	247	95	119	78876	31
115168	139	169	141	170745	40
111194	29	12	101	6940	30
135777	110	134	133	122037	37
51513	67	69	83	53782	30
74163	42	119	116	127748	35
51633	65	119	90	86839	32
75345	94	75	36	44830	27
98952	95	103	97	103300	31
102372	67	197	98	112283	31
37238	63	16	78	10901	21
103772	83	140	117	120691	39
123969	45	89	148	58106	41
135400	70	125	105	122422	32
130115	83	167	132	139296	39
6023	10	5	0	7953	0
64466	70	96	73	89455	30
54990	103	151	86	147866	37
1644	5	6	0	4245	0
6179	20	13	13	21509	5
3926	5	3	4	7670	1
34777	34	23	48	14336	32
73224	48	61	46	53608	24
5	3	4	7670	1	
34	23	48	14336	32	
48	61	46	53608	24

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
R Framework error message	The field 'Names of X columns' contains a hard return which cannot be interpreted. Please, resubmit your request without hard returns in the 'Names of X columns'.

\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
R Framework error message & The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'. \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158904&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]
[ROW][C]R Framework error message[/C][C]The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158904&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158904&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
R Framework error message	The field 'Names of X columns' contains a hard return which cannot be interpreted. Please, resubmit your request without hard returns in the 'Names of X columns'.

Correlations for all pairs of data series (method=pearson)
	totsize	logins	tothyperlinks	feedback_messages_p120	totseconds(tekstverwerker)	compendiums_reviewed
totsize	1	-0.153	-0.126	-0.164	0.733	0.247
logins	-0.153	1	-0.012	0.998	-0.147	0.678
tothyperlinks	-0.126	-0.012	1	-0.013	-0.114	0.194
feedback_messages_p120	-0.164	0.998	-0.013	1	-0.159	0.678
totseconds(tekstverwerker)	0.733	-0.147	-0.114	-0.159	1	0.257
compendiums_reviewed	0.247	0.678	0.194	0.678	0.257	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & totsize & logins & tothyperlinks & feedback_messages_p120 & totseconds(tekstverwerker) & compendiums_reviewed
 \tabularnewline
totsize & 1 & -0.153 & -0.126 & -0.164 & 0.733 & 0.247 \tabularnewline
logins & -0.153 & 1 & -0.012 & 0.998 & -0.147 & 0.678 \tabularnewline
tothyperlinks & -0.126 & -0.012 & 1 & -0.013 & -0.114 & 0.194 \tabularnewline
feedback_messages_p120 & -0.164 & 0.998 & -0.013 & 1 & -0.159 & 0.678 \tabularnewline
totseconds(tekstverwerker) & 0.733 & -0.147 & -0.114 & -0.159 & 1 & 0.257 \tabularnewline
compendiums_reviewed
 & 0.247 & 0.678 & 0.194 & 0.678 & 0.257 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158904&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]totsize[/C][C]logins[/C][C]tothyperlinks[/C][C]feedback_messages_p120[/C][C]totseconds(tekstverwerker)[/C][C]compendiums_reviewed
[/C][/ROW]
[ROW][C]totsize[/C][C]1[/C][C]-0.153[/C][C]-0.126[/C][C]-0.164[/C][C]0.733[/C][C]0.247[/C][/ROW]
[ROW][C]logins[/C][C]-0.153[/C][C]1[/C][C]-0.012[/C][C]0.998[/C][C]-0.147[/C][C]0.678[/C][/ROW]
[ROW][C]tothyperlinks[/C][C]-0.126[/C][C]-0.012[/C][C]1[/C][C]-0.013[/C][C]-0.114[/C][C]0.194[/C][/ROW]
[ROW][C]feedback_messages_p120[/C][C]-0.164[/C][C]0.998[/C][C]-0.013[/C][C]1[/C][C]-0.159[/C][C]0.678[/C][/ROW]
[ROW][C]totseconds(tekstverwerker)[/C][C]0.733[/C][C]-0.147[/C][C]-0.114[/C][C]-0.159[/C][C]1[/C][C]0.257[/C][/ROW]
[ROW][C]compendiums_reviewed
[/C][C]0.247[/C][C]0.678[/C][C]0.194[/C][C]0.678[/C][C]0.257[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158904&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158904&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)
	totsize	logins	tothyperlinks	feedback_messages_p120	totseconds(tekstverwerker)	compendiums_reviewed
totsize	1	-0.153	-0.126	-0.164	0.733	0.247
logins	-0.153	1	-0.012	0.998	-0.147	0.678
tothyperlinks	-0.126	-0.012	1	-0.013	-0.114	0.194
feedback_messages_p120	-0.164	0.998	-0.013	1	-0.159	0.678
totseconds(tekstverwerker)	0.733	-0.147	-0.114	-0.159	1	0.257
compendiums_reviewed	0.247	0.678	0.194	0.678	0.257	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
totsize;logins	-0.1528	0.4633	0.3288
p-value	(0.0546)	(0)	(0)
totsize;tothyperlinks	-0.1257	0.6758	0.5286
p-value	(0.1144)	(0)	(0)
totsize;feedback_messages_p120	-0.1641	0.5411	0.4035
p-value	(0.0388)	(0)	(0)
totsize;totseconds(tekstverwerker)	0.7325	0.7083	0.5394
p-value	(0)	(0)	(0)
totsize;compendiums_reviewed	0.2467	0.3814	0.2825
p-value	(0.0017)	(0)	(0)
logins;tothyperlinks	-0.0116	0.5413	0.3945
p-value	(0.8847)	(0)	(0)
logins;feedback_messages_p120	0.9976	0.4529	0.3303
p-value	(0)	(0)	(0)
logins;totseconds(tekstverwerker)	-0.1469	0.5811	0.4297
p-value	(0.0647)	(0)	(0)
logins;compendiums_reviewed	0.6781	0.5072	0.3682
p-value	(0)	(0)	(0)
tothyperlinks;feedback_messages_p120	-0.0127	0.509	0.3814
p-value	(0.8734)	(0)	(0)
tothyperlinks;totseconds(tekstverwerker)	-0.114	0.7803	0.6256
p-value	(0.1524)	(0)	(0)
tothyperlinks;compendiums_reviewed	0.1936	0.4976	0.3741
p-value	(0.0145)	(0)	(0)
feedback_messages_p120;totseconds(tekstverwerker)	-0.1588	0.48	0.352
p-value	(0.0456)	(0)	(0)
feedback_messages_p120;compendiums_reviewed	0.6777	0.7869	0.6541
p-value	(0)	(0)	(0)
totseconds(tekstverwerker);compendiums_reviewed	0.2575	0.4128	0.306
p-value	(0.0011)	(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
totsize;logins & -0.1528 & 0.4633 & 0.3288 \tabularnewline
p-value & (0.0546) & (0) & (0) \tabularnewline
totsize;tothyperlinks & -0.1257 & 0.6758 & 0.5286 \tabularnewline
p-value & (0.1144) & (0) & (0) \tabularnewline
totsize;feedback_messages_p120 & -0.1641 & 0.5411 & 0.4035 \tabularnewline
p-value & (0.0388) & (0) & (0) \tabularnewline
totsize;totseconds(tekstverwerker) & 0.7325 & 0.7083 & 0.5394 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;compendiums_reviewed
 & 0.2467 & 0.3814 & 0.2825 \tabularnewline
p-value & (0.0017) & (0) & (0) \tabularnewline
logins;tothyperlinks & -0.0116 & 0.5413 & 0.3945 \tabularnewline
p-value & (0.8847) & (0) & (0) \tabularnewline
logins;feedback_messages_p120 & 0.9976 & 0.4529 & 0.3303 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;totseconds(tekstverwerker) & -0.1469 & 0.5811 & 0.4297 \tabularnewline
p-value & (0.0647) & (0) & (0) \tabularnewline
logins;compendiums_reviewed
 & 0.6781 & 0.5072 & 0.3682 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
tothyperlinks;feedback_messages_p120 & -0.0127 & 0.509 & 0.3814 \tabularnewline
p-value & (0.8734) & (0) & (0) \tabularnewline
tothyperlinks;totseconds(tekstverwerker) & -0.114 & 0.7803 & 0.6256 \tabularnewline
p-value & (0.1524) & (0) & (0) \tabularnewline
tothyperlinks;compendiums_reviewed
 & 0.1936 & 0.4976 & 0.3741 \tabularnewline
p-value & (0.0145) & (0) & (0) \tabularnewline
feedback_messages_p120;totseconds(tekstverwerker) & -0.1588 & 0.48 & 0.352 \tabularnewline
p-value & (0.0456) & (0) & (0) \tabularnewline
feedback_messages_p120;compendiums_reviewed
 & 0.6777 & 0.7869 & 0.6541 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totseconds(tekstverwerker);compendiums_reviewed
 & 0.2575 & 0.4128 & 0.306 \tabularnewline
p-value & (0.0011) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158904&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]totsize;logins[/C][C]-0.1528[/C][C]0.4633[/C][C]0.3288[/C][/ROW]
[ROW][C]p-value[/C][C](0.0546)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;tothyperlinks[/C][C]-0.1257[/C][C]0.6758[/C][C]0.5286[/C][/ROW]
[ROW][C]p-value[/C][C](0.1144)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;feedback_messages_p120[/C][C]-0.1641[/C][C]0.5411[/C][C]0.4035[/C][/ROW]
[ROW][C]p-value[/C][C](0.0388)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;totseconds(tekstverwerker)[/C][C]0.7325[/C][C]0.7083[/C][C]0.5394[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;compendiums_reviewed
[/C][C]0.2467[/C][C]0.3814[/C][C]0.2825[/C][/ROW]
[ROW][C]p-value[/C][C](0.0017)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;tothyperlinks[/C][C]-0.0116[/C][C]0.5413[/C][C]0.3945[/C][/ROW]
[ROW][C]p-value[/C][C](0.8847)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;feedback_messages_p120[/C][C]0.9976[/C][C]0.4529[/C][C]0.3303[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;totseconds(tekstverwerker)[/C][C]-0.1469[/C][C]0.5811[/C][C]0.4297[/C][/ROW]
[ROW][C]p-value[/C][C](0.0647)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;compendiums_reviewed
[/C][C]0.6781[/C][C]0.5072[/C][C]0.3682[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]tothyperlinks;feedback_messages_p120[/C][C]-0.0127[/C][C]0.509[/C][C]0.3814[/C][/ROW]
[ROW][C]p-value[/C][C](0.8734)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]tothyperlinks;totseconds(tekstverwerker)[/C][C]-0.114[/C][C]0.7803[/C][C]0.6256[/C][/ROW]
[ROW][C]p-value[/C][C](0.1524)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]tothyperlinks;compendiums_reviewed
[/C][C]0.1936[/C][C]0.4976[/C][C]0.3741[/C][/ROW]
[ROW][C]p-value[/C][C](0.0145)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]feedback_messages_p120;totseconds(tekstverwerker)[/C][C]-0.1588[/C][C]0.48[/C][C]0.352[/C][/ROW]
[ROW][C]p-value[/C][C](0.0456)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]feedback_messages_p120;compendiums_reviewed
[/C][C]0.6777[/C][C]0.7869[/C][C]0.6541[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totseconds(tekstverwerker);compendiums_reviewed
[/C][C]0.2575[/C][C]0.4128[/C][C]0.306[/C][/ROW]
[ROW][C]p-value[/C][C](0.0011)[/C][C](0)[/C][C](0)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158904&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158904&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
totsize;logins	-0.1528	0.4633	0.3288
p-value	(0.0546)	(0)	(0)
totsize;tothyperlinks	-0.1257	0.6758	0.5286
p-value	(0.1144)	(0)	(0)
totsize;feedback_messages_p120	-0.1641	0.5411	0.4035
p-value	(0.0388)	(0)	(0)
totsize;totseconds(tekstverwerker)	0.7325	0.7083	0.5394
p-value	(0)	(0)	(0)
totsize;compendiums_reviewed	0.2467	0.3814	0.2825
p-value	(0.0017)	(0)	(0)
logins;tothyperlinks	-0.0116	0.5413	0.3945
p-value	(0.8847)	(0)	(0)
logins;feedback_messages_p120	0.9976	0.4529	0.3303
p-value	(0)	(0)	(0)
logins;totseconds(tekstverwerker)	-0.1469	0.5811	0.4297
p-value	(0.0647)	(0)	(0)
logins;compendiums_reviewed	0.6781	0.5072	0.3682
p-value	(0)	(0)	(0)
tothyperlinks;feedback_messages_p120	-0.0127	0.509	0.3814
p-value	(0.8734)	(0)	(0)
tothyperlinks;totseconds(tekstverwerker)	-0.114	0.7803	0.6256
p-value	(0.1524)	(0)	(0)
tothyperlinks;compendiums_reviewed	0.1936	0.4976	0.3741
p-value	(0.0145)	(0)	(0)
feedback_messages_p120;totseconds(tekstverwerker)	-0.1588	0.48	0.352
p-value	(0.0456)	(0)	(0)
feedback_messages_p120;compendiums_reviewed	0.6777	0.7869	0.6541
p-value	(0)	(0)	(0)
totseconds(tekstverwerker);compendiums_reviewed	0.2575	0.4128	0.306
p-value	(0.0011)	(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