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 computationThu, 22 Dec 2011 08:09:13 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/22/t1324559368wfm2ml1oe0o1xow.htm/, Retrieved Fri, 03 May 2024 04:00:25 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159410, Retrieved Fri, 03 May 2024 04:00:25 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact82
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 18:04:16] [b98453cac15ba1066b407e146608df68]
- RMPD    [Kendall tau Correlation Matrix] [] [2011-12-22 13:09:13] [a23917169fba894c1fbb2182d294ed58] [Current]
Feedback Forum

Post a new message
Dataseries X:
1795	72	96	42	140824	186099
1385	73	75	38	110459	113854
2026	80	70	46	105079	99776
2724	106	134	42	112098	106194
1307	54	69	30	43929	100792
631	        28	8	35	76173	47552
5172	131	169	40	187326	250931
381	        19	1	18	22807	6853
2136	62	87	38	144408	115466
1920	46	92	37	66485	110896
2277	116	97	46	79089	169351
2335	128	120	60	81625	94853
2000	79	57	37	68788	72591
3006	82	139	55	103297	101345
2247	88	87	44	69446	113713
5070	185	176	63	114948	165354
2362	76	114	40	167949	164263
3525	170	121	43	125081	135213
1476	57	103	32	125818	111669
2397	88	135	52	136588	134163
2545	72	123	49	112431	140303
3098	109	91	41	103037	150773
1546	45	74	25	82317	111848
1775	57	103	57	118906	102509
3790	132	158	45	83515	96785
3035	134	113	42	104581	116136
2986	132	100	45	103129	158376
2010	89	117	43	83243	153990
1728	57	62	36	37110	64057
3155	78	142	45	113344	230054
2564	85	137	50	139165	184531
2099	81	50	50	86652	114198
2473	100	141	51	112302	198299
1118	46	46	42	69652	33750
3551	103	141	44	119442	189723
2764	56	83	42	69867	100826
3745	126	112	44	101629	188355
2041	89	79	40	70168	104470
947	        33	33	17	31081	58391
3684	207	149	43	103925	164808
3381	84	126	41	92622	134097
1851	73	80	41	79011	80238
1909	79	84	40	93487	133252
1819	65	68	49	64520	54518
2598	84	50	52	93473	121850
5568	155	101	42	114360	79367
918	        42	20	26	33032	56968
2387	82	101	59	96125	106314
4144	122	150	50	151911	191889
2431	63	115	50	89256	104864
2159	78	98	47	95676	160792
496	        24	8	4	5950	15049
2688	331	88	51	149695	191179
744	        17	21	18	32551	25109
1161	64	30	14	31701	45824
3214	61	97	41	100087	129711
2794	89	149	61	169707	210012
3963	204	132	40	150491	194679
2759	149	161	44	120192	197680
2316	88	89	40	95893	81180
4073	150	160	51	151715	197765
3293	121	139	29	176225	214738
3122	124	104	43	59900	96252
2756	91	99	42	104767	124527
1694	77	63	41	114799	153242
2082	71	163	30	72128	145707
2138	139	93	39	143592	113963
2889	154	85	51	89626	134904
2536	86	150	40	131072	114268
1730	72	143	29	126817	94333
2674	73	107	47	81351	102204
893	        32	22	23	22618	23824
2378	92	85	48	88977	111563
2017	58	86	38	92059	91313
2218	68	131	42	81897	89770
2356	90	140	46	108146	100125
3105	100	152	40	126372	165278
1974	109	81	45	249771	181712
2473	68	136	42	71154	80906
2122	70	102	41	71571	75881
1976	51	69	37	55918	83963
4219	131	161	47	160141	175721
1370	70	30	26	38692	68580
2441	108	120	48	102812	136323
870	        25	49	8	56622	55792
2127	59	63	27	15986	25157
1573	61	76	38	123534	100922
4035	221	85	41	108535	118845
3050	126	146	61	93879	170492
3098	106	165	45	144551	81716
2604	102	89	41	56750	115750
2401	84	168	42	127654	105590
1897	67	48	35	65594	92795
3146	77	149	36	59938	82390
2596	89	75	40	146975	135599
2030	45	103	40	165904	127667
2057	66	114	38	169265	163073
2261	87	165	43	183500	211381
4188	162	155	65	165986	189944
4021	116	165	33	184923	226168
2841	141	121	51	140358	117495
2489	69	156	45	149959	195894
2172	194	79	36	57224	80684
602	        14	13	19	43750	19630
2270	85	89	25	48029	88634
2499	157	111	44	104978	139292
2835	57	129	45	100046	128602
2762	94	169	44	101047	135848
1340	86	28	35	197426	178377
3259	100	118	46	160902	106330
2089	77	82	44	147172	178303
2331	90	148	45	109432	116938
398	        11	12	1	1168	5841
2214	75	146	40	83248	106020
530	        25	23	11	25162	24610
1826	53	83	51	45724	74151
3170	122	163	38	110529	232241
387	        16	4	0	855	        6622
2137	52	81	30	101382	127097
492	        22	18	8	14116	13155
3792	122	118	43	89506	160501




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159410&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159410&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159410&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 time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net







