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

Tue, 13 Dec 2011 13:20:42 -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/13/t1323800457q5ud5as8jn23uoa.htm/, Retrieved Thu, 02 May 2024 21:09:51 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=154608, Retrieved Thu, 02 May 2024 21:09:51 +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-13 18:20:42] [44862125718ce971d51d71f1796e585f] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1666	264724	66	34	124252
966	137550	61	30	98956
1783	213265	66	42	98073
2563	208980	100	38	106816
1070	147176	49	27	41449
578	65295	28	31	76173
4059	452801	108	29	177551
381	33186	19	18	22807
1900	200501	55	31	126938
1694	199716	43	33	61680
2001	292387	101	42	72117
1953	219225	106	54	79738
1600	156623	65	35	57793
2664	327332	73	51	91677
1739	202440	78	42	64631
4680	367911	172	59	106385
2029	285842	66	36	161961
2688	292903	144	39	112669
1321	159678	52	26	114029
2198	251859	79	45	124550
2446	269240	68	45	105416
2641	412303	100	39	72875
1299	161189	38	25	81964
1648	178722	52	52	104880
2975	200181	109	41	76302
2487	203572	111	38	96740
2657	249899	124	38	93071
1842	254114	82	37	78912
1474	151167	50	32	35224
2478	310339	58	38	90694
2122	253478	72	45	125369
1733	191614	71	46	80849
2031	311019	83	48	104434
867	87995	35	33	65702
2804	343613	88	39	108179
2695	266925	54	39	63583
3425	395062	115	41	95066
1679	192734	78	32	62486
917	114673	31	17	31081
2995	310306	176	39	94584
3134	311966	76	37	87408
1489	157897	62	38	68966
1636	185249	71	36	88766
1610	160770	54	42	57139
2402	142302	76	45	90586
4941	414427	138	38	109249
918	78800	42	26	33032
2133	202416	72	46	96056
3802	314815	111	47	146648
2000	169182	54	45	80613
1668	200370	72	35	87026
496	24188	24	4	5950
2452	361758	297	44	131106
744	65029	17	18	32551
1161	101097	64	14	31701
2730	255165	53	37	91072
2393	296166	81	55	159803
3417	312624	169	36	143950
2294	296511	129	39	112368
2044	234948	78	36	82124
3814	357369	134	46	144068
3050	288449	113	28	162627
2346	205791	97	42	55062
2327	247065	85	38	95329
1349	218745	64	36	105612
1587	208308	64	28	62853
1818	186550	123	34	125976
2500	215974	134	40	79146
2153	219705	74	35	118645
1491	141993	63	25	99971
2402	227667	65	45	77826
893	73566	32	23	22618
2088	229355	76	45	84892
1593	181728	50	38	92059
1638	161629	57	38	77993
2143	328393	74	41	104155
2264	288008	86	36	109840
1735	202410	103	37	238712
2110	184970	60	38	67486
1601	168990	60	37	68007
1609	146441	44	25	48194
3458	404418	106	45	134796
1358	145916	67	26	38692
2192	266992	97	44	93587
870	80953	25	8	56622
1737	135658	51	27	15986
1181	145468	53	35	113402
3409	334352	174	37	97967
2339	279518	102	57	74844
3016	175232	101	41	136051
2204	237176	86	37	50548
1924	215300	71	38	112215
1651	167587	60	31	59591
2916	256299	71	36	59938
2263	278086	74	36	137639
1522	178489	36	32	143372
1562	215379	49	35	138599
1954	271106	73	35	174110
3726	363714	140	58	135062
3409	375100	105	30	175681
2341	256086	111	45	130307
2148	268556	62	37	139141
1962	182910	171	36	44244
602	43287	14	19	43750
2099	184069	76	23	48029
1866	193549	127	39	95216
2535	259498	46	40	92288
2586	295230	86	40	94588
974	106655	57	23	197426
3026	151612	82	41	151244
1846	304890	65	40	139206
2205	283225	81	43	106271
398	23623	11	1	1168
1821	174970	69	36	71764
530	61857	25	11	25162
1571	154990	48	44	45635
2747	358662	105	34	101817
387	21054	16	0	855
1976	239794	48	28	100174
450	31414	20	8	14116
3214	294582	109	39	85008
1878	217893	59	44	124254
1490	165013	80	43	105793
1562	142934	51	28	117129
568	38214	34	8	8773
1794	185597	39	39	94747
2617	339082	78	47	107549
1224	186273	57	48	97392
3385	385366	77	46	126893
2236	282568	95	48	118850
3192	381104	116	50	234853
1245	187978	35	40	74783
1079	98495	41	32	66089
2734	276677	305	38	95684
3941	390304	159	46	139537
1520	118152	46	35	144253
3907	371020	127	42	153824
1795	152198	75	38	63995
1627	236370	46	41	84891
2094	207837	83	42	61263
1638	193297	110	32	106221
3716	353301	111	36	113587
2023	224936	81	35	113864
2035	173260	63	21	37238
2743	306150	96	45	119906
1623	131872	54	49	135096
2305	209639	77	36	151611
2341	269828	98	43	144645
2	1	0	0	0
207	14688	10	0	6023
5	98	1	0	0
8	455	2	0	0
0	0	0	0	0
0	0	0	0	0
1853	206943	81	37	77457
2964	347930	135	47	62464
0	0	0	0	0
4	203	4	0	0
151	7199	5	0	1644
474	46660	20	5	6179
141	17547	5	1	3926
990	108513	40	38	42087
29	969	2	0	0
1581	182311	61	28	87656

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	'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 & 2 seconds \tabularnewline
R Server & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154608&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]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154608&T=0

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

