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 computationFri, 09 Dec 2011 13:02:48 -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/09/t1323453795qfxsfg4f9glu7nw.htm/, Retrieved Thu, 02 May 2024 09:24:25 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=153420, Retrieved Thu, 02 May 2024 09:24:25 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact88
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] [Workshop 10 Kenda...] [2011-12-09 18:02:48] [5c44e6aad476a1bab98fc6774eca4c08] [Current]
- R  D      [Kendall tau Correlation Matrix] [Workshop 10 Kenda...] [2011-12-09 18:06:47] [de8512d9b386046939a89973b76869e3]
-  MP         [Kendall tau Correlation Matrix] [Paper SHW Kendall...] [2011-12-16 14:34:50] [74be16979710d4c4e7c6647856088456]
- RM D      [Multiple Regression] [Workshop 10 MLR] [2011-12-09 18:14:48] [de8512d9b386046939a89973b76869e3]
- R  D        [Multiple Regression] [Workshop 10 MLR] [2011-12-09 18:19:17] [de8512d9b386046939a89973b76869e3]
-  MP           [Multiple Regression] [Paper SHW MLR] [2011-12-16 14:36:08] [74be16979710d4c4e7c6647856088456]
-   PD          [Multiple Regression] [] [2011-12-17 14:41:46] [1dc3906a3b5a6ec06dc921f387100c9e]
-   PD            [Multiple Regression] [] [2011-12-17 16:19:05] [1dc3906a3b5a6ec06dc921f387100c9e]
Feedback Forum

