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, 22 Dec 2010 07:57:04 +0000

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/2010/Dec/22/t1293004661j6gwkvshqu5v9hp.htm/, Retrieved Sun, 05 May 2024 21:49:42 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=114059, Retrieved Sun, 05 May 2024 21:49:42 +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

153

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

-       [Kendall tau Correlation Matrix] [Kendall tau's cor...] [2010-12-22 07:57:04] [be034431ba35f7eb1ce695fc7ca4deb9] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

21454	-11.5	0.012095933	8.02	8.3	20780
23899	-11	0.017384968	8.03	8.2	19815
24939	-14.9	0.017547503	8.45	8	19761
23580	-16.2	0.014844804	7.74	7.9	21454
24562	-14.4	0.010364842	7.26	7.6	23899
24696	-17.3	0.016214531	7.9	7.6	24939
23785	-15.7	0.014814047	7.34	8.3	23580
23812	-12.6	0.017823834	6.91	8.4	24562
21917	-9.4	0.017980779	7.22	8.4	24696
19713	-8.1	0.015828678	7.47	8.4	23785
19282	-5.4	0.018533858	7.16	8.4	23812
18788	-4.6	0.017385905	8.09	8.6	21917
21453	-4.9	0.015866474	7.91	8.9	19713
24482	-4	0.012585695	7.74	8.8	19282
27474	-3.1	0.011326531	8.01	8.3	18788
27264	-1.3	0.019230769	7.56	7.5	21453
27349	0	0.026056627	7.56	7.2	24482
30632	-0.4	0.022604071	8.06	7.4	27474
29429	3	0.024091466	8.06	8.8	27264
30084	0.4	0.022602321	7.87	9.3	27349
26290	1.2	0.020302507	7.97	9.3	30632
24379	0.6	0.028617986	7.89	8.7	29429
23335	-1.3	0.025515909	7.83	8.2	30084
21346	-3.2	0.022785068	8.17	8.3	26290
21106	-1.8	0.022515213	8.84	8.5	24379
24514	-3.6	0.025666936	8.44	8.6	23335
28353	-4.2	0.03067299	8.38	8.5	21346
30805	-6.9	0.027599358	7.71	8.2	21106
31348	-8	0.025194961	6.58	8.1	24514
34556	-7.5	0.028705741	6.65	7.9	28353
33855	-8.2	0.031399522	6.59	8.6	30805
34787	-7.6	0.031063321	6.38	8.7	31348
32529	-3.7	0.031638643	6.78	8.7	34556
29998	-1.7	0.024653465	6.46	8.5	33855
29257	-0.7	0.025674068	6.61	8.4	34787
28155	0.2	0.028841372	6.46	8.5	32529
30466	0.6	0.026383654	6.58	8.7	29998
35704	2.2	0.023940887	6.48	8.7	29257
39327	3.3	0.017033774	6.67	8.6	28155
39351	5.3	0.019630823	6.7	8.5	30466
42234	5.5	0.021942657	6.58	8.3	35704
43630	6.3	0.018667963	6.47	8	39327
43722	7.7	0.016043298	7.25	8.2	39351
43121	6.5	0.016415604	7.24	8.1	42234
37985	5.5	0.012248047	6.97	8.1	43630
37135	6.9	0.012175089	6.83	8	43722
34646	5.7	0.014883541	7.42	7.9	43121
33026	6.9	0.016433059	7.34	7.9	37985
35087	6.1	0.016621569	7.11	8	37135
38846	4.8	0.017704224	7.16	8	34646
42013	3.7	0.018192319	7.51	7.9	33026
43908	5.8	0.017816092	7.07	8	35087
42868	6.8	0.01278748	6.85	7.7	38846
44423	8.5	0.012885368	7.05	7.2	42013
44167	7.2	0.013697327	7.62	7.5	43908
43636	5	0.011210336	7.66	7.3	42868
44382	4.7	0.015053354	7.2	7	44423
42142	2.3	0.022434368	7.38	7	44167
43452	2.4	0.029425769	7.57	7	43636
36912	0.1	0.030908226	7.31	7.2	44382
42413	1.9	0.03460076	8.33	7.3	42142
45344	1.7	0.036399735	7.38	7.1	43452
44873	2	0.043864625	7.41	6.8	36912
47510	-1.9	0.041501976	7.81	6.4	42413
49554	0.5	0.052105908	7.24	6.1	45344
47369	-1.3	0.058047493	7.88	6.5	44873
45998	-3.3	0.059116074	8.52	7.7	47510
48140	-2.8	0.053927095	7.66	7.9	49554
48441	-8	0.05462737	8.5	7.5	47369
44928	-13.9	0.047245565	8.82	6.9	45998
40454	-21.9	0.031359852	8.61	6.6	48140
38661	-28.8	0.026291513	8.2	6.9	48441
37246	-27.6	0.023153252	7.31	7.7	44928
36843	-31.4	0.019339537	7.43	8	40454
36424	-31.8	0.006158305	7.33	8	38661
37594	-29.4	0.005963676	7.53	7.7	37246
38144	-27.6	-0.003671861	7.61	7.3	36843
38737	-23.6	-0.011043819	7.17	7.4	36424
34560	-22.8	-0.016833525	6.81	8.1	37594
36080	-18.2	-0.007755393	6.9	8.3	38144
33508	-17.8	-0.011925952	7.33	8.1	38737
35462	-14.2	-0.00971826	7.36	7.9	34560
33374	-8.8	-0.001166024	6.33	7.9	36080
32110	-7.9	0.002606742	6.95	8.3	33508
35533	-7	0.006196121	7.25	8.6	35462
35532	-7	0.00698049	6.46	8.7	33374
37903	-3.6	0.016561656	6.51	8.5	32110
36763	-2.4	0.01796461	6.31	8.3	35533
40399	-4.9	0.022741573	5.93	8	35532
44164	-7.7	0.024585735	5.86	8.1	37903
44496	-6.5	0.025682617	5.85	8.9	36763
43110	-5.1	0.02317851	5.82	8.9	40399
43880	-3.4	0.029093857	6.17	8.7	44164
43930	-2.8	0.030071126	5.7	8.3	44496

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	6 seconds
R Server	'George Udny Yule' @ 72.249.76.132

\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 & 6 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114059&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]6 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114059&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114059&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	6 seconds
R Server	'George Udny Yule' @ 72.249.76.132

