FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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, 23 Dec 2011 08:29:18 -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/23/t13246470133bfwxzt1euzidhx.htm/, Retrieved Mon, 29 Apr 2024 18:35:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160387, Retrieved Mon, 29 Apr 2024 18:35:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact103

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [ARIMA Backward Selection] [WS9: ARIMA Backwa...] [2010-12-03 11:00:39] [1fd136673b2a4fecb5c545b9b4a05d64]
- RMPD  [Kendall tau Correlation Matrix] [Paper: Correlatie...] [2010-12-06 21:09:22] [1fd136673b2a4fecb5c545b9b4a05d64]
- R PD      [Kendall tau Correlation Matrix] [] [2011-12-23 13:29:18] [daf26cf00f2f7a7ee0a1368c8ac8117e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
112285	3	24188	146283
84786	4	18273	98364
83123	12	14130	86146
101193	2	32287	96933
38361	1	8654	79234
68504	3	9245	42551
119182	0	33251	195663
22807	0	1271	6853
17140	0	5279	21529
116174	5	27101	95757
57635	0	16373	85584
66198	0	19716	143983
71701	7	17753	75851
57793	7	9028	59238
80444	3	18653	93163
53855	9	8828	96037
97668	0	29498	151511
133824	4	27563	136368
101481	3	18293	112642
99645	0	22530	94728
114789	7	15977	105499
99052	0	35082	121527
67654	1	16116	127766
65553	5	15849	98958
97500	7	16026	77900
69112	0	26569	85646
82753	0	24785	98579
85323	5	17569	130767
72654	0	23825	131741
30727	0	7869	53907
77873	0	14975	178812
117478	3	37791	146761
74007	4	9605	82036
90183	1	27295	163253
61542	4	2746	27032
101494	2	34461	171975
27570	0	8098	65990
55813	0	4787	86572
79215	0	24919	159676
1423	0	603	1929
55461	2	16329	85371
31081	1	12558	58391
22996	0	7784	31580
83122	2	28522	136815
70106	10	22265	120642
60578	6	14459	69107
39992	0	14526	50495
79892	5	22240	108016
49810	4	11802	46341
71570	1	7623	78348
100708	2	11912	79336
33032	2	7935	56968
82875	0	18220	93176
139077	8	19199	161632
71595	3	19918	87850
72260	0	21884	127969
5950	0	2694	15049
115762	8	15808	155135
32551	5	3597	25109
31701	3	5296	45824
80670	1	25239	102996
143558	5	29801	160604
117105	1	18450	158051
23789	1	7132	44547
120733	5	34861	162647
105195	0	35940	174141
73107	12	16688	60622
132068	8	24683	179566
149193	8	46230	184301
46821	8	10387	75661
87011	8	21436	96144
95260	2	30546	129847
55183	0	19746	117286
106671	5	15977	71180
73511	8	22583	109377
92945	2	17274	85298
78664	5	16469	73631
70054	12	14251	86767
22618	6	3007	23824
74011	7	16851	93487
83737	2	21113	82981
69094	0	17401	73815
93133	4	23958	94552
95536	3	23567	132190
225920	6	13065	128754
62133	2	15358	66363
61370	0	14587	67808
43836	1	12770	61724
106117	0	24021	131722
38692	5	9648	68580
84651	2	20537	106175
56622	0	7905	55792
15986	0	4527	25157
95364	5	30495	76669
26706	0	7117	57283
89691	1	17719	105805
67267	0	27056	129484
126846	1	33473	72413
41140	1	9758	87831
102860	2	21115	96971
51715	6	7236	71299
55801	1	13790	77494
111813	4	32902	120336
120293	2	25131	93913
138599	3	30910	136048
161647	0	35947	181248
115929	10	29848	146123
24266	0	6943	32036
162901	9	42705	186646
109825	7	31808	102255
129838	0	26675	168237
37510	0	8435	64219
43750	4	7409	19630
40652	4	14993	76825
87771	0	36867	115338
85872	0	33835	109427
89275	0	24164	118168
44418	1	12607	84845
192565	0	22609	153197
35232	1	5892	29877
40909	0	17014	63506
13294	0	5394	22445
32387	4	9178	47695
140867	0	6440	68370
120662	4	21916	146304
21233	4	4011	38233
44332	3	5818	42071
61056	0	18647	50517
101338	0	20556	103950
1168	0	238	5841
13497	5	70	2341
65567	0	22392	84396
25162	4	3913	24610
32334	0	12237	35753
40735	0	8388	55515
91413	1	22120	209056
855	0	338	6622
97068	5	11727	115814
44339	0	3704	11609
14116	0	3988	13155
10288	0	3030	18274
65622	0	13520	72875
16563	0	1421	10112
76643	2	20923	142775
110681	7	20237	68847
29011	1	3219	17659
92696	8	3769	20112
94785	2	12252	61023
8773	0	1888	13983
83209	2	14497	65176
93815	0	28864	132432
86687	0	21721	112494
34553	1	4821	45109
105547	3	33644	170875
103487	0	15923	180759
213688	3	42935	214921
71220	0	18864	100226
23517	0	4977	32043
56926	0	7785	54454
91721	4	17939	78876
115168	4	23436	170745
111194	11	325	6940
51009	0	13539	49025
135777	0	34538	122037
51513	4	12198	53782
74163	0	26924	127748
51633	1	12716	86839
75345	0	8172	44830
33416	0	10855	77395
83305	0	11932	89324
98952	9	14300	103300
102372	1	25515	112283
37238	3	2805	10901
103772	10	29402	120691
123969	5	16440	58106
27142	0	11221	57140
135400	2	28732	122422
21399	0	5250	25899
130115	1	28608	139296
24874	2	8092	52678
34988	4	4473	23853
45549	0	1572	17306
6023	0	2065	7953
64466	2	14817	89455
54990	1	16714	147866
1644	0	556	4245
6179	0	2089	21509
3926	0	2658	7670
32755	1	10695	66675
34777	0	1669	14336
73224	2	16267	53608
27114	0	7768	30059
20760	3	7252	29668
37636	6	6387	22097
65461	0	18715	96841
30080	2	7936	41907
24094	0	8643	27080

Tables (Output of Computation)





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
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160387&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]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160387&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160387&T=0