Correlations for all pairs of data series (method=pearson)
	Pageviews	Time	Logins	PR	Characters
Pageviews	1	0.91	0.741	0.731	0.647
Time	0.91	1	0.714	0.755	0.693
Logins	0.741	0.714	1	0.595	0.513
PR	0.731	0.755	0.595	1	0.655
Characters	0.647	0.693	0.513	0.655	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Pageviews & Time & Logins & PR & Characters \tabularnewline
Pageviews & 1 & 0.91 & 0.741 & 0.731 & 0.647 \tabularnewline
Time & 0.91 & 1 & 0.714 & 0.755 & 0.693 \tabularnewline
Logins & 0.741 & 0.714 & 1 & 0.595 & 0.513 \tabularnewline
PR & 0.731 & 0.755 & 0.595 & 1 & 0.655 \tabularnewline
Characters & 0.647 & 0.693 & 0.513 & 0.655 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154608&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Pageviews[/C][C]Time[/C][C]Logins[/C][C]PR[/C][C]Characters[/C][/ROW]
[ROW][C]Pageviews[/C][C]1[/C][C]0.91[/C][C]0.741[/C][C]0.731[/C][C]0.647[/C][/ROW]
[ROW][C]Time[/C][C]0.91[/C][C]1[/C][C]0.714[/C][C]0.755[/C][C]0.693[/C][/ROW]
[ROW][C]Logins[/C][C]0.741[/C][C]0.714[/C][C]1[/C][C]0.595[/C][C]0.513[/C][/ROW]
[ROW][C]PR[/C][C]0.731[/C][C]0.755[/C][C]0.595[/C][C]1[/C][C]0.655[/C][/ROW]
[ROW][C]Characters[/C][C]0.647[/C][C]0.693[/C][C]0.513[/C][C]0.655[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154608&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154608&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	Logins	PR	Characters
Pageviews	1	0.91	0.741	0.731	0.647
Time	0.91	1	0.714	0.755	0.693
Logins	0.741	0.714	1	0.595	0.513
PR	0.731	0.755	0.595	1	0.655
Characters	0.647	0.693	0.513	0.655	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
Pageviews;Time	0.9096	0.8877	0.7408
p-value	(0)	(0)	(0)
Pageviews;Logins	0.7411	0.839	0.6727
p-value	(0)	(0)	(0)
Pageviews;PR	0.7306	0.6551	0.4969
p-value	(0)	(0)	(0)
Pageviews;Characters	0.6467	0.6018	0.4475
p-value	(0)	(0)	(0)
Time;Logins	0.7141	0.7874	0.6101
p-value	(0)	(0)	(0)
Time;PR	0.7554	0.6508	0.494
p-value	(0)	(0)	(0)
Time;Characters	0.6931	0.6533	0.4984
p-value	(0)	(0)	(0)
Logins;PR	0.5945	0.6044	0.4467
p-value	(0)	(0)	(0)
Logins;Characters	0.5134	0.5747	0.4179
p-value	(0)	(0)	(0)
PR;Characters	0.6546	0.495	0.3644
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
Pageviews;Time & 0.9096 & 0.8877 & 0.7408 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;Logins & 0.7411 & 0.839 & 0.6727 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;PR & 0.7306 & 0.6551 & 0.4969 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;Characters & 0.6467 & 0.6018 & 0.4475 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;Logins & 0.7141 & 0.7874 & 0.6101 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;PR & 0.7554 & 0.6508 & 0.494 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;Characters & 0.6931 & 0.6533 & 0.4984 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;PR & 0.5945 & 0.6044 & 0.4467 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;Characters & 0.5134 & 0.5747 & 0.4179 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
PR;Characters & 0.6546 & 0.495 & 0.3644 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154608&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[/C][C]0.9096[/C][C]0.8877[/C][C]0.7408[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;Logins[/C][C]0.7411[/C][C]0.839[/C][C]0.6727[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;PR[/C][C]0.7306[/C][C]0.6551[/C][C]0.4969[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;Characters[/C][C]0.6467[/C][C]0.6018[/C][C]0.4475[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;Logins[/C][C]0.7141[/C][C]0.7874[/C][C]0.6101[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;PR[/C][C]0.7554[/C][C]0.6508[/C][C]0.494[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;Characters[/C][C]0.6931[/C][C]0.6533[/C][C]0.4984[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;PR[/C][C]0.5945[/C][C]0.6044[/C][C]0.4467[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;Characters[/C][C]0.5134[/C][C]0.5747[/C][C]0.4179[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]PR;Characters[/C][C]0.6546[/C][C]0.495[/C][C]0.3644[/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=154608&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154608&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	0.9096	0.8877	0.7408
p-value	(0)	(0)	(0)
Pageviews;Logins	0.7411	0.839	0.6727
p-value	(0)	(0)	(0)
Pageviews;PR	0.7306	0.6551	0.4969
p-value	(0)	(0)	(0)
Pageviews;Characters	0.6467	0.6018	0.4475
p-value	(0)	(0)	(0)
Time;Logins	0.7141	0.7874	0.6101
p-value	(0)	(0)	(0)
Time;PR	0.7554	0.6508	0.494
p-value	(0)	(0)	(0)
Time;Characters	0.6931	0.6533	0.4984
p-value	(0)	(0)	(0)
Logins;PR	0.5945	0.6044	0.4467
p-value	(0)	(0)	(0)
Logins;Characters	0.5134	0.5747	0.4179
p-value	(0)	(0)	(0)
PR;Characters	0.6546	0.495	0.3644
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