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 computationThu, 22 Dec 2011 18:54:24 -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/t1324598089ixrfrrqj986kmw2.htm/, Retrieved Fri, 03 May 2024 06:36:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160101, Retrieved Fri, 03 May 2024 06:36:14 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [] [2011-12-20 22:16:44] [3180c89a19df2f473465256ba41d7137]
- R  D    [Kendall tau Correlation Matrix] [paper deel 3 pear...] [2011-12-22 23:54:24] [e0f6924b7f4f4f457dd2c6ae4db1aeb3] [Current]
-   P       [Kendall tau Correlation Matrix] [paper deel 3 kend...] [2011-12-23 00:00:38] [d5821fed422662f85834b1edae505ce2]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
112285	24188	146283	144
84786	18273	98364	103
83123	14130	86146	98
101193	32287	96933	135
38361	8654	79234	61
68504	9245	42551	39
119182	33251	195663	150
22807	1271	6853	5
17140	5279	21529	28
116174	27101	95757	84
57635	16373	85584	80
66198	19716	143983	130
71701	17753	75851	82
57793	9028	59238	60
80444	18653	93163	131
53855	8828	96037	84
97668	29498	151511	140
133824	27563	136368	151
101481	18293	112642	91
99645	22530	94728	138
114789	15977	105499	150
99052	35082	121527	124
67654	16116	127766	119
65553	15849	98958	73
97500	16026	77900	110
69112	26569	85646	123
82753	24785	98579	90
85323	17569	130767	116
72654	23825	131741	113
30727	7869	53907	56
77873	14975	178812	115
117478	37791	146761	119
74007	9605	82036	129
90183	27295	163253	127
61542	2746	27032	27
101494	34461	171975	175
27570	8098	65990	35
55813	4787	86572	64
79215	24919	159676	96
1423	603	1929	0
55461	16329	85371	84
31081	12558	58391	41
22996	7784	31580	47
83122	28522	136815	126
70106	22265	120642	105
60578	14459	69107	80
39992	14526	50495	70
79892	22240	108016	73
49810	11802	46341	57
71570	7623	78348	40
100708	11912	79336	68
33032	7935	56968	21
82875	18220	93176	127
139077	19199	161632	154
71595	19918	87850	116
72260	21884	127969	102
5950	2694	15049	7
115762	15808	155135	148
32551	3597	25109	21
31701	5296	45824	35
80670	25239	102996	112
143558	29801	160604	137
117105	18450	158051	135
23789	7132	44547	26
120733	34861	162647	230
105195	35940	174141	181
73107	16688	60622	71
132068	24683	179566	147
149193	46230	184301	190
46821	10387	75661	64
87011	21436	96144	105
95260	30546	129847	107
55183	19746	117286	94
106671	15977	71180	116
73511	22583	109377	106
92945	17274	85298	143
78664	16469	73631	81
70054	14251	86767	89
22618	3007	23824	26
74011	16851	93487	84
83737	21113	82981	113
69094	17401	73815	120
93133	23958	94552	110
95536	23567	132190	134
225920	13065	128754	54
62133	15358	66363	96
61370	14587	67808	78
43836	12770	61724	51
106117	24021	131722	121
38692	9648	68580	38
84651	20537	106175	145
56622	7905	55792	59
15986	4527	25157	27
95364	30495	76669	91
26706	7117	57283	48
89691	17719	105805	68
67267	27056	129484	58
126846	33473	72413	150
41140	9758	87831	74
102860	21115	96971	181
51715	7236	71299	65
55801	13790	77494	97
111813	32902	120336	121
120293	25131	93913	99
138599	30910	136048	152
161647	35947	181248	188
115929	29848	146123	138
24266	6943	32036	40
162901	42705	186646	254
109825	31808	102255	87
129838	26675	168237	178
37510	8435	64219	51
43750	7409	19630	49
40652	14993	76825	73
87771	36867	115338	176
85872	33835	109427	94
89275	24164	118168	120
44418	12607	84845	66
192565	22609	153197	56
35232	5892	29877	39
40909	17014	63506	66
13294	5394	22445	27
32387	9178	47695	65
140867	6440	68370	58
120662	21916	146304	98
21233	4011	38233	25
44332	5818	42071	26
61056	18647	50517	77
101338	20556	103950	130
1168	238	5841	11
13497	70	2341	2
65567	22392	84396	101
25162	3913	24610	31
32334	12237	35753	36
40735	8388	55515	120
91413	22120	209056	195
855	338	6622	4
97068	11727	115814	89
44339	3704	11609	24
14116	3988	13155	39
10288	3030	18274	14
65622	13520	72875	78
16563	1421	10112	15
76643	20923	142775	106
110681	20237	68847	83
29011	3219	17659	24
92696	3769	20112	37
94785	12252	61023	77
8773	1888	13983	16
83209	14497	65176	56
93815	28864	132432	132
86687	21721	112494	144
34553	4821	45109	40
105547	33644	170875	153
103487	15923	180759	143
213688	42935	214921	220
71220	18864	100226	79
23517	4977	32043	50
56926	7785	54454	39
91721	17939	78876	95
115168	23436	170745	169
111194	325	6940	12
51009	13539	49025	63
135777	34538	122037	134
51513	12198	53782	69
74163	26924	127748	119
51633	12716	86839	119
75345	8172	44830	75
33416	10855	77395	63
83305	11932	89324	55
98952	14300	103300	103
102372	25515	112283	197
37238	2805	10901	16
103772	29402	120691	140
123969	16440	58106	89
27142	11221	57140	40
135400	28732	122422	125
21399	5250	25899	21
130115	28608	139296	167
24874	8092	52678	32
34988	4473	23853	36
45549	1572	17306	13
6023	2065	7953	5
64466	14817	89455	96
54990	16714	147866	151
1644	556	4245	6
6179	2089	21509	13
3926	2658	7670	3
32755	10695	66675	57
34777	1669	14336	23
73224	16267	53608	61
27114	7768	30059	21
20760	7252	29668	43
37636	6387	22097	20
65461	18715	96841	82
30080	7936	41907	90
24094	8643	27080	25
69008	7294	35885	60
54968	4570	41247	61
46090	7185	28313	85
27507	10058	36845	43
10672	2342	16548	25
34029	8509	36134	41
46300	13275	55764	26
24760	6816	28910	38
18779	1930	13339	12
21280	8086	25319	29
40662	10737	66956	49
28987	8033	47487	46
22827	7058	52785	41
18513	6782	44683	31
30594	5401	35619	41
24006	6521	21920	26
27913	10856	45608	23
42744	2154	7721	14
12934	6117	20634	16
22574	5238	29788	25
41385	4820	31931	21
18653	5615	37754	32
18472	4272	32505	9
30976	8702	40557	35
63339	15340	94238	42
25568	8030	44197	68
33747	9526	43228	32
4154	1278	4103	6
19474	4236	44144	68
35130	3023	32868	33
39067	7196	27640	84
13310	3394	14063	46
65892	6371	28990	30
4143	1574	4694	0
28579	9620	42648	36
51776	6978	64329	47
21152	4911	21928	20
38084	8645	25836	50
27717	8987	22779	30
32928	5544	40820	30
11342	3083	27530	34
19499	6909	32378	33
16380	3189	10824	34
36874	6745	39613	37
48259	16724	60865	83
16734	4850	19787	32
28207	7025	20107	30
30143	6047	36605	43
41369	7377	40961	41
45833	9078	48231	51
29156	4605	39725	19
35944	3238	21455	37
36278	8100	23430	33
45588	9653	62991	41
45097	8914	49363	54
3895	786	9604	14
28394	6700	24552	25
18632	5788	31493	25
2325	593	3439	8
25139	4506	19555	26
27975	6382	21228	20
14483	5621	23177	11
13127	3997	22094	14
5839	520	2342	3
24069	8891	38798	40
3738	999	3255	5
18625	7067	24261	38
36341	4639	18511	32
24548	5654	40798	41
21792	6928	28893	46
26263	1514	21425	47
23686	9238	50276	37
49303	8204	37643	51
25659	5926	30377	49
28904	5785	27126	21
2781	4	13	1
29236	5930	42097	44
19546	3710	24451	26
22818	705	14335	21
32689	443	5084	4
5752	2416	9927	10
22197	7747	43527	43
20055	5432	27184	34
25272	4913	21610	32
82206	2650	20484	20
32073	2370	20156	34
5444	775	6012	6
20154	5576	18475	12
36944	1352	12645	24
8019	3080	11017	16
30884	10205	37623	72
19540	6095	35873	27

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

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