Post a new message
Dataseries X:
2242	80	30	108	67654	127766
2352	81	31	94	85323	130767
1179	39	28	80	49810	46341
1831	91	39	138	82875	93176
1496	67	27	104	106671	71180
1904	118	33	106	129838	168237
2833	129	41	144	105547	170875
1418	79	30	94	112285	146283
1439	69	25	60	57635	85584
1764	78	38	123	66198	143983
1706	102	30	115	133824	136368
2152	77	31	71	101481	112642
1929	101	36	117	99052	121527
2515	123	34	120	69112	85646
2147	73	31	114	82753	98579
1638	105	33	120	72654	131741
1222	47	25	81	30727	53907
2452	107	33	124	101494	171975
2527	96	32	120	83122	136815
1324	56	35	95	60578	69107
1383	59	28	90	79892	108016
4308	76	34	110	100708	79336
2144	101	44	164	143558	160604
1973	123	35	124	105195	174141
1226	41	29	99	95260	129847
1833	114	28	91	92945	85298
1403	69	28	72	83737	82981
1425	105	34	120	69094	73815
1840	88	28	105	95536	132190
1420	62	33	98	61370	67808
2970	118	38	111	106117	131722
1644	100	35	71	84651	106175
2547	135	37	129	126846	72413
1964	58	29	104	111813	120336
1381	68	28	107	120293	93913
1659	131	31	90	161647	181248
1559	81	31	63	87771	115338
1281	83	30	93	140867	68370
1944	133	42	110	101338	103950
1605	106	32	83	65567	84396
1386	71	36	98	40735	55515
2395	116	31	82	91413	209056
2699	98	33	115	76643	142775
2158	100	43	152	93815	132432
2922	136	45	160	213688	214921
2186	63	31	119	91721	78876
3261	113	37	133	135777	122037
1587	47	30	83	51513	53782
1900	131	39	132	130115	139296
1645	47	30	73	64466	89455
2429	109	37	86	54990	147866
3201	121	25	91	119182	195663
1583	43	26	93	116174	95757
1373	44	30	90	57793	59238
1579	44	42	122	74007	82036
2352	76	29	96	80670	102996
3004	57	29	107	89691	105805
1468	33	25	73	51715	71299
2888	110	52	197	115929	146123
1204	32	38	120	92696	20112
1111	46	43	139	86687	112494
2035	41	21	78	37238	10901
2312	120	39	117	103772	120691
4041	158	47	168	97668	151511
1677	94	35	133	117478	146761
2662	84	36	126	79215	159676
865	33	14	37	31081	58391
2253	79	39	140	115762	155135
893	22	23	67	22618	23824
1654	24	24	69	15986	25157
1054	67	29	107	95364	76669
1626	124	33	118	102860	96971
2445	98	32	119	55801	77494
1982	93	41	139	109825	102255
874	28	23	69	192565	153197
391	12	1	0	1168	5841
1138	25	24	66	94785	61023
1424	92	35	116	74163	127748
872	37	32	48	34777	14336
1530	60	38	93	83123	86146
1641	111	31	98	102372	112283




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153420&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)
PageviewsBlogged_compReviewed_compFb_messagesComp_SizeComp_Time
Pageviews10.4750.3290.3830.2310.413
Blogged_comp0.47510.4340.4040.3740.475
Reviewed_comp0.3290.43410.6140.2050.297
Fb_messages0.3830.4040.61410.3170.341
Comp_Size0.2310.3740.2050.31710.438
Comp_Time0.4130.4750.2970.3410.4381

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Pageviews & Blogged_comp & Reviewed_comp & Fb_messages & Comp_Size & Comp_Time \tabularnewline
Pageviews & 1 & 0.475 & 0.329 & 0.383 & 0.231 & 0.413 \tabularnewline
Blogged_comp & 0.475 & 1 & 0.434 & 0.404 & 0.374 & 0.475 \tabularnewline
Reviewed_comp & 0.329 & 0.434 & 1 & 0.614 & 0.205 & 0.297 \tabularnewline
Fb_messages & 0.383 & 0.404 & 0.614 & 1 & 0.317 & 0.341 \tabularnewline
Comp_Size & 0.231 & 0.374 & 0.205 & 0.317 & 1 & 0.438 \tabularnewline
Comp_Time & 0.413 & 0.475 & 0.297 & 0.341 & 0.438 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153420&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Pageviews[/C][C]Blogged_comp[/C][C]Reviewed_comp[/C][C]Fb_messages[/C][C]Comp_Size[/C][C]Comp_Time[/C][/ROW]
[ROW][C]Pageviews[/C][C]1[/C][C]0.475[/C][C]0.329[/C][C]0.383[/C][C]0.231[/C][C]0.413[/C][/ROW]
[ROW][C]Blogged_comp[/C][C]0.475[/C][C]1[/C][C]0.434[/C][C]0.404[/C][C]0.374[/C][C]0.475[/C][/ROW]
[ROW][C]Reviewed_comp[/C][C]0.329[/C][C]0.434[/C][C]1[/C][C]0.614[/C][C]0.205[/C][C]0.297[/C][/ROW]
[ROW][C]Fb_messages[/C][C]0.383[/C][C]0.404[/C][C]0.614[/C][C]1[/C][C]0.317[/C][C]0.341[/C][/ROW]
[ROW][C]Comp_Size[/C][C]0.231[/C][C]0.374[/C][C]0.205[/C][C]0.317[/C][C]1[/C][C]0.438[/C][/ROW]
[ROW][C]Comp_Time[/C][C]0.413[/C][C]0.475[/C][C]0.297[/C][C]0.341[/C][C]0.438[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=153420&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153420&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)
PageviewsBlogged_compReviewed_compFb_messagesComp_SizeComp_Time
Pageviews10.4750.3290.3830.2310.413
Blogged_comp0.47510.4340.4040.3740.475
Reviewed_comp0.3290.43410.6140.2050.297
Fb_messages0.3830.4040.61410.3170.341
Comp_Size0.2310.3740.2050.31710.438
Comp_Time0.4130.4750.2970.3410.4381







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Pageviews;Blogged_comp0.6160.6540.4752
p-value(0)(0)(0)
Pageviews;Reviewed_comp0.48620.44080.3287
p-value(0)(0)(0)
Pageviews;Fb_messages0.56610.5330.3827
p-value(0)(0)(0)
Pageviews;Comp_Size0.32650.33690.2306
p-value(0.0029)(0.0021)(0.0023)
Pageviews;Comp_Time0.50430.56520.4133
p-value(0)(0)(0)
Blogged_comp;Reviewed_comp0.58570.56760.4336
p-value(0)(0)(0)
Blogged_comp;Fb_messages0.5920.54360.4037
p-value(0)(0)(0)
Blogged_comp;Comp_Size0.50610.51460.3739
p-value(0)(0)(0)
Blogged_comp;Comp_Time0.66470.63710.4748
p-value(0)(0)(0)
Reviewed_comp;Fb_messages0.84780.77460.6137
p-value(0)(0)(0)
Reviewed_comp;Comp_Size0.41630.28850.2053
p-value(1e-04)(0.009)(0.0078)
Reviewed_comp;Comp_Time0.45270.40760.2974
p-value(0)(2e-04)(1e-04)
Fb_messages;Comp_Size0.50560.44960.3172
p-value(0)(0)(0)
Fb_messages;Comp_Time0.51190.47170.3408
p-value(0)(0)(0)
Comp_Size;Comp_Time0.66450.59710.4383
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;Blogged_comp & 0.616 & 0.654 & 0.4752 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;Reviewed_comp & 0.4862 & 0.4408 & 0.3287 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;Fb_messages & 0.5661 & 0.533 & 0.3827 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;Comp_Size & 0.3265 & 0.3369 & 0.2306 \tabularnewline
p-value & (0.0029) & (0.0021) & (0.0023) \tabularnewline
Pageviews;Comp_Time & 0.5043 & 0.5652 & 0.4133 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Blogged_comp;Reviewed_comp & 0.5857 & 0.5676 & 0.4336 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Blogged_comp;Fb_messages & 0.592 & 0.5436 & 0.4037 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Blogged_comp;Comp_Size & 0.5061 & 0.5146 & 0.3739 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Blogged_comp;Comp_Time & 0.6647 & 0.6371 & 0.4748 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Reviewed_comp;Fb_messages & 0.8478 & 0.7746 & 0.6137 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Reviewed_comp;Comp_Size & 0.4163 & 0.2885 & 0.2053 \tabularnewline
p-value & (1e-04) & (0.009) & (0.0078) \tabularnewline
Reviewed_comp;Comp_Time & 0.4527 & 0.4076 & 0.2974 \tabularnewline
p-value & (0) & (2e-04) & (1e-04) \tabularnewline
Fb_messages;Comp_Size & 0.5056 & 0.4496 & 0.3172 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Fb_messages;Comp_Time & 0.5119 & 0.4717 & 0.3408 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Comp_Size;Comp_Time & 0.6645 & 0.5971 & 0.4383 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153420&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;Blogged_comp[/C][C]0.616[/C][C]0.654[/C][C]0.4752[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;Reviewed_comp[/C][C]0.4862[/C][C]0.4408[/C][C]0.3287[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;Fb_messages[/C][C]0.5661[/C][C]0.533[/C][C]0.3827[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;Comp_Size[/C][C]0.3265[/C][C]0.3369[/C][C]0.2306[/C][/ROW]
[ROW][C]p-value[/C][C](0.0029)[/C][C](0.0021)[/C][C](0.0023)[/C][/ROW]
[ROW][C]Pageviews;Comp_Time[/C][C]0.5043[/C][C]0.5652[/C][C]0.4133[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Blogged_comp;Reviewed_comp[/C][C]0.5857[/C][C]0.5676[/C][C]0.4336[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Blogged_comp;Fb_messages[/C][C]0.592[/C][C]0.5436[/C][C]0.4037[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Blogged_comp;Comp_Size[/C][C]0.5061[/C][C]0.5146[/C][C]0.3739[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Blogged_comp;Comp_Time[/C][C]0.6647[/C][C]0.6371[/C][C]0.4748[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Reviewed_comp;Fb_messages[/C][C]0.8478[/C][C]0.7746[/C][C]0.6137[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Reviewed_comp;Comp_Size[/C][C]0.4163[/C][C]0.2885[/C][C]0.2053[/C][/ROW]
[ROW][C]p-value[/C][C](1e-04)[/C][C](0.009)[/C][C](0.0078)[/C][/ROW]
[ROW][C]Reviewed_comp;Comp_Time[/C][C]0.4527[/C][C]0.4076[/C][C]0.2974[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](2e-04)[/C][C](1e-04)[/C][/ROW]
[ROW][C]Fb_messages;Comp_Size[/C][C]0.5056[/C][C]0.4496[/C][C]0.3172[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Fb_messages;Comp_Time[/C][C]0.5119[/C][C]0.4717[/C][C]0.3408[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Comp_Size;Comp_Time[/C][C]0.6645[/C][C]0.5971[/C][C]0.4383[/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=153420&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153420&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;Blogged_comp0.6160.6540.4752
p-value(0)(0)(0)
Pageviews;Reviewed_comp0.48620.44080.3287
p-value(0)(0)(0)
Pageviews;Fb_messages0.56610.5330.3827
p-value(0)(0)(0)
Pageviews;Comp_Size0.32650.33690.2306
p-value(0.0029)(0.0021)(0.0023)
Pageviews;Comp_Time0.50430.56520.4133
p-value(0)(0)(0)
Blogged_comp;Reviewed_comp0.58570.56760.4336
p-value(0)(0)(0)
Blogged_comp;Fb_messages0.5920.54360.4037
p-value(0)(0)(0)
Blogged_comp;Comp_Size0.50610.51460.3739
p-value(0)(0)(0)
Blogged_comp;Comp_Time0.66470.63710.4748
p-value(0)(0)(0)
Reviewed_comp;Fb_messages0.84780.77460.6137
p-value(0)(0)(0)
Reviewed_comp;Comp_Size0.41630.28850.2053
p-value(1e-04)(0.009)(0.0078)
Reviewed_comp;Comp_Time0.45270.40760.2974
p-value(0)(2e-04)(1e-04)
Fb_messages;Comp_Size0.50560.44960.3172
p-value(0)(0)(0)
Fb_messages;Comp_Time0.51190.47170.3408
p-value(0)(0)(0)
Comp_Size;Comp_Time0.66450.59710.4383
p-value(0)(0)(0)



Parameters (Session):
par1 = pearson ; par2 = equal ; par3 = 2 ; par4 = no ;
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')