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, 13 Nov 2009 06:50:46 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/13/t1258120467aq0obmbj9vnhgjm.htm/, Retrieved Sun, 05 May 2024 16:10:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56629, Retrieved Sun, 05 May 2024 16:10:39 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordskendall Tau
Estimated Impact137
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [Shwws6v1] [2009-11-13 13:21:13] [dc3c82a565f0b2cd85906905748a1f2c]
- RMP     [Kendall tau Correlation Matrix] [Ws 6] [2009-11-13 13:50:46] [0bdf648420800d03e6dbfbd39fe2311c] [Current]
Feedback Forum

Post a new message
Dataseries X:
33	62	44	46
39	64	44	46
45	62	46	41
46	64	44	43
45	64	46	39
45	69	46	36
49	69	48	34
50	65	44	31
54	56	48	27
59	58	50	27
58	53	49	30
56	62	52	28
48	55	49	31
50	60	51	25
52	59	51	26
53	58	51	22
55	53	51	27
43	57	51	38
42	57	49	39
38	53	48	45
41	54	46	48
41	53	47	46
39	57	48	47
34	57	46	55
27	55	45	63
15	49	42	83
14	50	43	100
31	49	43	76
41	54	47	68
43	58	48	63
46	58	47	63
42	52	47	62
45	56	46	62
45	52	46	64
40	59	47	72
35	53	45	67
36	52	45	67
38	53	45	67
39	51	44	69
32	50	44	78
24	56	44	80
21	52	41	85
12	46	39	90
29	48	43	83
36	46	44	84
31	48	43	84
28	48	42	89
30	49	41	82
38	53	44	76
27	48	43	97
40	51	45	82
40	48	46	79
44	50	46	73
47	55	46	72
45	52	46	74
42	53	46	77
38	52	45	78
46	55	46	68
37	53	45	71
41	53	46	68
40	56	45	70
33	54	47	79
34	52	44	78
36	55	45	79
36	54	46	78
38	59	46	77
42	56	45	72
35	56	43	72
25	51	42	84
24	53	43	83
22	52	43	82
27	51	42	78
17	46	40	77
30	49	44	75
30	46	44	77
34	55	45	73
37	57	46	64
36	53	46	64
33	52	45	71
33	53	45	65
33	50	43	68
37	54	45	64
40	53	45	65
35	50	45	56
37	51	43	57
43	52	46	51
42	47	46	52
33	51	44	79
39	49	46	59
40	53	45	54
37	52	44	55
44	45	45	47
42	53	45	52
43	51	44	52
40	48	43	54
30	48	42	49
30	48	43	48
31	48	42	44
18	40	39	47
24	43	40	43
22	40	38	45
26	39	41	40
28	39	38	38
23	36	38	46
17	41	38	51
12	39	34	49
9	40	36	57
19	39	38	61
21	46	40	61
18	40	35	81
18	37	36	97
15	37	35	105
24	44	39	108
18	41	38	113
19	40	36	111
30	36	39	111
33	38	41	110
35	43	41	109
36	42	38	105
47	45	41	97
46	46	41	97




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56629&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' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56629&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56629&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' @ 72.249.127.135







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( Alg , Spaar )0.484052502317132.8199664825479e-14
tau( Alg , Fin )0.6558058503439930
tau( Alg , Werk )-0.3697584979578213.52188685648138e-09
tau( Spaar , Fin )0.6379543704102750
tau( Spaar , Werk )-0.3231305734586053.28124861744446e-07
tau( Fin , Werk )-0.3823054779667282.98690396735853e-09

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Alg , Spaar ) & 0.48405250231713 & 2.8199664825479e-14 \tabularnewline
tau( Alg , Fin ) & 0.655805850343993 & 0 \tabularnewline
tau( Alg , Werk ) & -0.369758497957821 & 3.52188685648138e-09 \tabularnewline
tau( Spaar , Fin ) & 0.637954370410275 & 0 \tabularnewline
tau( Spaar , Werk ) & -0.323130573458605 & 3.28124861744446e-07 \tabularnewline
tau( Fin , Werk ) & -0.382305477966728 & 2.98690396735853e-09 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56629&T=1

[TABLE]
[ROW][C]Kendall tau rank correlations for all pairs of data series[/C][/ROW]
[ROW][C]pair[/C][C]tau[/C][C]p-value[/C][/ROW]
[ROW][C]tau( Alg , Spaar )[/C][C]0.48405250231713[/C][C]2.8199664825479e-14[/C][/ROW]
[ROW][C]tau( Alg , Fin )[/C][C]0.655805850343993[/C][C]0[/C][/ROW]
[ROW][C]tau( Alg , Werk )[/C][C]-0.369758497957821[/C][C]3.52188685648138e-09[/C][/ROW]
[ROW][C]tau( Spaar , Fin )[/C][C]0.637954370410275[/C][C]0[/C][/ROW]
[ROW][C]tau( Spaar , Werk )[/C][C]-0.323130573458605[/C][C]3.28124861744446e-07[/C][/ROW]
[ROW][C]tau( Fin , Werk )[/C][C]-0.382305477966728[/C][C]2.98690396735853e-09[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56629&T=1

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

As an alternative you can also use a QR Code:  

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

Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( Alg , Spaar )0.484052502317132.8199664825479e-14
tau( Alg , Fin )0.6558058503439930
tau( Alg , Werk )-0.3697584979578213.52188685648138e-09
tau( Spaar , Fin )0.6379543704102750
tau( Spaar , Werk )-0.3231305734586053.28124861744446e-07
tau( Fin , Werk )-0.3823054779667282.98690396735853e-09



Parameters (Session):
Parameters (R input):
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='kendall')
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')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Kendall tau rank correlations for all pairs of data series',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'pair',1,TRUE)
a<-table.element(a,'tau',1,TRUE)
a<-table.element(a,'p-value',1,TRUE)
a<-table.row.end(a)
n <- length(y[,1])
n
cor.test(y[1,],y[2,],method='kendall')
for (i in 1:(n-1))
{
for (j in (i+1):n)
{
a<-table.row.start(a)
dum <- paste('tau(',dimnames(t(x))[[2]][i])
dum <- paste(dum,',')
dum <- paste(dum,dimnames(t(x))[[2]][j])
dum <- paste(dum,')')
a<-table.element(a,dum,header=TRUE)
r <- cor.test(y[i,],y[j,],method='kendall')
a<-table.element(a,r$estimate)
a<-table.element(a,r$p.value)
a<-table.row.end(a)
}
}
a<-table.end(a)
table.save(a,file='mytable.tab')