Correlations for all pairs of data series (method=kendall)
PageviewsLoginsBloggedComputationsReviewedCompendiumsCWCharactersCWSeconds
Pageviews10.6050.5730.4090.3850.461
Logins0.60510.4150.3950.3770.447
BloggedComputations0.5730.41510.3740.450.467
ReviewedCompendiums0.4090.3950.37410.3020.348
CWCharacters0.3850.3770.450.30210.584
CWSeconds0.4610.4470.4670.3480.5841

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Pageviews & Logins & BloggedComputations & ReviewedCompendiums & CWCharacters & CWSeconds \tabularnewline
Pageviews & 1 & 0.605 & 0.573 & 0.409 & 0.385 & 0.461 \tabularnewline
Logins & 0.605 & 1 & 0.415 & 0.395 & 0.377 & 0.447 \tabularnewline
BloggedComputations & 0.573 & 0.415 & 1 & 0.374 & 0.45 & 0.467 \tabularnewline
ReviewedCompendiums & 0.409 & 0.395 & 0.374 & 1 & 0.302 & 0.348 \tabularnewline
CWCharacters & 0.385 & 0.377 & 0.45 & 0.302 & 1 & 0.584 \tabularnewline
CWSeconds & 0.461 & 0.447 & 0.467 & 0.348 & 0.584 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159410&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Pageviews[/C][C]Logins[/C][C]BloggedComputations[/C][C]ReviewedCompendiums[/C][C]CWCharacters[/C][C]CWSeconds[/C][/ROW]
[ROW][C]Pageviews[/C][C]1[/C][C]0.605[/C][C]0.573[/C][C]0.409[/C][C]0.385[/C][C]0.461[/C][/ROW]
[ROW][C]Logins[/C][C]0.605[/C][C]1[/C][C]0.415[/C][C]0.395[/C][C]0.377[/C][C]0.447[/C][/ROW]
[ROW][C]BloggedComputations[/C][C]0.573[/C][C]0.415[/C][C]1[/C][C]0.374[/C][C]0.45[/C][C]0.467[/C][/ROW]
[ROW][C]ReviewedCompendiums[/C][C]0.409[/C][C]0.395[/C][C]0.374[/C][C]1[/C][C]0.302[/C][C]0.348[/C][/ROW]
[ROW][C]CWCharacters[/C][C]0.385[/C][C]0.377[/C][C]0.45[/C][C]0.302[/C][C]1[/C][C]0.584[/C][/ROW]
[ROW][C]CWSeconds[/C][C]0.461[/C][C]0.447[/C][C]0.467[/C][C]0.348[/C][C]0.584[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159410&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159410&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)
PageviewsLoginsBloggedComputationsReviewedCompendiumsCWCharactersCWSeconds
Pageviews10.6050.5730.4090.3850.461
Logins0.60510.4150.3950.3770.447
BloggedComputations0.5730.41510.3740.450.467
ReviewedCompendiums0.4090.3950.37410.3020.348
CWCharacters0.3850.3770.450.30210.584
CWSeconds0.4610.4470.4670.3480.5841







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Pageviews;Logins0.70620.78180.6046
p-value(0)(0)(0)
Pageviews;BloggedComputations0.75220.74650.5727
p-value(0)(0)(0)
Pageviews;ReviewedCompendiums0.62560.55710.4088
p-value(0)(0)(0)
Pageviews;CWCharacters0.54050.5210.3852
p-value(0)(0)(0)
Pageviews;CWSeconds0.65350.61880.4607
p-value(0)(0)(0)
Logins;BloggedComputations0.49440.58050.4149
p-value(0)(0)(0)
Logins;ReviewedCompendiums0.52480.54080.3947
p-value(0)(0)(0)
Logins;CWCharacters0.45730.52910.3772
p-value(0)(0)(0)
Logins;CWSeconds0.55240.60920.4472
p-value(0)(0)(0)
BloggedComputations;ReviewedCompendiums0.63070.50320.3738
p-value(0)(0)(0)
BloggedComputations;CWCharacters0.60530.60770.4505
p-value(0)(0)(0)
BloggedComputations;CWSeconds0.6970.62750.4671
p-value(0)(0)(0)
ReviewedCompendiums;CWCharacters0.55170.42230.3021
p-value(0)(0)(0)
ReviewedCompendiums;CWSeconds0.57710.47190.3478
p-value(0)(0)(0)
CWCharacters;CWSeconds0.78240.76630.5843
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;Logins & 0.7062 & 0.7818 & 0.6046 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;BloggedComputations & 0.7522 & 0.7465 & 0.5727 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;ReviewedCompendiums & 0.6256 & 0.5571 & 0.4088 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;CWCharacters & 0.5405 & 0.521 & 0.3852 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;CWSeconds & 0.6535 & 0.6188 & 0.4607 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;BloggedComputations & 0.4944 & 0.5805 & 0.4149 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;ReviewedCompendiums & 0.5248 & 0.5408 & 0.3947 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;CWCharacters & 0.4573 & 0.5291 & 0.3772 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;CWSeconds & 0.5524 & 0.6092 & 0.4472 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BloggedComputations;ReviewedCompendiums & 0.6307 & 0.5032 & 0.3738 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BloggedComputations;CWCharacters & 0.6053 & 0.6077 & 0.4505 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BloggedComputations;CWSeconds & 0.697 & 0.6275 & 0.4671 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
ReviewedCompendiums;CWCharacters & 0.5517 & 0.4223 & 0.3021 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
ReviewedCompendiums;CWSeconds & 0.5771 & 0.4719 & 0.3478 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
CWCharacters;CWSeconds & 0.7824 & 0.7663 & 0.5843 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159410&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;Logins[/C][C]0.7062[/C][C]0.7818[/C][C]0.6046[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;BloggedComputations[/C][C]0.7522[/C][C]0.7465[/C][C]0.5727[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;ReviewedCompendiums[/C][C]0.6256[/C][C]0.5571[/C][C]0.4088[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;CWCharacters[/C][C]0.5405[/C][C]0.521[/C][C]0.3852[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;CWSeconds[/C][C]0.6535[/C][C]0.6188[/C][C]0.4607[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;BloggedComputations[/C][C]0.4944[/C][C]0.5805[/C][C]0.4149[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;ReviewedCompendiums[/C][C]0.5248[/C][C]0.5408[/C][C]0.3947[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;CWCharacters[/C][C]0.4573[/C][C]0.5291[/C][C]0.3772[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;CWSeconds[/C][C]0.5524[/C][C]0.6092[/C][C]0.4472[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BloggedComputations;ReviewedCompendiums[/C][C]0.6307[/C][C]0.5032[/C][C]0.3738[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BloggedComputations;CWCharacters[/C][C]0.6053[/C][C]0.6077[/C][C]0.4505[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BloggedComputations;CWSeconds[/C][C]0.697[/C][C]0.6275[/C][C]0.4671[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]ReviewedCompendiums;CWCharacters[/C][C]0.5517[/C][C]0.4223[/C][C]0.3021[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]ReviewedCompendiums;CWSeconds[/C][C]0.5771[/C][C]0.4719[/C][C]0.3478[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]CWCharacters;CWSeconds[/C][C]0.7824[/C][C]0.7663[/C][C]0.5843[/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=159410&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159410&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
Pageviews;Logins0.70620.78180.6046
p-value(0)(0)(0)
Pageviews;BloggedComputations0.75220.74650.5727
p-value(0)(0)(0)
Pageviews;ReviewedCompendiums0.62560.55710.4088
p-value(0)(0)(0)
Pageviews;CWCharacters0.54050.5210.3852
p-value(0)(0)(0)
Pageviews;CWSeconds0.65350.61880.4607
p-value(0)(0)(0)
Logins;BloggedComputations0.49440.58050.4149
p-value(0)(0)(0)
Logins;ReviewedCompendiums0.52480.54080.3947
p-value(0)(0)(0)
Logins;CWCharacters0.45730.52910.3772
p-value(0)(0)(0)
Logins;CWSeconds0.55240.60920.4472
p-value(0)(0)(0)
BloggedComputations;ReviewedCompendiums0.63070.50320.3738
p-value(0)(0)(0)
BloggedComputations;CWCharacters0.60530.60770.4505
p-value(0)(0)(0)
BloggedComputations;CWSeconds0.6970.62750.4671
p-value(0)(0)(0)
ReviewedCompendiums;CWCharacters0.55170.42230.3021
p-value(0)(0)(0)
ReviewedCompendiums;CWSeconds0.57710.47190.3478
p-value(0)(0)(0)
CWCharacters;CWSeconds0.78240.76630.5843
p-value(0)(0)(0)



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