Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_pairs.wasp

Title produced by software

Kendall tau Correlation Matrix

Date of computation

Mon, 09 Nov 2009 12:17:45 -0700

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/09/t1257795250h5sjqfe42d5xut7.htm/, Retrieved Sat, 20 Apr 2024 07:42:53 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54951, Retrieved Sat, 20 Apr 2024 07:42:53 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

184

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Kendall tau Correlation Matrix] [3/11/2009] [2009-11-02 21:25:00] [b98453cac15ba1066b407e146608df68]
-    D    [Kendall tau Correlation Matrix] [WS6 Kendall tau] [2009-11-09 19:17:45] [557d56ec4b06cd0135c259898de8ce95] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

10284,5	9904,642857
12792	13710,15385
12823,61538	13747,69231
13845,66667	14517
15335,63636	15185,81818
11188,5	11422,28571
13633,25	13819,66667
12298,46667	12749
15353,63636	16217
12696,15385	13238
12213,93333	12391
13683,72727	14780,09091
11214,14286	10815,42857
13950,23077	14770,84615
11179,13333	11831
11801,875	11931,3125
11188,82353	10611,94118
16456,27273	15923,18182
11110,0625	11094,875
16530,69231	16209,53846
10038,41176	10100
11681,25	12149,6875
11148,88235	11644,35294
8631	9249,947368
9386,444444	8980,777778
9764,736842	10244,52632
12043,75	12457,5625
12948,06667	13307,46667
10987,125	10839,625
11648,3125	11827,625
10633,35294	10925,94118
10219,3	10675,3
9037,6	9297,3
10296,31579	10433,21053
11705,41176	12261,41176
10681,94444	10911,22222
9362,947368	9334,421053
11306,35294	11655,05882
10984,45	11080
10062,61905	9840,142857
8118,583333	7448,916667
8867,48	8362,6
8346,72	8465,64
8529,307692	8220,923077
10697,18182	10432,86364
8591,84	8537,4
8695,607143	8535,464286
8125,571429	7997,464286
7009,758621	6301,413793
7883,466667	7595,566667
7527,645161	7200,483871
6763,758621	6152,482759
6682,333333	6064,259259
7855,681818	7269,909091
6738,88	6578,44
7895,434783	7708,26087
6361,884615	6401,153846
6935,956522	7042,043478
8344,454545	8296,409091
9107,944444	9613,333333

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'RServer@AstonUniversity' @ vre.aston.ac.uk

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54951&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'RServer@AstonUniversity' @ vre.aston.ac.uk

Kendall tau rank correlations for all pairs of data series
pair	tau	p-value
tau( Invoer/inflatie , Uitvoer/inflatie )	0.925423728813559	0

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Invoer/inflatie , Uitvoer/inflatie ) & 0.925423728813559 & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54951&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( Invoer/inflatie , Uitvoer/inflatie )[/C][C]0.925423728813559[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54951&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54951&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
pair	tau	p-value
tau( Invoer/inflatie , Uitvoer/inflatie )	0.925423728813559	0

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code