Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationSat, 18 Dec 2010 14:16:18 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/18/t1292681634pu4ld7j0o91k58i.htm/, Retrieved Tue, 30 Apr 2024 01:09:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=111983, Retrieved Tue, 30 Apr 2024 01:09:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact136
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [] [2010-12-18 14:16:18] [f9aa24c2294a5d3925c7278aa2e9a372] [Current]
-   PD    [Kendall tau Correlation Matrix] [] [2010-12-18 14:19:19] [ed939ef6f97e5f2afb6796311d9e7a5f]
-           [Kendall tau Correlation Matrix] [Paper] [2010-12-18 16:41:27] [5ddc7dfb25e070b079c4c8fcccc4d42e]
- RMPD    [Kendall tau Rank Correlation] [] [2010-12-18 14:33:50] [ed939ef6f97e5f2afb6796311d9e7a5f]
-           [Kendall tau Rank Correlation] [Paper] [2010-12-18 16:42:32] [5ddc7dfb25e070b079c4c8fcccc4d42e]
-    D    [Kendall tau Correlation Matrix] [Paper] [2010-12-18 16:36:30] [5ddc7dfb25e070b079c4c8fcccc4d42e]
Feedback Forum

Post a new message
Dataseries X:
31514	50556	-9	0	8,3	1,2
27071	43901	-13	4	8,2	1,7
29462	48572	-18	5	8	1,8
26105	43899	-11	-7	7,9	1,5
22397	37532	-9	-2	7,6	1
23843	40357	-10	1	7,6	1,6
21705	35489	-13	3	8,3	1,5
18089	29027	-11	-2	8,4	1,8
20764	34485	-5	-6	8,4	1,8
25316	42598	-15	10	8,4	1,6
17704	30306	-6	-9	8,4	1,9
15548	26451	-6	0	8,6	1,7
28029	47460	-3	-3	8,9	1,6
29383	50104	-1	-2	8,8	1,3
36438	61465	-3	2	8,3	1,1
32034	53726	-4	1	7,5	1,9
22679	39477	-6	2	7,2	2,6
24319	43895	0	-6	7,4	2,3
18004	31481	-4	4	8,8	2,4
17537	29896	-2	-2	9,3	2,2
20366	33842	-2	0	9,3	2
22782	39120	-6	4	8,7	2,9
19169	33702	-7	1	8,2	2,6
13807	25094	-6	-1	8,3	2,3
29743	51442	-6	0	8,5	2,3
25591	45594	-3	-3	8,6	2,6
29096	52518	-2	-1	8,5	3,1
26482	48564	-5	3	8,2	2,8
22405	41745	-11	6	8,1	2,5
27044	49585	-11	0	7,9	2,9
17970	32747	-11	0	8,6	3,1
18730	33379	-10	-1	8,7	3,1
19684	35645	-14	4	8,7	3,2
19785	37034	-8	-6	8,5	2,5
18479	35681	-9	1	8,4	2,6
10698	20972	-5	-4	8,5	2,9
31956	58552	-1	-4	8,7	2,6
29506	54955	-2	1	8,7	2,4
34506	65540	-5	3	8,6	1,7
27165	51570	-4	-1	8,5	2
26736	51145	-6	2	8,3	2,2
23691	46641	-2	-4	8	1,9
18157	35704	-2	0	8,2	1,6
17328	33253	-2	0	8,1	1,6
18205	35193	-2	0	8,1	1,2
20995	41668	2	-4	8	1,2
17382	34865	1	1	7,9	1,5
9367	21210	-8	9	7,9	1,6
31124	56126	-1	-7	8	1,7
26551	49231	1	-2	8	1,8
30651	59723	-1	2	7,9	1,8
25859	48103	2	-3	8	1,8
25100	47472	2	0	7,7	1,3
25778	50497	1	1	7,2	1,3
20418	40059	-1	2	7,5	1,4
18688	34149	-2	1	7,3	1,1
20424	36860	-2	0	7	1,5
24776	46356	-1	-1	7	2,2
19814	36577	-8	7	7	2,9
12738	23872	-4	-4	7,2	3,1
31566	57276	-6	2	7,3	3,5
30111	56389	-3	-3	7,1	3,6
30019	57657	-3	0	6,8	4,4
31934	62300	-7	4	6,4	4,2
25826	48929	-9	2	6,1	5,2
26835	51168	-11	2	6,5	5,8
20205	39636	-13	2	7,7	5,9
17789	33213	-11	-2	7,9	5,4
20520	38127	-9	-2	7,5	5,5
22518	43291	-17	8	6,9	4,7
15572	30600	-22	5	6,6	3,1
11509	21956	-25	3	6,9	2,6
25447	48033	-20	-5	7,7	2,3
24090	46148	-24	4	8	1,9
27786	50736	-24	0	8	0,6
26195	48114	-22	-2	7,7	0,6
20516	38390	-19	-3	7,3	-0,4
22759	44112	-18	-1	7,4	-1,1
19028	36287	-17	-1	8,1	-1,7
16971	30333	-11	-6	8,3	-0,8
20036	35908	-11	0	8,1	-1,2
22485	40005	-12	1	7,9	-1
18730	35263	-10	-2	7,9	-0,1
14538	26591	-15	5	8,3	0,3




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111983&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk







Correlations for all pairs of data series (method=pearson)
Inschrijvingen(zonder_transit)Inschrijvingen(met_transit)ConsumentenvertrouwenEvolutie_consumentenvertrouwenTotale_werkloosheidAlgemene_prijsindex
Inschrijvingen(zonder_transit)10.9710.184-0.012-0.0520.076
Inschrijvingen(met_transit)0.97110.2030.006-0.1490.123
Consumentenvertrouwen0.1840.2031-0.2870.1830.082
Evolutie_consumentenvertrouwen-0.0120.006-0.2871-0.1760.163
Totale_werkloosheid-0.052-0.1490.183-0.1761-0.277
Algemene_prijsindex0.0760.1230.0820.163-0.2771

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Inschrijvingen(zonder_transit) & Inschrijvingen(met_transit) & Consumentenvertrouwen & Evolutie_consumentenvertrouwen & Totale_werkloosheid & Algemene_prijsindex \tabularnewline
Inschrijvingen(zonder_transit) & 1 & 0.971 & 0.184 & -0.012 & -0.052 & 0.076 \tabularnewline
Inschrijvingen(met_transit) & 0.971 & 1 & 0.203 & 0.006 & -0.149 & 0.123 \tabularnewline
Consumentenvertrouwen & 0.184 & 0.203 & 1 & -0.287 & 0.183 & 0.082 \tabularnewline
Evolutie_consumentenvertrouwen & -0.012 & 0.006 & -0.287 & 1 & -0.176 & 0.163 \tabularnewline
Totale_werkloosheid & -0.052 & -0.149 & 0.183 & -0.176 & 1 & -0.277 \tabularnewline
Algemene_prijsindex & 0.076 & 0.123 & 0.082 & 0.163 & -0.277 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111983&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Inschrijvingen(zonder_transit)[/C][C]Inschrijvingen(met_transit)[/C][C]Consumentenvertrouwen[/C][C]Evolutie_consumentenvertrouwen[/C][C]Totale_werkloosheid[/C][C]Algemene_prijsindex[/C][/ROW]
[ROW][C]Inschrijvingen(zonder_transit)[/C][C]1[/C][C]0.971[/C][C]0.184[/C][C]-0.012[/C][C]-0.052[/C][C]0.076[/C][/ROW]
[ROW][C]Inschrijvingen(met_transit)[/C][C]0.971[/C][C]1[/C][C]0.203[/C][C]0.006[/C][C]-0.149[/C][C]0.123[/C][/ROW]
[ROW][C]Consumentenvertrouwen[/C][C]0.184[/C][C]0.203[/C][C]1[/C][C]-0.287[/C][C]0.183[/C][C]0.082[/C][/ROW]
[ROW][C]Evolutie_consumentenvertrouwen[/C][C]-0.012[/C][C]0.006[/C][C]-0.287[/C][C]1[/C][C]-0.176[/C][C]0.163[/C][/ROW]
[ROW][C]Totale_werkloosheid[/C][C]-0.052[/C][C]-0.149[/C][C]0.183[/C][C]-0.176[/C][C]1[/C][C]-0.277[/C][/ROW]
[ROW][C]Algemene_prijsindex[/C][C]0.076[/C][C]0.123[/C][C]0.082[/C][C]0.163[/C][C]-0.277[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111983&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111983&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)
Inschrijvingen(zonder_transit)Inschrijvingen(met_transit)ConsumentenvertrouwenEvolutie_consumentenvertrouwenTotale_werkloosheidAlgemene_prijsindex
Inschrijvingen(zonder_transit)10.9710.184-0.012-0.0520.076
Inschrijvingen(met_transit)0.97110.2030.006-0.1490.123
Consumentenvertrouwen0.1840.2031-0.2870.1830.082
Evolutie_consumentenvertrouwen-0.0120.006-0.2871-0.1760.163
Totale_werkloosheid-0.052-0.1490.183-0.1761-0.277
Algemene_prijsindex0.0760.1230.0820.163-0.2771







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Inschrijvingen(zonder_transit);Inschrijvingen(met_transit)0.97070.96970.857
p-value(0)(0)(0)
Inschrijvingen(zonder_transit);Consumentenvertrouwen0.18410.18560.1146
p-value(0.0936)(0.0909)(0.1318)
Inschrijvingen(zonder_transit);Evolutie_consumentenvertrouwen-0.01210.03320.0287
p-value(0.9129)(0.7646)(0.7092)
Inschrijvingen(zonder_transit);Totale_werkloosheid-0.0518-0.0678-0.0455
p-value(0.6401)(0.5399)(0.5485)
Inschrijvingen(zonder_transit);Algemene_prijsindex0.07640.0470.0274
p-value(0.4899)(0.6709)(0.7162)
Inschrijvingen(met_transit);Consumentenvertrouwen0.20330.22390.134
p-value(0.0636)(0.0406)(0.0779)
Inschrijvingen(met_transit);Evolutie_consumentenvertrouwen0.00630.04620.0403
p-value(0.9545)(0.6768)(0.6)
Inschrijvingen(met_transit);Totale_werkloosheid-0.1489-0.1549-0.1074
p-value(0.1766)(0.1595)(0.1565)
Inschrijvingen(met_transit);Algemene_prijsindex0.12260.06820.0422
p-value(0.2664)(0.5374)(0.5749)
Consumentenvertrouwen;Evolutie_consumentenvertrouwen-0.2868-0.2965-0.2152
p-value(0.0082)(0.0062)(0.0062)
Consumentenvertrouwen;Totale_werkloosheid0.18340.12580.0975
p-value(0.0949)(0.2541)(0.2084)
Consumentenvertrouwen;Algemene_prijsindex0.082-0.0283-0.0484
p-value(0.4583)(0.7981)(0.5298)
Evolutie_consumentenvertrouwen;Totale_werkloosheid-0.1757-0.1456-0.1029
p-value(0.1099)(0.1864)(0.1896)
Evolutie_consumentenvertrouwen;Algemene_prijsindex0.16270.15080.11
p-value(0.1392)(0.171)(0.158)
Totale_werkloosheid;Algemene_prijsindex-0.2775-0.0868-0.0351
p-value(0.0106)(0.4324)(0.6474)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
Inschrijvingen(zonder_transit);Inschrijvingen(met_transit) & 0.9707 & 0.9697 & 0.857 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Inschrijvingen(zonder_transit);Consumentenvertrouwen & 0.1841 & 0.1856 & 0.1146 \tabularnewline
p-value & (0.0936) & (0.0909) & (0.1318) \tabularnewline
Inschrijvingen(zonder_transit);Evolutie_consumentenvertrouwen & -0.0121 & 0.0332 & 0.0287 \tabularnewline
p-value & (0.9129) & (0.7646) & (0.7092) \tabularnewline
Inschrijvingen(zonder_transit);Totale_werkloosheid & -0.0518 & -0.0678 & -0.0455 \tabularnewline
p-value & (0.6401) & (0.5399) & (0.5485) \tabularnewline
Inschrijvingen(zonder_transit);Algemene_prijsindex & 0.0764 & 0.047 & 0.0274 \tabularnewline
p-value & (0.4899) & (0.6709) & (0.7162) \tabularnewline
Inschrijvingen(met_transit);Consumentenvertrouwen & 0.2033 & 0.2239 & 0.134 \tabularnewline
p-value & (0.0636) & (0.0406) & (0.0779) \tabularnewline
Inschrijvingen(met_transit);Evolutie_consumentenvertrouwen & 0.0063 & 0.0462 & 0.0403 \tabularnewline
p-value & (0.9545) & (0.6768) & (0.6) \tabularnewline
Inschrijvingen(met_transit);Totale_werkloosheid & -0.1489 & -0.1549 & -0.1074 \tabularnewline
p-value & (0.1766) & (0.1595) & (0.1565) \tabularnewline
Inschrijvingen(met_transit);Algemene_prijsindex & 0.1226 & 0.0682 & 0.0422 \tabularnewline
p-value & (0.2664) & (0.5374) & (0.5749) \tabularnewline
Consumentenvertrouwen;Evolutie_consumentenvertrouwen & -0.2868 & -0.2965 & -0.2152 \tabularnewline
p-value & (0.0082) & (0.0062) & (0.0062) \tabularnewline
Consumentenvertrouwen;Totale_werkloosheid & 0.1834 & 0.1258 & 0.0975 \tabularnewline
p-value & (0.0949) & (0.2541) & (0.2084) \tabularnewline
Consumentenvertrouwen;Algemene_prijsindex & 0.082 & -0.0283 & -0.0484 \tabularnewline
p-value & (0.4583) & (0.7981) & (0.5298) \tabularnewline
Evolutie_consumentenvertrouwen;Totale_werkloosheid & -0.1757 & -0.1456 & -0.1029 \tabularnewline
p-value & (0.1099) & (0.1864) & (0.1896) \tabularnewline
Evolutie_consumentenvertrouwen;Algemene_prijsindex & 0.1627 & 0.1508 & 0.11 \tabularnewline
p-value & (0.1392) & (0.171) & (0.158) \tabularnewline
Totale_werkloosheid;Algemene_prijsindex & -0.2775 & -0.0868 & -0.0351 \tabularnewline
p-value & (0.0106) & (0.4324) & (0.6474) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111983&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]Inschrijvingen(zonder_transit);Inschrijvingen(met_transit)[/C][C]0.9707[/C][C]0.9697[/C][C]0.857[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Inschrijvingen(zonder_transit);Consumentenvertrouwen[/C][C]0.1841[/C][C]0.1856[/C][C]0.1146[/C][/ROW]
[ROW][C]p-value[/C][C](0.0936)[/C][C](0.0909)[/C][C](0.1318)[/C][/ROW]
[ROW][C]Inschrijvingen(zonder_transit);Evolutie_consumentenvertrouwen[/C][C]-0.0121[/C][C]0.0332[/C][C]0.0287[/C][/ROW]
[ROW][C]p-value[/C][C](0.9129)[/C][C](0.7646)[/C][C](0.7092)[/C][/ROW]
[ROW][C]Inschrijvingen(zonder_transit);Totale_werkloosheid[/C][C]-0.0518[/C][C]-0.0678[/C][C]-0.0455[/C][/ROW]
[ROW][C]p-value[/C][C](0.6401)[/C][C](0.5399)[/C][C](0.5485)[/C][/ROW]
[ROW][C]Inschrijvingen(zonder_transit);Algemene_prijsindex[/C][C]0.0764[/C][C]0.047[/C][C]0.0274[/C][/ROW]
[ROW][C]p-value[/C][C](0.4899)[/C][C](0.6709)[/C][C](0.7162)[/C][/ROW]
[ROW][C]Inschrijvingen(met_transit);Consumentenvertrouwen[/C][C]0.2033[/C][C]0.2239[/C][C]0.134[/C][/ROW]
[ROW][C]p-value[/C][C](0.0636)[/C][C](0.0406)[/C][C](0.0779)[/C][/ROW]
[ROW][C]Inschrijvingen(met_transit);Evolutie_consumentenvertrouwen[/C][C]0.0063[/C][C]0.0462[/C][C]0.0403[/C][/ROW]
[ROW][C]p-value[/C][C](0.9545)[/C][C](0.6768)[/C][C](0.6)[/C][/ROW]
[ROW][C]Inschrijvingen(met_transit);Totale_werkloosheid[/C][C]-0.1489[/C][C]-0.1549[/C][C]-0.1074[/C][/ROW]
[ROW][C]p-value[/C][C](0.1766)[/C][C](0.1595)[/C][C](0.1565)[/C][/ROW]
[ROW][C]Inschrijvingen(met_transit);Algemene_prijsindex[/C][C]0.1226[/C][C]0.0682[/C][C]0.0422[/C][/ROW]
[ROW][C]p-value[/C][C](0.2664)[/C][C](0.5374)[/C][C](0.5749)[/C][/ROW]
[ROW][C]Consumentenvertrouwen;Evolutie_consumentenvertrouwen[/C][C]-0.2868[/C][C]-0.2965[/C][C]-0.2152[/C][/ROW]
[ROW][C]p-value[/C][C](0.0082)[/C][C](0.0062)[/C][C](0.0062)[/C][/ROW]
[ROW][C]Consumentenvertrouwen;Totale_werkloosheid[/C][C]0.1834[/C][C]0.1258[/C][C]0.0975[/C][/ROW]
[ROW][C]p-value[/C][C](0.0949)[/C][C](0.2541)[/C][C](0.2084)[/C][/ROW]
[ROW][C]Consumentenvertrouwen;Algemene_prijsindex[/C][C]0.082[/C][C]-0.0283[/C][C]-0.0484[/C][/ROW]
[ROW][C]p-value[/C][C](0.4583)[/C][C](0.7981)[/C][C](0.5298)[/C][/ROW]
[ROW][C]Evolutie_consumentenvertrouwen;Totale_werkloosheid[/C][C]-0.1757[/C][C]-0.1456[/C][C]-0.1029[/C][/ROW]
[ROW][C]p-value[/C][C](0.1099)[/C][C](0.1864)[/C][C](0.1896)[/C][/ROW]
[ROW][C]Evolutie_consumentenvertrouwen;Algemene_prijsindex[/C][C]0.1627[/C][C]0.1508[/C][C]0.11[/C][/ROW]
[ROW][C]p-value[/C][C](0.1392)[/C][C](0.171)[/C][C](0.158)[/C][/ROW]
[ROW][C]Totale_werkloosheid;Algemene_prijsindex[/C][C]-0.2775[/C][C]-0.0868[/C][C]-0.0351[/C][/ROW]
[ROW][C]p-value[/C][C](0.0106)[/C][C](0.4324)[/C][C](0.6474)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111983&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111983&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
pairPearson rSpearman rhoKendall tau
Inschrijvingen(zonder_transit);Inschrijvingen(met_transit)0.97070.96970.857
p-value(0)(0)(0)
Inschrijvingen(zonder_transit);Consumentenvertrouwen0.18410.18560.1146
p-value(0.0936)(0.0909)(0.1318)
Inschrijvingen(zonder_transit);Evolutie_consumentenvertrouwen-0.01210.03320.0287
p-value(0.9129)(0.7646)(0.7092)
Inschrijvingen(zonder_transit);Totale_werkloosheid-0.0518-0.0678-0.0455
p-value(0.6401)(0.5399)(0.5485)
Inschrijvingen(zonder_transit);Algemene_prijsindex0.07640.0470.0274
p-value(0.4899)(0.6709)(0.7162)
Inschrijvingen(met_transit);Consumentenvertrouwen0.20330.22390.134
p-value(0.0636)(0.0406)(0.0779)
Inschrijvingen(met_transit);Evolutie_consumentenvertrouwen0.00630.04620.0403
p-value(0.9545)(0.6768)(0.6)
Inschrijvingen(met_transit);Totale_werkloosheid-0.1489-0.1549-0.1074
p-value(0.1766)(0.1595)(0.1565)
Inschrijvingen(met_transit);Algemene_prijsindex0.12260.06820.0422
p-value(0.2664)(0.5374)(0.5749)
Consumentenvertrouwen;Evolutie_consumentenvertrouwen-0.2868-0.2965-0.2152
p-value(0.0082)(0.0062)(0.0062)
Consumentenvertrouwen;Totale_werkloosheid0.18340.12580.0975
p-value(0.0949)(0.2541)(0.2084)
Consumentenvertrouwen;Algemene_prijsindex0.082-0.0283-0.0484
p-value(0.4583)(0.7981)(0.5298)
Evolutie_consumentenvertrouwen;Totale_werkloosheid-0.1757-0.1456-0.1029
p-value(0.1099)(0.1864)(0.1896)
Evolutie_consumentenvertrouwen;Algemene_prijsindex0.16270.15080.11
p-value(0.1392)(0.171)(0.158)
Totale_werkloosheid;Algemene_prijsindex-0.2775-0.0868-0.0351
p-value(0.0106)(0.4324)(0.6474)



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