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 14:01:47 -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/t1324666921v314q2s5zjtcqth.htm/, Retrieved Mon, 29 Apr 2024 17:56:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160657, Retrieved Mon, 29 Apr 2024 17:56:05 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Recursive Partitioning (Regression Trees)] [] [2010-12-05 18:59:57] [b98453cac15ba1066b407e146608df68]
-   PD  [Recursive Partitioning (Regression Trees)] [] [2011-12-15 18:38:30] [0cacbd6f25ea662f229a505efea21410]
- RMPD      [Kendall tau Correlation Matrix] [] [2011-12-23 19:01:47] [46e17293cd0520480fa187e99449b207] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
210907	1418	30	94
120982	869	28	103
176508	1530	38	93
179321	2172	30	103
123185	901	22	51
52746	463	26	70
385534	3201	25	91
33170	371	18	22
101645	1192	11	38
149061	1583	26	93
165446	1439	25	60
237213	1764	38	123
173326	1495	44	148
133131	1373	30	90
258873	2187	40	124
180083	1491	34	70
324799	4041	47	168
230964	1706	30	115
236785	2152	31	71
135473	1036	23	66
202925	1882	36	134
215147	1929	36	117
344297	2242	30	108
153935	1220	25	84
132943	1289	39	156
174724	2515	34	120
174415	2147	31	114
225548	2352	31	94
223632	1638	33	120
124817	1222	25	81
221698	1812	33	110
210767	1677	35	133
170266	1579	42	122
260561	1731	43	158
84853	807	30	109
294424	2452	33	124
101011	829	13	39
215641	1940	32	92
325107	2662	36	126
7176	186	0	0
167542	1499	28	70
106408	865	14	37
96560	1793	17	38
265769	2527	32	120
269651	2747	30	93
149112	1324	35	95
175824	2702	20	77
152871	1383	28	90
111665	1179	28	80
116408	2099	39	31
362301	4308	34	110
78800	918	26	66
183167	1831	39	138
277965	3373	39	133
150629	1713	33	113
168809	1438	28	100
24188	496	4	7
329267	2253	39	140
65029	744	18	61
101097	1161	14	41
218946	2352	29	96
244052	2144	44	164
341570	4691	21	78
103597	1112	16	49
233328	2694	28	102
256462	1973	35	124
206161	1769	28	99
311473	3148	38	129
235800	2474	23	62
177939	2084	36	73
207176	1954	32	114
196553	1226	29	99
174184	1389	25	70
143246	1496	27	104
187559	2269	36	116
187681	1833	28	91
119016	1268	23	74
182192	1943	40	138
73566	893	23	67
194979	1762	40	151
167488	1403	28	72
143756	1425	34	120
275541	1857	33	115
243199	1840	28	105
182999	1502	34	104
135649	1441	30	108
152299	1420	33	98
120221	1416	22	69
346485	2970	38	111
145790	1317	26	99
193339	1644	35	71
80953	870	8	27
122774	1654	24	69
130585	1054	29	107
112611	937	20	73
286468	3004	29	107
241066	2008	45	93
148446	2547	37	129
204713	1885	33	69
182079	1626	33	118
140344	1468	25	73
220516	2445	32	119
243060	1964	29	104
162765	1381	28	107
182613	1369	28	99
232138	1659	31	90
265318	2888	52	197
85574	1290	21	36
310839	2845	24	85
225060	1982	41	139
232317	1904	33	106
144966	1391	32	50
43287	602	19	64
155754	1743	20	31
164709	1559	31	63
201940	2014	31	92
235454	2143	32	106
220801	2146	18	63
99466	874	23	69
92661	1590	17	41
133328	1590	20	56
61361	1210	12	25
125930	2072	17	65
100750	1281	30	93
224549	1401	31	114
82316	834	10	38
102010	1105	13	44
101523	1272	22	87
243511	1944	42	110
22938	391	1	0
41566	761	9	27
152474	1605	32	83
61857	530	11	30
99923	1988	25	80
132487	1386	36	98
317394	2395	31	82
21054	387	0	0
209641	1742	24	60
22648	620	13	28
31414	449	8	9
46698	800	13	33
131698	1684	19	59
91735	1050	18	49
244749	2699	33	115
184510	1606	40	140
79863	1502	22	49
128423	1204	38	120
97839	1138	24	66
38214	568	8	21
151101	1459	35	124
272458	2158	43	152
172494	1111	43	139
108043	1421	14	38
328107	2833	41	144
250579	1955	38	120
351067	2922	45	160
158015	1002	31	114
98866	1060	13	39
85439	956	28	78
229242	2186	31	119
351619	3604	40	141
84207	1035	30	101
120445	1417	16	56
324598	3261	37	133
131069	1587	30	83
204271	1424	35	116
165543	1701	32	90
141722	1249	27	36
116048	946	20	50
250047	1926	18	61
299775	3352	31	97
195838	1641	31	98
173260	2035	21	78
254488	2312	39	117
104389	1369	41	148
136084	1577	13	41
199476	2201	32	105
92499	961	18	55
224330	1900	39	132
135781	1254	14	44
74408	1335	7	21
81240	1597	17	50
14688	207	0	0
181633	1645	30	73
271856	2429	37	86
7199	151	0	0
46660	474	5	13
17547	141	1	4
133368	1639	16	57
95227	872	32	48
152601	1318	24	46
98146	1018	17	48
79619	1383	11	32
59194	1314	24	68
139942	1335	22	87
118612	1403	12	43
72880	910	19	67
65475	616	13	46
99643	1407	17	46
71965	771	15	56
77272	766	16	48
49289	473	24	44
135131	1376	15	60
108446	1232	17	65
89746	1521	18	55
44296	572	20	38
77648	1059	16	52
181528	1544	16	60
134019	1230	18	54
124064	1206	22	86
92630	1205	8	24
121848	1255	17	52
52915	613	18	49
81872	721	16	61
58981	1109	23	61
53515	740	22	81
60812	1126	13	43
56375	728	13	40
65490	689	16	40
80949	592	16	56
76302	995	20	68
104011	1613	22	79
98104	2048	17	47
67989	705	18	57
30989	301	17	41
135458	1803	12	29
73504	799	7	3
63123	861	17	60
61254	1186	14	30
74914	1451	23	79
31774	628	17	47
81437	1161	14	40
87186	1463	15	48
50090	742	17	36
65745	979	21	42
56653	675	18	49
158399	1241	18	57
46455	676	17	12
73624	1049	17	40
38395	620	16	43
91899	1081	15	33
139526	1688	21	77
52164	736	16	43
51567	617	14	45
70551	812	15	47
84856	1051	17	43
102538	1656	15	45
86678	705	15	50
85709	945	10	35
34662	554	6	7
150580	1597	22	71
99611	982	21	67
19349	222	1	0
99373	1212	18	62
86230	1143	17	54
30837	435	4	4
31706	532	10	25
89806	882	16	40
62088	608	16	38
40151	459	9	19
27634	578	16	17
76990	826	17	67
37460	509	7	14
54157	717	15	30
49862	637	14	54
84337	857	14	35
64175	830	18	59
59382	652	12	24
119308	707	16	58
76702	954	21	42
103425	1461	19	46
70344	672	16	61
43410	778	1	3
104838	1141	16	52
62215	680	10	25
69304	1090	19	40
53117	616	12	32
19764	285	2	4
86680	1145	14	49
84105	733	17	63
77945	888	19	67
89113	849	14	32
91005	1182	11	23
40248	528	4	7
64187	642	16	54
50857	947	20	37
56613	819	12	35
62792	757	15	51
72535	894	16	39

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'AstonUniversity' @ aston.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 & 2 seconds \tabularnewline
R Server & 'AstonUniversity' @ aston.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=160657&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]'AstonUniversity' @ aston.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=160657&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160657&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 time2 seconds
R Server'AstonUniversity' @ aston.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=kendall)
time_in_rfcpageviewscompendiums_reviewedfeedback_messages_p120
time_in_rfc10.7390.590.605
pageviews0.73910.5270.521
compendiums_reviewed0.590.52710.771
feedback_messages_p120 0.6050.5210.7711

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & time_in_rfc & pageviews & compendiums_reviewed & feedback_messages_p120
 \tabularnewline
