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 computationMon, 12 Dec 2011 06:56:56 -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/12/t1323691040ab20pxce947i9oe.htm/, Retrieved Fri, 03 May 2024 04:27:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=153923, Retrieved Fri, 03 May 2024 04:27:14 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact130
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-12 11:25:28] [77e355412ccdb651b3c7eae41c3da865]
-    D      [Kendall tau Correlation Matrix] [] [2011-12-12 11:56:56] [2be7aedefc35278abdba659ba29c8de8] [Current]
-   P         [Kendall tau Correlation Matrix] [] [2011-12-12 11:59:16] [77e355412ccdb651b3c7eae41c3da865]
-               [Kendall tau Correlation Matrix] [] [2011-12-12 14:25:21] [aefb5c2d4042694c5b6b82f93ac1885a]
-             [Kendall tau Correlation Matrix] [] [2011-12-12 14:23:40] [aefb5c2d4042694c5b6b82f93ac1885a]
Feedback Forum

Post a new message
Dataseries X:
2	210907	79	30	94	112285
4	179321	108	30	103	101193
0	149061	43	26	93	116174
0	237213	78	38	123	66198
-4	173326	86	44	148	71701
4	133131	44	30	90	57793
4	258873	104	40	124	80444
0	324799	158	47	168	97668
-1	230964	102	30	115	133824
0	236785	77	31	71	101481
1	344297	80	30	108	67654
0	174724	123	34	120	69112
3	174415	73	31	114	82753
-1	223632	105	33	120	72654
4	294424	107	33	124	101494
3	325107	84	36	126	79215
1	106408	33	14	37	31081
0	96560	42	17	38	22996
-2	265769	96	32	120	83122
-3	269651	106	30	93	70106
-4	149112	56	35	95	60578
2	152871	59	28	90	79892
2	362301	76	34	110	100708
-4	183167	91	39	138	82875
3	277965	115	39	133	139077
2	218946	76	29	96	80670
2	244052	101	44	164	143558
0	341570	94	21	78	117105
5	233328	92	28	102	120733
-2	206161	75	28	99	73107
0	311473	128	38	129	132068
-2	207176	56	32	114	87011
-3	196553	41	29	99	95260
2	143246	67	27	104	106671
2	182192	77	40	138	70054
2	194979	66	40	151	74011
0	167488	69	28	72	83737
4	143756	105	34	120	69094
4	275541	116	33	115	93133
2	152299	62	33	98	61370
2	193339	100	35	71	84651
-4	130585	67	29	107	95364
3	112611	46	20	73	26706
3	148446	135	37	129	126846
2	182079	124	33	118	102860
-1	243060	58	29	104	111813
-3	162765	68	28	107	120293
0	85574	37	21	36	24266
1	225060	93	41	139	109825
-3	133328	56	20	56	40909
3	100750	83	30	93	140867
0	101523	59	22	87	61056
0	243511	133	42	110	101338
0	152474	106	32	83	65567
3	132487	71	36	98	40735
-3	317394	116	31	82	91413
0	244749	98	33	115	76643
-4	184510	64	40	140	110681
2	128423	32	38	120	92696
-1	97839	25	24	66	94785
3	172494	46	43	139	86687
2	229242	63	31	119	91721
5	351619	95	40	141	115168
2	324598	113	37	133	135777
-2	195838	111	31	98	102372
0	254488	120	39	117	103772
3	199476	87	32	105	135400
-2	92499	25	18	55	21399
0	224330	131	39	132	130115
6	181633	47	30	73	64466
-3	271856	109	37	86	54990
3	95227	37	32	48	34777
0	98146	15	17	48	27114
-2	118612	54	12	43	30080
1	65475	16	13	46	69008
0	108446	22	17	65	46300
2	121848	37	17	52	30594
2	76302	29	20	68	30976
-3	98104	55	17	47	25568
-2	30989	5	17	41	4154
1	31774	0	17	47	4143
-4	150580	27	22	71	45588
0	54157	37	15	30	18625
1	59382	29	12	24	26263
0	84105	17	17	63	20055




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

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







