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

Fri, 23 Dec 2011 13:24:20 -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/23/t1324664710gc3xy6pbec34jy2.htm/, Retrieved Mon, 07 Apr 2025 18:01:57 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160624, Retrieved Mon, 07 Apr 2025 18:01:57 +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

121

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

-     [Multiple Regression] [] [2010-12-05 18:56:24] [b98453cac15ba1066b407e146608df68]
- RMPD  [Kendall tau Correlation Matrix] [WS 10 Pearson cor...] [2011-12-13 18:44:30] [620e5553455d245695b6e856984b13e0]
-    D      [Kendall tau Correlation Matrix] [4.2.1_gefilterd] [2011-12-23 18:24:20] [5e0d67387daac495c180286b1f543191] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1418	210907	79	94	24188	2
2172	179321	108	103	32287	4
1583	149061	43	93	27101	0
1764	237213	78	123	19716	0
1495	173326	86	148	17753	-4
1373	133131	44	90	9028	4
2187	258873	104	124	18653	4
4041	324799	158	168	29498	0
1706	230964	102	115	27563	-1
2152	236785	77	71	18293	0
2242	344297	80	108	16116	1
2515	174724	123	120	26569	0
2147	174415	73	114	24785	3
1638	223632	105	120	23825	-1
2452	294424	107	124	34461	4
2662	325107	84	126	24919	3
865	106408	33	37	12558	1
1793	96560	42	38	7784	0
2527	265769	96	120	28522	-2
2747	269651	106	93	22265	-3
1324	149112	56	95	14459	-4
1383	152871	59	90	22240	2
4308	362301	76	110	11912	2
1831	183167	91	138	18220	-4
3373	277965	115	133	19199	3
2352	218946	76	96	25239	2
2144	244052	101	164	29801	2
4691	341570	94	78	18450	0
2694	233328	92	102	34861	5
1769	206161	75	99	16688	-2
3148	311473	128	129	24683	0
1954	207176	56	114	21436	-2
1226	196553	41	99	30546	-3
1496	143246	67	104	15977	2
1943	182192	77	138	14251	2
1762	194979	66	151	16851	2
1403	167488	69	72	21113	0
1425	143756	105	120	17401	4
1857	275541	116	115	23958	4
1420	152299	62	98	14587	2
1644	193339	100	71	20537	2
1054	130585	67	107	30495	-4
937	112611	46	73	7117	3
2547	148446	135	129	33473	3
1626	182079	124	118	21115	2
1964	243060	58	104	32902	-1
1381	162765	68	107	25131	-3
1290	85574	37	36	6943	0
1982	225060	93	139	31808	1
1590	133328	56	56	17014	-3
1281	100750	83	93	6440	3
1272	101523	59	87	18647	0
1944	243511	133	110	20556	0
1605	152474	106	83	22392	0
1386	132487	71	98	8388	3
2395	317394	116	82	22120	-3
2699	244749	98	115	20923	0
1606	184510	64	140	20237	-4
1204	128423	32	120	3769	2
1138	97839	25	66	12252	-1
1111	172494	46	139	21721	3
2186	229242	63	119	17939	2
3604	351619	95	141	23436	5
3261	324598	113	133	34538	2
1641	195838	111	98	25515	-2
2312	254488	120	117	29402	0
2201	199476	87	105	28732	3
961	92499	25	55	5250	-2
1900	224330	131	132	28608	0
1645	181633	47	73	14817	6
2429	271856	109	86	16714	-3
872	95227	37	48	1669	3
1018	98146	15	48	7768	0
1403	118612	54	43	7936	-2
616	65475	16	46	7294	1
1232	108446	22	65	13275	0
1255	121848	37	52	5401	2
995	76302	29	68	8702	2
2048	98104	55	47	8030	-3
301	30989	5	41	1278	-2
628	31774	0	47	1574	1
1597	150580	27	71	9653	-4
717	54157	37	30	7067	0
652	59382	29	24	1514	1
733	84105	17	63	5432	0

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=160624&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=160624&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160624&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)
	pageviews	time_in_rfc	blogged_comp.	feedb.mess.long	tot.revisions	Result_test