time_in_rfc & 1 & 0.739 & 0.59 & 0.605 \tabularnewline
pageviews & 0.739 & 1 & 0.527 & 0.521 \tabularnewline
compendiums_reviewed & 0.59 & 0.527 & 1 & 0.771 \tabularnewline
feedback_messages_p120
 & 0.605 & 0.521 & 0.771 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160657&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]time_in_rfc[/C][C]pageviews[/C][C]compendiums_reviewed[/C][C]feedback_messages_p120
[/C][/ROW]
[ROW][C]time_in_rfc[/C][C]1[/C][C]0.739[/C][C]0.59[/C][C]0.605[/C][/ROW]
[ROW][C]pageviews[/C][C]0.739[/C][C]1[/C][C]0.527[/C][C]0.521[/C][/ROW]
[ROW][C]compendiums_reviewed[/C][C]0.59[/C][C]0.527[/C][C]1[/C][C]0.771[/C][/ROW]
[ROW][C]feedback_messages_p120
[/C][C]0.605[/C][C]0.521[/C][C]0.771[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160657&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160657&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=kendall)
time_in_rfcpageviewscompendiums_reviewedfeedback_messages_p120
time_in_rfc10.7390.590.605
pageviews0.73910.5270.521
compendiums_reviewed0.590.52710.771
feedback_messages_p120 0.6050.5210.7711






Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
time_in_rfc;pageviews0.89280.90250.7387
p-value(0)(0)(0)
time_in_rfc;compendiums_reviewed0.7580.78920.5899
p-value(0)(0)(0)
time_in_rfc;feedback_messages_p120 0.76890.80520.6046
p-value(0)(0)(0)
pageviews;compendiums_reviewed0.66520.71850.5273
p-value(0)(0)(0)
pageviews;feedback_messages_p120 0.67130.71210.5211
p-value(0)(0)(0)
compendiums_reviewed;feedback_messages_p120 0.91820.90670.7707
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_in_rfc;pageviews & 0.8928 & 0.9025 & 0.7387 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;compendiums_reviewed & 0.758 & 0.7892 & 0.5899 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;feedback_messages_p120
 & 0.7689 & 0.8052 & 0.6046 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;compendiums_reviewed & 0.6652 & 0.7185 & 0.5273 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;feedback_messages_p120
 & 0.6713 & 0.7121 & 0.5211 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
