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, 15 Dec 2011 16:03:35 -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/15/t1323983056it8m3bxk3shtxay.htm/, Retrieved Wed, 08 May 2024 13:43:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=155714, Retrieved Wed, 08 May 2024 13:43:54 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact75
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [pearson] [2011-12-15 21:03:35] [685fae5a377cc1dc51f9f02306b751ce] [Current]
Feedback Forum

Post a new message
Dataseries X:
1407	118540	74	440	15	18158
1072	127145	44	306	16	30461
192	7215	18	72	0	1423
2032	112861	84	584	22	25629
3032	197581	120	1013	25	48758
5519	377410	209	1506	26	129230
1321	117604	49	442	19	27376
1034	120102	44	274	25	26706
1388	96175	36	382	25	26505
2552	253517	85	812	26	49801
1735	108994	65	546	20	46580
1788	156212	58	551	25	48352
1292	68810	84	477	15	13899
2362	149246	83	799	21	39342
1150	125503	42	330	12	27465
1374	125769	67	419	19	55211
1503	123467	49	364	28	74098
965	56088	45	277	12	13497
2164	108128	73	658	28	38338
633	22762	20	188	13	52505
837	48554	48	286	14	10663
1991	159102	78	575	23	74484
1450	139108	57	514	25	28895
1765	92058	43	525	30	32827
1612	126311	69	516	17	36188
1173	113807	21	426	17	28173
1602	133994	132	509	21	54926
1046	131810	71	248	24	38900
2176	279065	96	724	22	88530
1767	158146	35	733	16	35482
1167	107352	36	374	23	26730
1394	149827	37	471	18	29806
1733	90912	83	549	11	41799
2374	169510	96	721	20	54289
1852	162204	40	596	20	36805
1	0	1	0	0	0
1677	163310	53	778	24	33146
1505	92342	46	464	14	23333
1813	98357	40	417	29	47686
1648	178277	49	607	31	77783
1560	134927	53	495	15	36042
1301	104577	46	489	30	34541
784	81614	23	281	20	75620
1580	119111	60	603	20	60610
896	83923	39	278	18	55041
959	109885	71	246	19	32087
567	52851	24	162	28	16356
1519	153621	73	525	18	40161
1625	152572	74	506	26	55459
1817	114073	44	677	23	36679
658	48188	28	205	22	22346
1187	90994	52	306	19	27377
1863	215588	61	680	20	50273
1559	176489	64	533	25	32104
1340	138871	46	487	27	27016
1342	104416	44	418	10	19715
1505	156186	54	401	26	33629
669	60368	16	189	21	27084
814	95391	53	275	19	32352
2189	126048	65	738	32	51845
1291	96388	44	369	28	26591
1378	77353	58	490	16	29677
978	79872	41	298	16	54237
823	79772	27	259	20	20284
789	96945	22	268	20	22741
1134	88300	34	364	24	34178
1875	126203	59	426	31	69551
2289	110681	56	689	21	29653
817	81299	29	208	21	38071
340	31970	15	101	21	4157
2354	185321	101	809	15	28321
992	87611	51	293	9	40195
976	73021	50	327	21	48158
1357	82167	56	405	18	13310
1958	101152	42	508	27	78474
933	49164	29	248	24	6386
1600	105181	48	424	22	31588
1821	105922	71	628	21	61254
816	60138	23	253	21	21152
1121	73422	66	366	26	41272
800	67727	54	190	22	34165
1446	188098	45	515	22	37054
750	51185	23	221	20	12368
1171	84448	28	404	21	23168
662	41956	35	219	19	16380
1284	110827	40	377	19	41242
1980	167055	175	427	25	48259
879	63603	78	209	19	20790
869	64995	42	276	21	34585
1000	93424	36	382	18	35672
1240	97229	32	446	23	52168
1771	112819	60	521	18	53933
917	106460	49	295	19	34474
1042	102220	50	382	12	43753
629	38721	30	253	9	36456
1770	168764	85	569	26	51183
1454	151588	46	441	21	52742
222	19349	11	67	1	3895
1529	125440	77	504	24	37076
1303	101954	48	523	18	24079
552	43803	24	240	4	2325
708	47062	19	219	15	29354
998	104220	43	329	19	30341
872	85939	50	217	20	18992
584	58660	35	136	12	15292
596	27676	22	194	16	5842
926	93448	31	209	21	28918
576	43284	22	151	9	3738
0	0	0	0	0	0
868	64333	23	237	21	95352
736	57050	46	236	17	37478
998	96933	34	323	18	26839
915	70088	46	296	21	26783
782	65494	55	267	17	33392
78	3616	5	14	0	0
0	0	0	0	0	0
782	135104	33	261	19	25446
1159	95554	60	391	26	60038
1646	120307	77	469	25	28162
749	84336	32	243	20	33298
778	43410	19	292	1	2781
1335	131452	55	400	21	37121
806	79015	33	217	14	22698
1390	88043	40	392	24	27615
680	57578	36	160	12	32689
285	19764	12	75	2	5752
1335	105757	41	412	16	23164
840	96410	22	293	22	20304
1230	105056	30	401	28	34409
256	11796	9	79	2	0
80	7627	8	25	0	0
1162	117413	47	412	17	92538
41	6836	3	11	1	0
1540	131955	37	539	17	46037
42	5118	3	6	0	0
528	40248	16	183	4	5444
0	0	0	0	0	0
799	77813	38	281	21	23924
1086	67140	28	196	24	52230
81	7131	4	27	0	0
61	4194	11	14	0	0
849	60378	20	240	15	8019
970	96971	40	233	18	34542
964	83484	16	347	19	21157




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

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