Correlations for all pairs of data series (method=kendall)
	Vacatures	Ondernemersvertrouwen	Inflatie	Rente	Werkloosheidsgraad	Vacatures_3m
Vacatures	1	0.191	0.192	-0.148	-0.354	0.629
Ondernemersvertrouwen	0.191	1	0.076	-0.086	-0.003	0.131
Inflatie	0.192	0.076	1	0.08	-0.028	0.151
Rente	-0.148	-0.086	0.08	1	-0.227	-0.092
Werkloosheidsgraad	-0.354	-0.003	-0.028	-0.227	1	-0.382
Vacatures_3m	0.629	0.131	0.151	-0.092	-0.382	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Vacatures & Ondernemersvertrouwen & Inflatie & Rente & Werkloosheidsgraad & Vacatures_3m \tabularnewline
Vacatures & 1 & 0.191 & 0.192 & -0.148 & -0.354 & 0.629 \tabularnewline
Ondernemersvertrouwen & 0.191 & 1 & 0.076 & -0.086 & -0.003 & 0.131 \tabularnewline
Inflatie & 0.192 & 0.076 & 1 & 0.08 & -0.028 & 0.151 \tabularnewline
Rente & -0.148 & -0.086 & 0.08 & 1 & -0.227 & -0.092 \tabularnewline
Werkloosheidsgraad & -0.354 & -0.003 & -0.028 & -0.227 & 1 & -0.382 \tabularnewline
Vacatures_3m & 0.629 & 0.131 & 0.151 & -0.092 & -0.382 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114059&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Vacatures[/C][C]Ondernemersvertrouwen[/C][C]Inflatie[/C][C]Rente[/C][C]Werkloosheidsgraad[/C][C]Vacatures_3m[/C][/ROW]
[ROW][C]Vacatures[/C][C]1[/C][C]0.191[/C][C]0.192[/C][C]-0.148[/C][C]-0.354[/C][C]0.629[/C][/ROW]
[ROW][C]Ondernemersvertrouwen[/C][C]0.191[/C][C]1[/C][C]0.076[/C][C]-0.086[/C][C]-0.003[/C][C]0.131[/C][/ROW]
[ROW][C]Inflatie[/C][C]0.192[/C][C]0.076[/C][C]1[/C][C]0.08[/C][C]-0.028[/C][C]0.151[/C][/ROW]
[ROW][C]Rente[/C][C]-0.148[/C][C]-0.086[/C][C]0.08[/C][C]1[/C][C]-0.227[/C][C]-0.092[/C][/ROW]
[ROW][C]Werkloosheidsgraad[/C][C]-0.354[/C][C]-0.003[/C][C]-0.028[/C][C]-0.227[/C][C]1[/C][C]-0.382[/C][/ROW]
[ROW][C]Vacatures_3m[/C][C]0.629[/C][C]0.131[/C][C]0.151[/C][C]-0.092[/C][C]-0.382[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114059&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114059&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)
	Vacatures	Ondernemersvertrouwen	Inflatie	Rente	Werkloosheidsgraad	Vacatures_3m