compendiums_reviewed;feedback_messages_p120
 & 0.9182 & 0.9067 & 0.7707 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160657&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_in_rfc;pageviews[/C][C]0.8928[/C][C]0.9025[/C][C]0.7387[/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.758[/C][C]0.7892[/C][C]0.5899[/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.7689[/C][C]0.8052[/C][C]0.6046[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;compendiums_reviewed[/C][C]0.6652[/C][C]0.7185[/C][C]0.5273[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;feedback_messages_p120
[/C][C]0.6713[/C][C]0.7121[/C][C]0.5211[/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.9182[/C][C]0.9067[/C][C]0.7707[/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=160657&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160657&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
time_in_rfc;pageviews0.89280.90250.7387
p-value(0)(0)(0)
time_in_rfc;compendiums_reviewed0.7580.78920.5899
p-value(0)(0)(0)
time_in_rfc;feedback_messages_p120 0.76890.80520.6046
p-value(0)(0)(0)
pageviews;compendiums_reviewed0.66520.71850.5273
p-value(0)(0)(0)
pageviews;feedback_messages_p120 0.67130.71210.5211
p-value(0)(0)(0)
compendiums_reviewed;feedback_messages_p120 0.91820.90670.7707
p-value(0)(0)(0)


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = kendall ;
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')