pageviews	1	0.857	0.681	0.53	0.523	0.142
time_in_rfc	0.857	1	0.723	0.654	0.638	0.111
blogged_comp.	0.681	0.723	1	0.68	0.707	0.111
feedb.mess.long	0.53	0.654	0.68	1	0.671	0.143
tot.revisions	0.523	0.638	0.707	0.671	1	0.046
Result_test	0.142	0.111	0.111	0.143	0.046	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & pageviews & time_in_rfc & blogged_comp. & feedb.mess.long & tot.revisions & Result_test \tabularnewline
pageviews & 1 & 0.857 & 0.681 & 0.53 & 0.523 & 0.142 \tabularnewline
time_in_rfc & 0.857 & 1 & 0.723 & 0.654 & 0.638 & 0.111 \tabularnewline
blogged_comp. & 0.681 & 0.723 & 1 & 0.68 & 0.707 & 0.111 \tabularnewline
feedb.mess.long & 0.53 & 0.654 & 0.68 & 1 & 0.671 & 0.143 \tabularnewline
tot.revisions & 0.523 & 0.638 & 0.707 & 0.671 & 1 & 0.046 \tabularnewline
Result_test & 0.142 & 0.111 & 0.111 & 0.143 & 0.046 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160624&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]pageviews[/C][C]time_in_rfc[/C][C]blogged_comp.[/C][C]feedb.mess.long[/C][C]tot.revisions[/C][C]Result_test[/C][/ROW]
[ROW][C]pageviews[/C][C]1[/C][C]0.857[/C][C]0.681[/C][C]0.53[/C][C]0.523[/C][C]0.142[/C][/ROW]
[ROW][C]time_in_rfc[/C][C]0.857[/C][C]1[/C][C]0.723[/C][C]0.654[/C][C]0.638[/C][C]0.111[/C][/ROW]
[ROW][C]blogged_comp.[/C][C]0.681[/C][C]0.723[/C][C]1[/C][C]0.68[/C][C]0.707[/C][C]0.111[/C][/ROW]
[ROW][C]feedb.mess.long[/C][C]0.53[/C][C]0.654[/C][C]0.68[/C][C]1[/C][C]0.671[/C][C]0.143[/C][/ROW]
[ROW][C]tot.revisions[/C][C]0.523[/C][C]0.638[/C][C]0.707[/C][C]0.671[/C][C]1[/C][C]0.046[/C][/ROW]
[ROW][C]Result_test[/C][C]0.142[/C][C]0.111[/C][C]0.111[/C][C]0.143[/C][C]0.046[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160624&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160624&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)
	pageviews	time_in_rfc	blogged_comp.	feedb.mess.long	tot.revisions	Result_test