Vacatures	1	0.191	0.192	-0.148	-0.354	0.629
Ondernemersvertrouwen	0.191	1	0.076	-0.086	-0.003	0.131
Inflatie	0.192	0.076	1	0.08	-0.028	0.151
Rente	-0.148	-0.086	0.08	1	-0.227	-0.092
Werkloosheidsgraad	-0.354	-0.003	-0.028	-0.227	1	-0.382
Vacatures_3m	0.629	0.131	0.151	-0.092	-0.382	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
Vacatures;Ondernemersvertrouwen	0.1996	0.3089	0.1913
p-value	(0.0537)	(0.0024)	(0.0064)
Vacatures;Inflatie	0.3096	0.2692	0.1919
p-value	(0.0024)	(0.0089)	(0.0061)
Vacatures;Rente	-0.2558	-0.2191	-0.1481
p-value	(0.0128)	(0.0339)	(0.0348)
Vacatures;Werkloosheidsgraad	-0.5034	-0.4913	-0.3542
p-value	(0)	(0)	(0)
Vacatures;Vacatures_3m	0.8471	0.8318	0.6289
p-value	(0)	(0)	(0)
Ondernemersvertrouwen;Inflatie	0.2931	0.1487	0.0758
p-value	(0.0042)	(0.1525)	(0.2796)
Ondernemersvertrouwen;Rente	-0.1416	-0.1178	-0.0858
p-value	(0.1735)	(0.2583)	(0.2218)
Ondernemersvertrouwen;Werkloosheidsgraad	0.0745	-0.0329	-0.0026
p-value	(0.4754)	(0.7526)	(0.9713)
Ondernemersvertrouwen;Vacatures_3m	0.0624	0.196	0.1308
p-value	(0.5503)	(0.0583)	(0.0622)
Inflatie;Rente	0.2109	0.1156	0.0802
p-value	(0.0413)	(0.2673)	(0.2529)
Inflatie;Werkloosheidsgraad	-0.2694	-0.0728	-0.0276
p-value	(0.0086)	(0.4858)	(0.6993)
Inflatie;Vacatures_3m	0.2505	0.2162	0.1512
p-value	(0.0149)	(0.0365)	(0.0308)
Rente;Werkloosheidsgraad	-0.2981	-0.2871	-0.2268
p-value	(0.0035)	(0.005)	(0.0016)
Rente;Vacatures_3m	-0.1473	-0.136	-0.0921
p-value	(0.1565)	(0.1913)	(0.1891)
Werkloosheidsgraad;Vacatures_3m	-0.5215	-0.5388	-0.3824
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
Vacatures;Ondernemersvertrouwen & 0.1996 & 0.3089 & 0.1913 \tabularnewline
p-value & (0.0537) & (0.0024) & (0.0064) \tabularnewline
Vacatures;Inflatie & 0.3096 & 0.2692 & 0.1919 \tabularnewline
p-value & (0.0024) & (0.0089) & (0.0061) \tabularnewline
Vacatures;Rente & -0.2558 & -0.2191 & -0.1481 \tabularnewline
p-value & (0.0128) & (0.0339) & (0.0348) \tabularnewline
Vacatures;Werkloosheidsgraad & -0.5034 & -0.4913 & -0.3542 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Vacatures;Vacatures_3m & 0.8471 & 0.8318 & 0.6289 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Ondernemersvertrouwen;Inflatie & 0.2931 & 0.1487 & 0.0758 \tabularnewline
p-value & (0.0042) & (0.1525) & (0.2796) \tabularnewline
Ondernemersvertrouwen;Rente & -0.1416 & -0.1178 & -0.0858 \tabularnewline
p-value & (0.1735) & (0.2583) & (0.2218) \tabularnewline
Ondernemersvertrouwen;Werkloosheidsgraad & 0.0745 & -0.0329 & -0.0026 \tabularnewline
p-value & (0.4754) & (0.7526) & (0.9713) \tabularnewline
Ondernemersvertrouwen;Vacatures_3m & 0.0624 & 0.196 & 0.1308 \tabularnewline
p-value & (0.5503) & (0.0583) & (0.0622) \tabularnewline
Inflatie;Rente & 0.2109 & 0.1156 & 0.0802 \tabularnewline
p-value & (0.0413) & (0.2673) & (0.2529) \tabularnewline
Inflatie;Werkloosheidsgraad & -0.2694 & -0.0728 & -0.0276 \tabularnewline
p-value & (0.0086) & (0.4858) & (0.6993) \tabularnewline
Inflatie;Vacatures_3m & 0.2505 & 0.2162 & 0.1512 \tabularnewline
p-value & (0.0149) & (0.0365) & (0.0308) \tabularnewline
Rente;Werkloosheidsgraad & -0.2981 & -0.2871 & -0.2268 \tabularnewline
p-value & (0.0035) & (0.005) & (0.0016) \tabularnewline
Rente;Vacatures_3m & -0.1473 & -0.136 & -0.0921 \tabularnewline
p-value & (0.1565) & (0.1913) & (0.1891) \tabularnewline
Werkloosheidsgraad;Vacatures_3m & -0.5215 & -0.5388 & -0.3824 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114059&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]Vacatures;Ondernemersvertrouwen[/C][C]0.1996[/C][C]0.3089[/C][C]0.1913[/C][/ROW]
[ROW][C]p-value[/C][C](0.0537)[/C][C](0.0024)[/C][C](0.0064)[/C][/ROW]
[ROW][C]Vacatures;Inflatie[/C][C]0.3096[/C][C]0.2692[/C][C]0.1919[/C][/ROW]
[ROW][C]p-value[/C][C](0.0024)[/C][C](0.0089)[/C][C](0.0061)[/C][/ROW]
[ROW][C]Vacatures;Rente[/C][C]-0.2558[/C][C]-0.2191[/C][C]-0.1481[/C][/ROW]
[ROW][C]p-value[/C][C](0.0128)[/C][C](0.0339)[/C][C](0.0348)[/C][/ROW]
[ROW][C]Vacatures;Werkloosheidsgraad[/C][C]-0.5034[/C][C]-0.4913[/C][C]-0.3542[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Vacatures;Vacatures_3m[/C][C]0.8471[/C][C]0.8318[/C][C]0.6289[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Ondernemersvertrouwen;Inflatie[/C][C]0.2931[/C][C]0.1487[/C][C]0.0758[/C][/ROW]
[ROW][C]p-value[/C][C](0.0042)[/C][C](0.1525)[/C][C](0.2796)[/C][/ROW]
[ROW][C]Ondernemersvertrouwen;Rente[/C][C]-0.1416[/C][C]-0.1178[/C][C]-0.0858[/C][/ROW]
[ROW][C]p-value[/C][C](0.1735)[/C][C](0.2583)[/C][C](0.2218)[/C][/ROW]
[ROW][C]Ondernemersvertrouwen;Werkloosheidsgraad[/C][C]0.0745[/C][C]-0.0329[/C][C]-0.0026[/C][/ROW]
[ROW][C]p-value[/C][C](0.4754)[/C][C](0.7526)[/C][C](0.9713)[/C][/ROW]
[ROW][C]Ondernemersvertrouwen;Vacatures_3m[/C][C]0.0624[/C][C]0.196[/C][C]0.1308[/C][/ROW]
[ROW][C]p-value[/C][C](0.5503)[/C][C](0.0583)[/C][C](0.0622)[/C][/ROW]
[ROW][C]Inflatie;Rente[/C][C]0.2109[/C][C]0.1156[/C][C]0.0802[/C][/ROW]
[ROW][C]p-value[/C][C](0.0413)[/C][C](0.2673)[/C][C](0.2529)[/C][/ROW]
[ROW][C]Inflatie;Werkloosheidsgraad[/C][C]-0.2694[/C][C]-0.0728[/C][C]-0.0276[/C][/ROW]
[ROW][C]p-value[/C][C](0.0086)[/C][C](0.4858)[/C][C](0.6993)[/C][/ROW]
[ROW][C]Inflatie;Vacatures_3m[/C][C]0.2505[/C][C]0.2162[/C][C]0.1512[/C][/ROW]
[ROW][C]p-value[/C][C](0.0149)[/C][C](0.0365)[/C][C](0.0308)[/C][/ROW]
[ROW][C]Rente;Werkloosheidsgraad[/C][C]-0.2981[/C][C]-0.2871[/C][C]-0.2268[/C][/ROW]
[ROW][C]p-value[/C][C](0.0035)[/C][C](0.005)[/C][C](0.0016)[/C][/ROW]
[ROW][C]Rente;Vacatures_3m[/C][C]-0.1473[/C][C]-0.136[/C][C]-0.0921[/C][/ROW]
[ROW][C]p-value[/C][C](0.1565)[/C][C](0.1913)[/C][C](0.1891)[/C][/ROW]
[ROW][C]Werkloosheidsgraad;Vacatures_3m[/C][C]-0.5215[/C][C]-0.5388[/C][C]-0.3824[/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=114059&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114059&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
Vacatures;Ondernemersvertrouwen	0.1996	0.3089	0.1913
p-value	(0.0537)	(0.0024)	(0.0064)
Vacatures;Inflatie	0.3096	0.2692	0.1919
p-value	(0.0024)	(0.0089)	(0.0061)
Vacatures;Rente	-0.2558	-0.2191	-0.1481
p-value	(0.0128)	(0.0339)	(0.0348)
Vacatures;Werkloosheidsgraad	-0.5034	-0.4913	-0.3542
p-value	(0)	(0)	(0)
Vacatures;Vacatures_3m	0.8471	0.8318	0.6289
p-value	(0)	(0)	(0)
Ondernemersvertrouwen;Inflatie	0.2931	0.1487	0.0758
p-value	(0.0042)	(0.1525)	(0.2796)
Ondernemersvertrouwen;Rente	-0.1416	-0.1178	-0.0858
p-value	(0.1735)	(0.2583)	(0.2218)
Ondernemersvertrouwen;Werkloosheidsgraad	0.0745	-0.0329	-0.0026
p-value	(0.4754)	(0.7526)	(0.9713)
Ondernemersvertrouwen;Vacatures_3m	0.0624	0.196	0.1308
p-value	(0.5503)	(0.0583)	(0.0622)
Inflatie;Rente	0.2109	0.1156	0.0802
p-value	(0.0413)	(0.2673)	(0.2529)
Inflatie;Werkloosheidsgraad	-0.2694	-0.0728	-0.0276
p-value	(0.0086)	(0.4858)	(0.6993)
Inflatie;Vacatures_3m	0.2505	0.2162	0.1512
p-value	(0.0149)	(0.0365)	(0.0308)
Rente;Werkloosheidsgraad	-0.2981	-0.2871	-0.2268
p-value	(0.0035)	(0.005)	(0.0016)
Rente;Vacatures_3m	-0.1473	-0.136	-0.0921
p-value	(0.1565)	(0.1913)	(0.1891)
Werkloosheidsgraad;Vacatures_3m	-0.5215	-0.5388	-0.3824
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