Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationSat, 03 Nov 2007 15:35:33 -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/2007/Nov/03/edxbw18ctyc5u1j1194129315.htm/, Retrieved Sun, 05 May 2024 05:56:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=201, Retrieved Sun, 05 May 2024 05:56:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact232
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [relatie met reser...] [2007-11-03 22:35:33] [d66dce91cbb8b108f7114f1eb0c2faa2] [Current]
Feedback Forum

Post a new message
Dataseries X:
1178	2529	476049	25
2141	2196	474605	35
2238	3202	470439	36
2685	2718	461251	41
4341	2728	454724	41
5376	2354	455626	38
4478	2697	516847	39
6404	2651	525192	45
4617	2067	522975	46
3024	2641	518585	48
1897	2539	509239	48
2075	2294	512238	48
1351	2712	519164	45
2211	2314	517009	44
2453	3092	509933	45
3042	2677	509127	45
4765	2813	500857	45
4992	2668	506971	42
4601	2939	569323	43
6266	2617	579714	50
4812	2231	577992	46
3159	2481	565464	46
1916	2421	547344	45
2237	2408	554788	49
1595	2560	562325	46
2453	2100	560854	45
2226	3315	555332	49
3597	2801	543599	47
4706	2403	536662	45
4974	3024	542722	48
5756	2507	593530	51
5493	2980	610763	48
5004	2211	612613	49
3225	2471	611324	51
2006	2594	594167	54
2291	2452	595454	52
1588	2232	590865	52
2105	2373	589379	53
2191	3127	584428	51
3591	2802	573100	55
4668	2641	567456	53
4885	2787	569028	51
5822	2619	620735	52
5599	2806	628884	54
5340	2193	628232	58
3082	2323	612117	57
2010	2529	595404	52
2301	2412	597141	50
1514	2262	593408	53
1979	2154	590072	50
2480	3230	579799	50
3499	2295	574205	51
4676	2715	572775	53
5585	2733	572942	49
5610	2317	619567	54
5796	2730	625809	57
6199	1913	619916	58
3030	2390	587625	56
1930	2484	565742	60
2552	1960	557274	55




Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\begin{tabular}{lllllllll}
\hline
Summary of compuational 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 & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201&T=0

[TABLE]
[ROW][C]Summary of compuational 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]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201&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 compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( Hwlkn , Schdngn )0.07520497897404070.396261912831272
tau( Hwlkn , Totwerk )0.1655835047736960.0616546915416822
tau( Hwlkn , Prijzen )0.08630230582571110.340470542298059
tau( Schdngn , Totwerk )-0.1356698916599750.125827482746360
tau( Schdngn , Prijzen )-0.1361528634027340.132721728128501
tau( Totwerk , Prijzen )0.6143682987519991.13955511693575e-11

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Hwlkn , Schdngn ) & 0.0752049789740407 & 0.396261912831272 \tabularnewline
tau( Hwlkn , Totwerk ) & 0.165583504773696 & 0.0616546915416822 \tabularnewline
tau( Hwlkn , Prijzen
 ) & 0.0863023058257111 & 0.340470542298059 \tabularnewline
tau( Schdngn , Totwerk ) & -0.135669891659975 & 0.125827482746360 \tabularnewline
tau( Schdngn , Prijzen
 ) & -0.136152863402734 & 0.132721728128501 \tabularnewline
tau( Totwerk , Prijzen
 ) & 0.614368298751999 & 1.13955511693575e-11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201&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( Hwlkn , Schdngn )[/C][C]0.0752049789740407[/C][C]0.396261912831272[/C][/ROW]
[ROW][C]tau( Hwlkn , Totwerk )[/C][C]0.165583504773696[/C][C]0.0616546915416822[/C][/ROW]
[ROW][C]tau( Hwlkn , Prijzen
 )[/C][C]0.0863023058257111[/C][C]0.340470542298059[/C][/ROW]
[ROW][C]tau( Schdngn , Totwerk )[/C][C]-0.135669891659975[/C][C]0.125827482746360[/C][/ROW]
[ROW][C]tau( Schdngn , Prijzen
 )[/C][C]-0.136152863402734[/C][C]0.132721728128501[/C][/ROW]
[ROW][C]tau( Totwerk , Prijzen
 )[/C][C]0.614368298751999[/C][C]1.13955511693575e-11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201&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( Hwlkn , Schdngn )0.07520497897404070.396261912831272
tau( Hwlkn , Totwerk )0.1655835047736960.0616546915416822
tau( Hwlkn , Prijzen )0.08630230582571110.340470542298059
tau( Schdngn , Totwerk )-0.1356698916599750.125827482746360
tau( Schdngn , Prijzen )-0.1361528634027340.132721728128501
tau( Totwerk , Prijzen )0.6143682987519991.13955511693575e-11



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