Correlations for all pairs of data series (method=pearson)
SCOREtime_in_rfcblogged_computationscompendiums_reviewedfeedback_messages_p120totsize
SCORE10.1110.1110.1560.1430.171
time_in_rfc0.11110.7230.6350.6540.632
blogged_computations0.1110.72310.7060.680.656
compendiums_reviewed0.1560.6350.70610.8970.635
feedback_messages_p1200.1430.6540.680.89710.706
totsize0.1710.6320.6560.6350.7061

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & SCORE & time_in_rfc & blogged_computations & compendiums_reviewed & feedback_messages_p120 & totsize \tabularnewline
SCORE & 1 & 0.111 & 0.111 & 0.156 & 0.143 & 0.171 \tabularnewline
time_in_rfc & 0.111 & 1 & 0.723 & 0.635 & 0.654 & 0.632 \tabularnewline
blogged_computations & 0.111 & 0.723 & 1 & 0.706 & 0.68 & 0.656 \tabularnewline
compendiums_reviewed & 0.156 & 0.635 & 0.706 & 1 & 0.897 & 0.635 \tabularnewline
feedback_messages_p120 & 0.143 & 0.654 & 0.68 & 0.897 & 1 & 0.706 \tabularnewline
totsize & 0.171 & 0.632 & 0.656 & 0.635 & 0.706 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153923&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]SCORE[/C][C]time_in_rfc[/C][C]blogged_computations[/C][C]compendiums_reviewed[/C][C]feedback_messages_p120[/C][C]totsize[/C][/ROW]
[ROW][C]SCORE[/C][C]1[/C][C]0.111[/C][C]0.111[/C][C]0.156[/C][C]0.143[/C][C]0.171[/C][/ROW]
[ROW][C]time_in_rfc[/C][C]0.111[/C][C]1[/C][C]0.723[/C][C]0.635[/C][C]0.654[/C][C]0.632[/C][/ROW]
[ROW][C]blogged_computations[/C][C]0.111[/C][C]0.723[/C][C]1[/C][C]0.706[/C][C]0.68[/C][C]0.656[/C][/ROW]
[ROW][C]compendiums_reviewed[/C][C]0.156[/C][C]0.635[/C][C]0.706[/C][C]1[/C][C]0.897[/C][C]0.635[/C][/ROW]
[ROW][C]feedback_messages_p120[/C][C]0.143[/C][C]0.654[/C][C]0.68[/C][C]0.897[/C][C]1[/C][C]0.706[/C][/ROW]
[ROW][C]totsize[/C][C]0.171[/C][C]0.632[/C][C]0.656[/C][C]0.635[/C][C]0.706[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=153923&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153923&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)
SCOREtime_in_rfcblogged_computationscompendiums_reviewedfeedback_messages_p120totsize
SCORE10.1110.1110.1560.1430.171
time_in_rfc0.11110.7230.6350.6540.632
blogged_computations0.1110.72310.7060.680.656
compendiums_reviewed0.1560.6350.70610.8970.635
feedback_messages_p1200.1430.6540.680.89710.706
totsize0.1710.6320.6560.6350.7061







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
SCORE;time_in_rfc0.11080.08340.062
p-value(0.3129)(0.4478)(0.4262)
SCORE;blogged_computations0.11080.12640.0946
p-value(0.3125)(0.2492)(0.2258)
SCORE;compendiums_reviewed0.15610.19050.1253
p-value(0.1538)(0.0808)(0.1143)
SCORE;feedback_messages_p1200.14310.18380.1271
p-value(0.1914)(0.0922)(0.1046)
SCORE;totsize0.17110.16580.1195
p-value(0.1175)(0.1294)(0.1251)
time_in_rfc;blogged_computations0.72320.74880.5631
p-value(0)(0)(0)
time_in_rfc;compendiums_reviewed0.63520.62930.453
p-value(0)(0)(0)
time_in_rfc;feedback_messages_p1200.65360.65970.4831
p-value(0)(0)(0)
time_in_rfc;totsize0.6320.62390.4689
p-value(0)(0)(0)
blogged_computations;compendiums_reviewed0.70610.67750.5078
p-value(0)(0)(0)
blogged_computations;feedback_messages_p1200.67960.64920.4669
p-value(0)(0)(0)
blogged_computations;totsize0.65640.62220.4407
p-value(0)(0)(0)
compendiums_reviewed;feedback_messages_p1200.89670.86850.7242
p-value(0)(0)(0)
compendiums_reviewed;totsize0.63460.50810.3473
p-value(0)(0)(0)
feedback_messages_p120;totsize0.70620.63480.4533
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
SCORE;time_in_rfc & 0.1108 & 0.0834 & 0.062 \tabularnewline
p-value & (0.3129) & (0.4478) & (0.4262) \tabularnewline
SCORE;blogged_computations & 0.1108 & 0.1264 & 0.0946 \tabularnewline
p-value & (0.3125) & (0.2492) & (0.2258) \tabularnewline
SCORE;compendiums_reviewed & 0.1561 & 0.1905 & 0.1253 \tabularnewline
p-value & (0.1538) & (0.0808) & (0.1143) \tabularnewline
SCORE;feedback_messages_p120 & 0.1431 & 0.1838 & 0.1271 \tabularnewline
p-value & (0.1914) & (0.0922) & (0.1046) \tabularnewline
SCORE;totsize & 0.1711 & 0.1658 & 0.1195 \tabularnewline
p-value & (0.1175) & (0.1294) & (0.1251) \tabularnewline
time_in_rfc;blogged_computations & 0.7232 & 0.7488 & 0.5631 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;compendiums_reviewed & 0.6352 & 0.6293 & 0.453 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;feedback_messages_p120 & 0.6536 & 0.6597 & 0.4831 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;totsize & 0.632 & 0.6239 & 0.4689 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogged_computations;compendiums_reviewed & 0.7061 & 0.6775 & 0.5078 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogged_computations;feedback_messages_p120 & 0.6796 & 0.6492 & 0.4669 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogged_computations;totsize & 0.6564 & 0.6222 & 0.4407 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
compendiums_reviewed;feedback_messages_p120 & 0.8967 & 0.8685 & 0.7242 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
compendiums_reviewed;totsize & 0.6346 & 0.5081 & 0.3473 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
feedback_messages_p120;totsize & 0.7062 & 0.6348 & 0.4533 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153923&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]SCORE;time_in_rfc[/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]SCORE;blogged_computations[/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]SCORE;compendiums_reviewed[/C][C]0.1561[/C][C]0.1905[/C][C]0.1253[/C][/ROW]
[ROW][C]p-value[/C][C](0.1538)[/C][C](0.0808)[/C][C](0.1143)[/C][/ROW]
[ROW][C]SCORE;feedback_messages_p120[/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]SCORE;totsize[/C][C]0.1711[/C][C]0.1658[/C][C]0.1195[/C][/ROW]
[ROW][C]p-value[/C][C](0.1175)[/C][C](0.1294)[/C][C](0.1251)[/C][/ROW]
[ROW][C]time_in_rfc;blogged_computations[/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;compendiums_reviewed[/C][C]0.6352[/C][C]0.6293[/C][C]0.453[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;feedback_messages_p120[/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;totsize[/C][C]0.632[/C][C]0.6239[/C][C]0.4689[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogged_computations;compendiums_reviewed[/C][C]0.7061[/C][C]0.6775[/C][C]0.5078[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogged_computations;feedback_messages_p120[/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_computations;totsize[/C][C]0.6564[/C][C]0.6222[/C][C]0.4407[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]compendiums_reviewed;feedback_messages_p120[/C][C]0.8967[/C][C]0.8685[/C][C]0.7242[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]compendiums_reviewed;totsize[/C][C]0.6346[/C][C]0.5081[/C][C]0.3473[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]feedback_messages_p120;totsize[/C][C]0.7062[/C][C]0.6348[/C][C]0.4533[/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=153923&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153923&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
SCORE;time_in_rfc0.11080.08340.062
p-value(0.3129)(0.4478)(0.4262)
SCORE;blogged_computations0.11080.12640.0946
p-value(0.3125)(0.2492)(0.2258)
SCORE;compendiums_reviewed0.15610.19050.1253
p-value(0.1538)(0.0808)(0.1143)
SCORE;feedback_messages_p1200.14310.18380.1271
p-value(0.1914)(0.0922)(0.1046)
SCORE;totsize0.17110.16580.1195
p-value(0.1175)(0.1294)(0.1251)
time_in_rfc;blogged_computations0.72320.74880.5631
p-value(0)(0)(0)
time_in_rfc;compendiums_reviewed0.63520.62930.453
p-value(0)(0)(0)
time_in_rfc;feedback_messages_p1200.65360.65970.4831
p-value(0)(0)(0)
time_in_rfc;totsize0.6320.62390.4689
p-value(0)(0)(0)
blogged_computations;compendiums_reviewed0.70610.67750.5078
p-value(0)(0)(0)
blogged_computations;feedback_messages_p1200.67960.64920.4669
p-value(0)(0)(0)
blogged_computations;totsize0.65640.62220.4407
p-value(0)(0)(0)
compendiums_reviewed;feedback_messages_p1200.89670.86850.7242
p-value(0)(0)(0)
compendiums_reviewed;totsize0.63460.50810.3473
p-value(0)(0)(0)
feedback_messages_p120;totsize0.70620.63480.4533
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')