Correlations for all pairs of data series (method=pearson)
totsizetotrevisionstotsecondstothyperlinks
totsize10.8080.8230.798
totrevisions0.80810.8750.875
totseconds0.8230.87510.887
tothyperlinks0.7980.8750.8871

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & totsize & totrevisions & totseconds & tothyperlinks \tabularnewline
totsize & 1 & 0.808 & 0.823 & 0.798 \tabularnewline
totrevisions & 0.808 & 1 & 0.875 & 0.875 \tabularnewline
totseconds & 0.823 & 0.875 & 1 & 0.887 \tabularnewline
tothyperlinks & 0.798 & 0.875 & 0.887 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160101&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]totsize[/C][C]totrevisions[/C][C]totseconds[/C][C]tothyperlinks[/C][/ROW]
[ROW][C]totsize[/C][C]1[/C][C]0.808[/C][C]0.823[/C][C]0.798[/C][/ROW]
[ROW][C]totrevisions[/C][C]0.808[/C][C]1[/C][C]0.875[/C][C]0.875[/C][/ROW]
[ROW][C]totseconds[/C][C]0.823[/C][C]0.875[/C][C]1[/C][C]0.887[/C][/ROW]
[ROW][C]tothyperlinks[/C][C]0.798[/C][C]0.875[/C][C]0.887[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160101&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160101&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)
totsizetotrevisionstotsecondstothyperlinks
totsize10.8080.8230.798
totrevisions0.80810.8750.875
totseconds0.8230.87510.887
tothyperlinks0.7980.8750.8871






Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
totsize;totrevisions0.80780.82890.6491
p-value(0)(0)(0)
totsize;totseconds0.82320.84150.6567
p-value(0)(0)(0)
totsize;tothyperlinks0.79780.83840.6548
p-value(0)(0)(0)
totrevisions;totseconds0.87460.91850.7495
p-value(0)(0)(0)
totrevisions;tothyperlinks0.87460.89390.7162
p-value(0)(0)(0)
totseconds;tothyperlinks0.88690.90320.7339
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;totrevisions & 0.8078 & 0.8289 & 0.6491 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;totseconds & 0.8232 & 0.8415 & 0.6567 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totsize;tothyperlinks & 0.7978 & 0.8384 & 0.6548 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totrevisions;totseconds & 0.8746 & 0.9185 & 0.7495 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totrevisions;tothyperlinks & 0.8746 & 0.8939 & 0.7162 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
totseconds;tothyperlinks & 0.8869 & 0.9032 & 0.7339 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160101&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;totrevisions[/C][C]0.8078[/C][C]0.8289[/C][C]0.6491[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;totseconds[/C][C]0.8232[/C][C]0.8415[/C][C]0.6567[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totsize;tothyperlinks[/C][C]0.7978[/C][C]0.8384[/C][C]0.6548[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totrevisions;totseconds[/C][C]0.8746[/C][C]0.9185[/C][C]0.7495[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totrevisions;tothyperlinks[/C][C]0.8746[/C][C]0.8939[/C][C]0.7162[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]totseconds;tothyperlinks[/C][C]0.8869[/C][C]0.9032[/C][C]0.7339[/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=160101&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160101&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;totrevisions0.80780.82890.6491
p-value(0)(0)(0)
totsize;totseconds0.82320.84150.6567
p-value(0)(0)(0)
totsize;tothyperlinks0.79780.83840.6548
p-value(0)(0)(0)
totrevisions;totseconds0.87460.91850.7495
p-value(0)(0)(0)
totrevisions;tothyperlinks0.87460.89390.7162
p-value(0)(0)(0)
totseconds;tothyperlinks0.88690.90320.7339
p-value(0)(0)(0)


Figures (Output of Computation)

Input Parameters & R Code

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