Correlations for all pairs of data series (method=pearson)
timepageviewsloginscompendiumviewsreviewedcompendiumsnumberofcaracters
time10.8790.8260.9620.6090.68
pageviews0.87910.7620.8750.6090.685
logins0.8260.76210.7660.4840.586
compendiumviews0.9620.8750.76610.5710.634
reviewedcompendiums0.6090.6090.4840.57110.591
numberofcaracters0.680.6850.5860.6340.5911

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & time & pageviews & logins & compendiumviews & reviewedcompendiums & numberofcaracters \tabularnewline
time & 1 & 0.879 & 0.826 & 0.962 & 0.609 & 0.68 \tabularnewline
pageviews & 0.879 & 1 & 0.762 & 0.875 & 0.609 & 0.685 \tabularnewline
logins & 0.826 & 0.762 & 1 & 0.766 & 0.484 & 0.586 \tabularnewline
compendiumviews & 0.962 & 0.875 & 0.766 & 1 & 0.571 & 0.634 \tabularnewline
reviewedcompendiums & 0.609 & 0.609 & 0.484 & 0.571 & 1 & 0.591 \tabularnewline
numberofcaracters & 0.68 & 0.685 & 0.586 & 0.634 & 0.591 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=155714&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]time[/C][C]pageviews[/C][C]logins[/C][C]compendiumviews[/C][C]reviewedcompendiums[/C][C]numberofcaracters[/C][/ROW]
[ROW][C]time[/C][C]1[/C][C]0.879[/C][C]0.826[/C][C]0.962[/C][C]0.609[/C][C]0.68[/C][/ROW]
[ROW][C]pageviews[/C][C]0.879[/C][C]1[/C][C]0.762[/C][C]0.875[/C][C]0.609[/C][C]0.685[/C][/ROW]
[ROW][C]logins[/C][C]0.826[/C][C]0.762[/C][C]1[/C][C]0.766[/C][C]0.484[/C][C]0.586[/C][/ROW]
[ROW][C]compendiumviews[/C][C]0.962[/C][C]0.875[/C][C]0.766[/C][C]1[/C][C]0.571[/C][C]0.634[/C][/ROW]
[ROW][C]reviewedcompendiums[/C][C]0.609[/C][C]0.609[/C][C]0.484[/C][C]0.571[/C][C]1[/C][C]0.591[/C][/ROW]
[ROW][C]numberofcaracters[/C][C]0.68[/C][C]0.685[/C][C]0.586[/C][C]0.634[/C][C]0.591[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=155714&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155714&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)
timepageviewsloginscompendiumviewsreviewedcompendiumsnumberofcaracters
time10.8790.8260.9620.6090.68
pageviews0.87910.7620.8750.6090.685
logins0.8260.76210.7660.4840.586
compendiumviews0.9620.8750.76610.5710.634
reviewedcompendiums0.6090.6090.4840.57110.591
numberofcaracters0.680.6850.5860.6340.5911







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
time;pageviews0.87850.8610.6935
p-value(0)(0)(0)
time;logins0.82630.78690.6132
p-value(0)(0)(0)
time;compendiumviews0.96240.9530.8258
p-value(0)(0)(0)
time;reviewedcompendiums0.60860.57240.42
p-value(0)(0)(0)
time;numberofcaracters0.68010.64870.4847
p-value(0)(0)(0)
pageviews;logins0.76150.72170.5541
p-value(0)(0)(0)
pageviews;compendiumviews0.8750.84660.6735
p-value(0)(0)(0)
pageviews;reviewedcompendiums0.60860.53660.3933
p-value(0)(0)(0)
pageviews;numberofcaracters0.68460.63710.4782
p-value(0)(0)(0)
logins;compendiumviews0.76570.74940.5776
p-value(0)(0)(0)
logins;reviewedcompendiums0.48360.44330.3206
p-value(0)(0)(0)
logins;numberofcaracters0.58620.59260.4416
p-value(0)(0)(0)
compendiumviews;reviewedcompendiums0.57110.49330.3549
p-value(0)(0)(0)
compendiumviews;numberofcaracters0.63430.61060.4504
p-value(0)(0)(0)
reviewedcompendiums;numberofcaracters0.59090.51620.3814
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
time;pageviews & 0.8785 & 0.861 & 0.6935 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;logins & 0.8263 & 0.7869 & 0.6132 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;compendiumviews & 0.9624 & 0.953 & 0.8258 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;reviewedcompendiums & 0.6086 & 0.5724 & 0.42 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;numberofcaracters & 0.6801 & 0.6487 & 0.4847 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;logins & 0.7615 & 0.7217 & 0.5541 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;compendiumviews & 0.875 & 0.8466 & 0.6735 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;reviewedcompendiums & 0.6086 & 0.5366 & 0.3933 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;numberofcaracters & 0.6846 & 0.6371 & 0.4782 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;compendiumviews & 0.7657 & 0.7494 & 0.5776 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;reviewedcompendiums & 0.4836 & 0.4433 & 0.3206 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;numberofcaracters & 0.5862 & 0.5926 & 0.4416 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
compendiumviews;reviewedcompendiums & 0.5711 & 0.4933 & 0.3549 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
compendiumviews;numberofcaracters & 0.6343 & 0.6106 & 0.4504 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
reviewedcompendiums;numberofcaracters & 0.5909 & 0.5162 & 0.3814 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=155714&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]time;pageviews[/C][C]0.8785[/C][C]0.861[/C][C]0.6935[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;logins[/C][C]0.8263[/C][C]0.7869[/C][C]0.6132[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;compendiumviews[/C][C]0.9624[/C][C]0.953[/C][C]0.8258[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;reviewedcompendiums[/C][C]0.6086[/C][C]0.5724[/C][C]0.42[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;numberofcaracters[/C][C]0.6801[/C][C]0.6487[/C][C]0.4847[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;logins[/C][C]0.7615[/C][C]0.7217[/C][C]0.5541[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;compendiumviews[/C][C]0.875[/C][C]0.8466[/C][C]0.6735[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;reviewedcompendiums[/C][C]0.6086[/C][C]0.5366[/C][C]0.3933[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;numberofcaracters[/C][C]0.6846[/C][C]0.6371[/C][C]0.4782[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;compendiumviews[/C][C]0.7657[/C][C]0.7494[/C][C]0.5776[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;reviewedcompendiums[/C][C]0.4836[/C][C]0.4433[/C][C]0.3206[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;numberofcaracters[/C][C]0.5862[/C][C]0.5926[/C][C]0.4416[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]compendiumviews;reviewedcompendiums[/C][C]0.5711[/C][C]0.4933[/C][C]0.3549[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]compendiumviews;numberofcaracters[/C][C]0.6343[/C][C]0.6106[/C][C]0.4504[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]reviewedcompendiums;numberofcaracters[/C][C]0.5909[/C][C]0.5162[/C][C]0.3814[/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=155714&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155714&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
time;pageviews0.87850.8610.6935
p-value(0)(0)(0)
time;logins0.82630.78690.6132
p-value(0)(0)(0)
time;compendiumviews0.96240.9530.8258
p-value(0)(0)(0)
time;reviewedcompendiums0.60860.57240.42
p-value(0)(0)(0)
time;numberofcaracters0.68010.64870.4847
p-value(0)(0)(0)
pageviews;logins0.76150.72170.5541
p-value(0)(0)(0)
pageviews;compendiumviews0.8750.84660.6735
p-value(0)(0)(0)
pageviews;reviewedcompendiums0.60860.53660.3933
p-value(0)(0)(0)
pageviews;numberofcaracters0.68460.63710.4782
p-value(0)(0)(0)
logins;compendiumviews0.76570.74940.5776
p-value(0)(0)(0)
logins;reviewedcompendiums0.48360.44330.3206
p-value(0)(0)(0)
logins;numberofcaracters0.58620.59260.4416
p-value(0)(0)(0)
compendiumviews;reviewedcompendiums0.57110.49330.3549
p-value(0)(0)(0)
compendiumviews;numberofcaracters0.63430.61060.4504
p-value(0)(0)(0)
reviewedcompendiums;numberofcaracters0.59090.51620.3814
p-value(0)(0)(0)



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