As an alternative you can also use a QR Code:  
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
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.






Correlations for all pairs of data series (method=pearson)
totsizeshared_compendiumstotrevisionstotseconds
totsize10.3040.7590.773
shared_compendiums0.30410.1180.13
totrevisions0.7590.11810.833
totseconds 0.7730.130.8331

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & totsize & shared_compendiums & totrevisions & totseconds
 \tabularnewline
totsize & 1 & 0.304 & 0.759 & 0.773 \tabularnewline
shared_compendiums & 0.304 & 1 & 0.118 & 0.13 \tabularnewline
totrevisions & 0.759 & 0.118 & 1 & 0.833 \tabularnewline
totseconds
 & 0.773 & 0.13 & 0.833 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160387&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]totsize[/C][C]shared_compendiums[/C][C]totrevisions[/C][C]totseconds
[/C][/ROW]
[ROW][C]totsize[/C][C]1[/C][C]0.304[/C][C]0.759[/C][C]0.773[/C][/ROW]
[ROW][C]shared_compendiums[/C][C]0.304[/C][C]1[/C][C]0.118[/C][C]0.13[/C][/ROW]
[ROW][C]totrevisions[/C][C]0.759[/C][C]0.118[/C][C]1[/C][C]0.833[/C][/ROW]
[ROW][C]totseconds
[/C][C]0.773[/C][C]0.13[/C][C]0.833[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160387&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160387&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series (method=pearson)
totsizeshared_compendiumstotrevisionstotseconds
totsize10.3040.7590.773
shared_compendiums0.30410.1180.13
totrevisions0.7590.11810.833
totseconds 0.7730.130.8331






Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
totsize;shared_compendiums0.30430.33790.2503
p-value(0)(0)(0)
totsize;totrevisions0.75940.79760.6203
p-value(0)(0)(0)
totsize;totseconds 0.77260.79330.6128
p-value(0)(0)(0)
shared_compendiums;totrevisions0.11770.13770.1014
p-value(0.0994)(0.0537)(0.05)
shared_compendiums;totseconds 0.13040.16020.1175
p-value(0.0679)(0.0245)(0.0231)
totrevisions;totseconds 0.83330.86480.6901
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
totsize;shared_compendiums & 0.3043 & 0.3379 & 0.2503 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;totrevisions & 0.7594 & 0.7976 & 0.6203 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;totseconds
 & 0.7726 & 0.7933 & 0.6128 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shared_compendiums;totrevisions & 0.1177 & 0.1377 & 0.1014 \tabularnewline
p-value & (0.0994) & (0.0537) & (0.05) \tabularnewline
shared_compendiums;totseconds
 & 0.1304 & 0.1602 & 0.1175 \tabularnewline
p-value & (0.0679) & (0.0245) & (0.0231) \tabularnewline
totrevisions;totseconds
 & 0.8333 & 0.8648 & 0.6901 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160387&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]totsize;shared_compendiums[/C][C]0.3043[/C][C]0.3379[/C][C]0.2503[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;totrevisions[/C][C]0.7594[/C][C]0.7976[/C][C]0.6203[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;totseconds
[/C][C]0.7726[/C][C]0.7933[/C][C]0.6128[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shared_compendiums;totrevisions[/C][C]0.1177[/C][C]0.1377[/C][C]0.1014[/C][/ROW]
[ROW][C]p-value[/C][C](0.0994)[/C][C](0.0537)[/C][C](0.05)[/C][/ROW]
[ROW][C]shared_compendiums;totseconds
[/C][C]0.1304[/C][C]0.1602[/C][C]0.1175[/C][/ROW]
[ROW][C]p-value[/C][C](0.0679)[/C][C](0.0245)[/C][C](0.0231)[/C][/ROW]
[ROW][C]totrevisions;totseconds
[/C][C]0.8333[/C][C]0.8648[/C][C]0.6901[/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=160387&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160387&T=2

As an alternative you can also use a QR Code:  
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
totsize;shared_compendiums0.30430.33790.2503
p-value(0)(0)(0)
totsize;totrevisions0.75940.79760.6203
p-value(0)(0)(0)
totsize;totseconds 0.77260.79330.6128
p-value(0)(0)(0)
shared_compendiums;totrevisions0.11770.13770.1014
p-value(0.0994)(0.0537)(0.05)
shared_compendiums;totseconds 0.13040.16020.1175
p-value(0.0679)(0.0245)(0.0231)
totrevisions;totseconds 0.83330.86480.6901
p-value(0)(0)(0)


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 2 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;
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')