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 computationThu, 22 Dec 2011 05:16:09 -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/22/t1324549051dzucmhmnveazcam.htm/, Retrieved Fri, 03 May 2024 04:32:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159243, Retrieved Fri, 03 May 2024 04:32:34 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [] [2010-12-05 18:04:16] [b98453cac15ba1066b407e146608df68]
- RMPD    [Kendall tau Correlation Matrix] [PAPER: werklooshe...] [2011-12-22 10:16:09] [6baf48ba14bcb50d9e72b77bece8a45b] [Current]
- R  D      [Kendall tau Correlation Matrix] [PAPER: werklooshe...] [2011-12-22 10:18:02] [f0cb027b41af06223bae4ee77475f3bc]
- RM D      [Univariate Data Series] [PAPER: aantal fai...] [2011-12-22 15:10:27] [f0cb027b41af06223bae4ee77475f3bc]
- RM D      [Mean versus Median] [PAPER: aantal fai...] [2011-12-22 15:36:43] [f0cb027b41af06223bae4ee77475f3bc]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
0,072	0,0213	0,0083
0,073	0,0218	0,2529
0,073	0,0290	0,0211
0,073	0,0263	-0,0456
0,074	0,0267	0,0742
0,073	0,0181	-0,0483
0,074	0,0133	0,0081
0,074	0,0088	0,0708
0,076	0,0128	0,0851
0,076	0,0126	-0,1376
0,077	0,0126	0,1800
0,077	0,0129	-0,0837
0,078	0,0110	0,0540
0,078	0,0137	0,0063
0,080	0,0121	-0,0349
0,081	0,0174	0,1109
0,081	0,0176	-0,0058
0,082	0,0148	0,1359
0,081	0,0104	0,0242
0,081	0,0162	0,0734
0,081	0,0149	0,1283
0,080	0,0179	0,0977
0,082	0,0180	0,0650
0,084	0,0158	0,0464
0,084	0,0186	-0,0839
0,085	0,0174	0,1260
0,086	0,0159	0,0313
0,085	0,0126	0,0691
0,083	0,0113	0,1939
0,078	0,0192	0,0797
0,078	0,0261	0,0347
0,080	0,0226	0,0739
0,086	0,0241	-0,1326
0,089	0,0226	0,0445
0,089	0,0203	0,0448
0,086	0,0286	0,0097
0,083	0,0255	0,1797
0,083	0,0227	-0,1146
0,083	0,0226	0,1085
0,084	0,0257	-0,0833
0,085	0,0307	-0,0764
0,084	0,0276	-0,0620
0,086	0,0251	0,0991
0,085	0,0287	0,0879
0,085	0,0314	0,0146
0,085	0,0311	0,0426
0,085	0,0316	-0,0179
0,085	0,0247	-0,0576
0,085	0,0257	-0,1365
0,085	0,0289	0,0546
0,085	0,0263	0,0647
0,086	0,0238	0,0831
0,086	0,0169	-0,1037
0,086	0,0196	-0,0646
0,086	0,0219	0,0111
0,084	0,0187	-0,1440
0,080	0,0160	-0,0766
0,079	0,0163	-0,0981
0,080	0,0122	-0,1432
0,080	0,0121	0,0408
0,080	0,0149	0,0932
0,080	0,0164	-0,0340
0,079	0,0166	-0,1324
0,079	0,0177	-0,0695
0,079	0,0182	0,0512
0,080	0,0178	0,1010
0,079	0,0128	-0,1331
0,075	0,0129	0,0000
0,072	0,0137	0,0155
0,070	0,0112	0,0393
0,069	0,0151	0,1218
0,071	0,0224	0,1916
0,071	0,0294	-0,0122
0,072	0,0309	-0,0368
0,071	0,0346	0,0670
0,069	0,0364	-0,0404
0,068	0,0439	-0,0042
0,067	0,0415	0,0933
0,067	0,0521	-0,0047
0,069	0,0580	0,2531
0,073	0,0591	0,3546
0,074	0,0539	0,0378
0,073	0,0546	0,1578
0,071	0,0472	-0,0282
0,070	0,0314	0,0909
0,071	0,0263	0,3641
0,075	0,0232	0,1314
0,077	0,0193	0,2723
0,078	0,0062	0,4070
0,077	0,0060	0,1035
0,077	-0,0037	0,1669
0,078	-0,0110	-0,0109
0,080	-0,0168	0,0019
0,081	-0,0078	0,0840
0,081	-0,0119	0,0807
0,080	-0,0097	0,0157
0,081	-0,0012	0,2599
0,082	0,0026	-0,0886
0,083	0,0062	0,0465
0,084	0,0070	0,0089
0,085	0,0166	-0,0278
0,085	0,0180	-0,0203
0,085	0,0227	0,0845
0,085	0,0246	0,0442
0,085	0,0257	0,1165
0,083	0,0232	0,1318
0,082	0,0291	0,0323
0,081	0,0301	0,0321
0,079	0,0286	-0,1132
0,076	0,0310	-0,0281
0,073	0,0322	-0,0395
0,071	0,0339	0,0758
0,070	0,0352	0,0235
0,070	0,0341	-0,0505
0,070	0,0335	0,2513
0,070	0,0367	-0,0814
0,069	0,0375	0,0084
0,068	0,0360	-0,0274
0,067	0,0355	0,1124
0,066	0,0357	0,2569

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'Herman Ole Andreas Wold' @ wold.wessa.net