pageviews	1	0.857	0.681	0.53	0.523	0.142
time_in_rfc	0.857	1	0.723	0.654	0.638	0.111
blogged_comp.	0.681	0.723	1	0.68	0.707	0.111
feedb.mess.long	0.53	0.654	0.68	1	0.671	0.143
tot.revisions	0.523	0.638	0.707	0.671	1	0.046
Result_test	0.142	0.111	0.111	0.143	0.046	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
pageviews;time_in_rfc	0.8568	0.8624	0.704
p-value	(0)	(0)	(0)
pageviews;blogged_comp.	0.681	0.7614	0.568
p-value	(0)	(0)	(0)
pageviews;feedb.mess.long	0.5297	0.5762	0.4193
p-value	(0)	(0)	(0)
pageviews;tot.revisions	0.5231	0.6132	0.4508
p-value	(0)	(0)	(0)
pageviews;Result_test	0.1416	0.1232	0.0887
p-value	(0.1961)	(0.2613)	(0.2552)
time_in_rfc;blogged_comp.	0.7232	0.7488	0.5631
p-value	(0)	(0)	(0)
time_in_rfc;feedb.mess.long	0.6536	0.6597	0.4831
p-value	(0)	(0)	(0)
time_in_rfc;tot.revisions	0.6383	0.6593	0.4801
p-value	(0)	(0)	(0)
time_in_rfc;Result_test	0.1108	0.0834	0.062
p-value	(0.3129)	(0.4478)	(0.4262)
blogged_comp.;feedb.mess.long	0.6796	0.6492	0.4669
p-value	(0)	(0)	(0)
blogged_comp.;tot.revisions	0.707	0.6919	0.507
p-value	(0)	(0)	(0)
blogged_comp.;Result_test	0.1108	0.1264	0.0946
p-value	(0.3125)	(0.2492)	(0.2258)
feedb.mess.long;tot.revisions	0.6712	0.6182	0.4426
p-value	(0)	(0)	(0)
feedb.mess.long;Result_test	0.1431	0.1838	0.1271
p-value	(0.1914)	(0.0922)	(0.1046)
tot.revisions;Result_test	0.0463	0.0403	0.0267
p-value	(0.6742)	(0.7141)	(0.7322)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
pageviews;time_in_rfc & 0.8568 & 0.8624 & 0.704 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;blogged_comp. & 0.681 & 0.7614 & 0.568 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;feedb.mess.long & 0.5297 & 0.5762 & 0.4193 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;tot.revisions & 0.5231 & 0.6132 & 0.4508 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;Result_test & 0.1416 & 0.1232 & 0.0887 \tabularnewline
p-value & (0.1961) & (0.2613) & (0.2552) \tabularnewline
time_in_rfc;blogged_comp. & 0.7232 & 0.7488 & 0.5631 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;feedb.mess.long & 0.6536 & 0.6597 & 0.4831 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;tot.revisions & 0.6383 & 0.6593 & 0.4801 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;Result_test & 0.1108 & 0.0834 & 0.062 \tabularnewline
p-value & (0.3129) & (0.4478) & (0.4262) \tabularnewline
blogged_comp.;feedb.mess.long & 0.6796 & 0.6492 & 0.4669 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogged_comp.;tot.revisions & 0.707 & 0.6919 & 0.507 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogged_comp.;Result_test & 0.1108 & 0.1264 & 0.0946 \tabularnewline
p-value & (0.3125) & (0.2492) & (0.2258) \tabularnewline
feedb.mess.long;tot.revisions & 0.6712 & 0.6182 & 0.4426 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
feedb.mess.long;Result_test & 0.1431 & 0.1838 & 0.1271 \tabularnewline
p-value & (0.1914) & (0.0922) & (0.1046) \tabularnewline
tot.revisions;Result_test & 0.0463 & 0.0403 & 0.0267 \tabularnewline
p-value & (0.6742) & (0.7141) & (0.7322) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160624&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]pageviews;time_in_rfc[/C][C]0.8568[/C][C]0.8624[/C][C]0.704[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;blogged_comp.[/C][C]0.681[/C][C]0.7614[/C][C]0.568[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;feedb.mess.long[/C][C]0.5297[/C][C]0.5762[/C][C]0.4193[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;tot.revisions[/C][C]0.5231[/C][C]0.6132[/C][C]0.4508[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;Result_test[/C][C]0.1416[/C][C]0.1232[/C][C]0.0887[/C][/ROW]
[ROW][C]p-value[/C][C](0.1961)[/C][C](0.2613)[/C][C](0.2552)[/C][/ROW]
[ROW][C]time_in_rfc;blogged_comp.[/C][C]0.7232[/C][C]0.7488[/C][C]0.5631[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;feedb.mess.long[/C][C]0.6536[/C][C]0.6597[/C][C]0.4831[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;tot.revisions[/C][C]0.6383[/C][C]0.6593[/C][C]0.4801[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;Result_test[/C][C]0.1108[/C][C]0.0834[/C][C]0.062[/C][/ROW]
[ROW][C]p-value[/C][C](0.3129)[/C][C](0.4478)[/C][C](0.4262)[/C][/ROW]
[ROW][C]blogged_comp.;feedb.mess.long[/C][C]0.6796[/C][C]0.6492[/C][C]0.4669[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogged_comp.;tot.revisions[/C][C]0.707[/C][C]0.6919[/C][C]0.507[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogged_comp.;Result_test[/C][C]0.1108[/C][C]0.1264[/C][C]0.0946[/C][/ROW]
[ROW][C]p-value[/C][C](0.3125)[/C][C](0.2492)[/C][C](0.2258)[/C][/ROW]
[ROW][C]feedb.mess.long;tot.revisions[/C][C]0.6712[/C][C]0.6182[/C][C]0.4426[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]feedb.mess.long;Result_test[/C][C]0.1431[/C][C]0.1838[/C][C]0.1271[/C][/ROW]
[ROW][C]p-value[/C][C](0.1914)[/C][C](0.0922)[/C][C](0.1046)[/C][/ROW]
[ROW][C]tot.revisions;Result_test[/C][C]0.0463[/C][C]0.0403[/C][C]0.0267[/C][/ROW]
[ROW][C]p-value[/C][C](0.6742)[/C][C](0.7141)[/C][C](0.7322)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160624&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160624&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
pageviews;time_in_rfc	0.8568	0.8624	0.704
p-value	(0)	(0)	(0)
pageviews;blogged_comp.	0.681	0.7614	0.568
p-value	(0)	(0)	(0)
pageviews;feedb.mess.long	0.5297	0.5762	0.4193
p-value	(0)	(0)	(0)
pageviews;tot.revisions	0.5231	0.6132	0.4508
p-value	(0)	(0)	(0)
pageviews;Result_test	0.1416	0.1232	0.0887
p-value	(0.1961)	(0.2613)	(0.2552)
time_in_rfc;blogged_comp.	0.7232	0.7488	0.5631
p-value	(0)	(0)	(0)
time_in_rfc;feedb.mess.long	0.6536	0.6597	0.4831
p-value	(0)	(0)	(0)
time_in_rfc;tot.revisions	0.6383	0.6593	0.4801
p-value	(0)	(0)	(0)
time_in_rfc;Result_test	0.1108	0.0834	0.062
p-value	(0.3129)	(0.4478)	(0.4262)
blogged_comp.;feedb.mess.long	0.6796	0.6492	0.4669
p-value	(0)	(0)	(0)
blogged_comp.;tot.revisions	0.707	0.6919	0.507
p-value	(0)	(0)	(0)
blogged_comp.;Result_test	0.1108	0.1264	0.0946
p-value	(0.3125)	(0.2492)	(0.2258)
feedb.mess.long;tot.revisions	0.6712	0.6182	0.4426
p-value	(0)	(0)	(0)
feedb.mess.long;Result_test	0.1431	0.1838	0.1271
p-value	(0.1914)	(0.0922)	(0.1046)
tot.revisions;Result_test	0.0463	0.0403	0.0267
p-value	(0.6742)	(0.7141)	(0.7322)

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