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, 13 Nov 2009 06:04:36 -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/t1258117523m19kwbskn1w4525.htm/, Retrieved Sun, 05 May 2024 13:59:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56560, Retrieved Sun, 05 May 2024 13:59:55 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Back to Back Histogram] [3/11/2009] [2009-11-02 21:58:53] [b98453cac15ba1066b407e146608df68]
- RM D    [Kendall tau Correlation Matrix] [] [2009-11-13 13:04:36] [2f6049721194fa571920c3539d7b729e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2.155	22.782	17	12.7
2.172	19.169	14	12.3
2.15	13.807	15	11.9
2.533	29.743	16	12
2.058	25.591	16	12.3
2.16	29.096	15	12.8
2.26	26.482	13	12.4
2.498	22.405	12	12.3
2.695	27.044	13	12.7
2.799	17.97	13	12.7
2.947	18.73	12	12.9
2.93	19.684	10	13
2.318	19.785	14	12.2
2.54	18.479	14	12.3
2.57	10.698	15	12.8
2.669	31.956	16	12.8
2.45	29.506	16	12.8
2.842	34.506	15	12.2
3.44	27.165	15	12.6
2.678	26.736	13	12.8
2.981	23.691	15	12.5
2.26	18.157	15	12.4
2.844	17.328	15	12.3
2.546	18.205	13	11.9
2.456	20.995	16	11.7
2.295	17.382	16	12
2.379	9.367	14	12.1
2.479	31.124	16	11.7
2.057	26.551	15	11.8
2.28	30.651	14	11.8
2.351	25.859	15	11.8
2.276	25.1	15	11.3
2.548	25.778	14	11.3
2.311	20.418	13	11.3
2.201	18.688	12	11.2
2.725	20.424	13	11.4
2.408	24.776	12	12.2
2.139	19.814	9	12.9
1.898	12.738	10	13.1
2.537	31.566	8	13.5
2.069	30.111	11	13.6
2.063	30.019	8	14.4
2.524	31.934	8	14.1
2.437	25.826	8	15.1
2.189	26.835	4	15.8
2.793	20.205	6	15.9
2.074	17.789	8	15.4
2.622	20.52	10	15.5
2.278	22.518	5	14.8
2.144	15.572	6	13.2
2.427	11.509	5	12.7
2.139	25.447	9	12.1
1.828	24.09	8	11.9
2.072	27.786	6	10.6
1.8	26.195	9	10.7
1.758	20.516	11	0.8
2.246	22.759	11	0.9
1.987	19.028	8	8.3
1.868	16.971	11	9.3
2.514	20.036	11	9
2.121	22.485	13	9.1

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

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






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( gebouwen , auto )0.03608529790309590.68127178993728
tau( gebouwen , prijsindex )0.1737312209592850.0574575924006926
tau( gebouwen , financielesituatie )0.180371213908610.0422373678688854
tau( auto , prijsindex )0.07335129131643820.422244816478991
tau( auto , financielesituatie )0.0503214991864350.570739589299908
tau( prijsindex , financielesituatie )-0.1809321137072280.0501840335770001

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( gebouwen , auto ) & 0.0360852979030959 & 0.68127178993728 \tabularnewline
tau( gebouwen , prijsindex ) & 0.173731220959285 & 0.0574575924006926 \tabularnewline
tau( gebouwen , financielesituatie ) & 0.18037121390861 & 0.0422373678688854 \tabularnewline
tau( auto , prijsindex ) & 0.0733512913164382 & 0.422244816478991 \tabularnewline
tau( auto , financielesituatie ) & 0.050321499186435 & 0.570739589299908 \tabularnewline
tau( prijsindex , financielesituatie ) & -0.180932113707228 & 0.0501840335770001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56560&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( gebouwen , auto )[/C][C]0.0360852979030959[/C][C]0.68127178993728[/C][/ROW]
[ROW][C]tau( gebouwen , prijsindex )[/C][C]0.173731220959285[/C][C]0.0574575924006926[/C][/ROW]
[ROW][C]tau( gebouwen , financielesituatie )[/C][C]0.18037121390861[/C][C]0.0422373678688854[/C][/ROW]
[ROW][C]tau( auto , prijsindex )[/C][C]0.0733512913164382[/C][C]0.422244816478991[/C][/ROW]
[ROW][C]tau( auto , financielesituatie )[/C][C]0.050321499186435[/C][C]0.570739589299908[/C][/ROW]
[ROW][C]tau( prijsindex , financielesituatie )[/C][C]-0.180932113707228[/C][C]0.0501840335770001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56560&T=1

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

Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( gebouwen , auto )0.03608529790309590.68127178993728
tau( gebouwen , prijsindex )0.1737312209592850.0574575924006926
tau( gebouwen , financielesituatie )0.180371213908610.0422373678688854
tau( auto , prijsindex )0.07335129131643820.422244816478991
tau( auto , financielesituatie )0.0503214991864350.570739589299908
tau( prijsindex , financielesituatie )-0.1809321137072280.0501840335770001


Figures (Output of Computation)

Input Parameters & R Code

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