\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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159243&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159243&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159243&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'Herman Ole Andreas Wold' @ wold.wessa.net






Correlations for all pairs of data series (method=pearson)
WerkloosheidsgraadInflatieAantalFaillissementen
Werkloosheidsgraad1-0.381-0.203
Inflatie-0.38110.069
AantalFaillissementen-0.2030.0691

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Werkloosheidsgraad & Inflatie & AantalFaillissementen \tabularnewline
Werkloosheidsgraad & 1 & -0.381 & -0.203 \tabularnewline
Inflatie & -0.381 & 1 & 0.069 \tabularnewline
AantalFaillissementen & -0.203 & 0.069 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159243&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Werkloosheidsgraad[/C][C]Inflatie[/C][C]AantalFaillissementen[/C][/ROW]
[ROW][C]Werkloosheidsgraad[/C][C]1[/C][C]-0.381[/C][C]-0.203[/C][/ROW]
[ROW][C]Inflatie[/C][C]-0.381[/C][C]1[/C][C]0.069[/C][/ROW]
[ROW][C]AantalFaillissementen[/C][C]-0.203[/C][C]0.069[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159243&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159243&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=pearson)
WerkloosheidsgraadInflatieAantalFaillissementen
Werkloosheidsgraad1-0.381-0.203
Inflatie-0.38110.069
AantalFaillissementen-0.2030.0691






Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Werkloosheidsgraad;Inflatie-0.3809-0.2719-0.1727
p-value(0)(0.0027)(0.0065)
Werkloosheidsgraad;AantalFaillissementen-0.2026-0.1257-0.0861
p-value(0.0264)(0.1711)(0.1738)
Inflatie;AantalFaillissementen0.0691-0.0134-0.0072
p-value(0.4531)(0.8846)(0.9079)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
Werkloosheidsgraad;Inflatie & -0.3809 & -0.2719 & -0.1727 \tabularnewline
p-value & (0) & (0.0027) & (0.0065) \tabularnewline
Werkloosheidsgraad;AantalFaillissementen & -0.2026 & -0.1257 & -0.0861 \tabularnewline
p-value & (0.0264) & (0.1711) & (0.1738) \tabularnewline
Inflatie;AantalFaillissementen & 0.0691 & -0.0134 & -0.0072 \tabularnewline
p-value & (0.4531) & (0.8846) & (0.9079) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159243&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]Werkloosheidsgraad;Inflatie[/C][C]-0.3809[/C][C]-0.2719[/C][C]-0.1727[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0.0027)[/C][C](0.0065)[/C][/ROW]
[ROW][C]Werkloosheidsgraad;AantalFaillissementen[/C][C]-0.2026[/C][C]-0.1257[/C][C]-0.0861[/C][/ROW]
[ROW][C]p-value[/C][C](0.0264)[/C][C](0.1711)[/C][C](0.1738)[/C][/ROW]
[ROW][C]Inflatie;AantalFaillissementen[/C][C]0.0691[/C][C]-0.0134[/C][C]-0.0072[/C][/ROW]
[ROW][C]p-value[/C][C](0.4531)[/C][C](0.8846)[/C][C](0.9079)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159243&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159243&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
Werkloosheidsgraad;Inflatie-0.3809-0.2719-0.1727
p-value(0)(0.0027)(0.0065)
Werkloosheidsgraad;AantalFaillissementen-0.2026-0.1257-0.0861
p-value(0.0264)(0.1711)(0.1738)
Inflatie;AantalFaillissementen0.0691-0.0134-0.0072
p-value(0.4531)(0.8846)(0.9079)


Figures (Output of Computation)

Input Parameters & R Code

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