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 computationWed, 22 Dec 2010 16:18:54 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/22/t12930346421h6vnl7bfibk1k9.htm/, Retrieved Sun, 05 May 2024 23:40:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=114361, Retrieved Sun, 05 May 2024 23:40:18 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
- RMPD  [Bivariate Explorative Data Analysis] [Ws4 part 1.1 s090...] [2009-10-27 21:56:53] [e0fc65a5811681d807296d590d5b45de]
-  M D    [Bivariate Explorative Data Analysis] [Paper; bivariate ...] [2009-12-19 19:10:37] [e0fc65a5811681d807296d590d5b45de]
- RMPD      [Cross Correlation Function] [cross correlation...] [2010-12-08 19:50:23] [74be16979710d4c4e7c6647856088456]
-   PD        [Cross Correlation Function] [] [2010-12-09 09:25:48] [b98453cac15ba1066b407e146608df68]
-   PD          [Cross Correlation Function] [Cross validation ...] [2010-12-10 08:46:08] [aeb27d5c05332f2e597ad139ee63fbe4]
- RMPD              [Kendall tau Correlation Matrix] [WS10 Feedback Pea...] [2010-12-22 16:18:54] [33ba4313a043c7c916d0d88da7cd101b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
211868	43880
229527	43110
229139	44496
198563	44164
195722	40399
202196	36763
205816	37903
212588	35532
214320	35533
220375	32110
204442	33374
206903	35462
214126	33508
226899	36080
223532	34560
195309	38737
186005	38144
188906	37594
191563	36424
189226	36843
186413	37246
178037	38661
166827	40454
169362	44928
174330	48441
187069	48140
186530	45998
158114	47369
151001	49554
159612	47510
161914	44873
164182	45344
169701	42413
171297	36912
166444	43452
173476	42142
182516	44382
202388	43636
202300	44167
168053	44423
167302	42868
172608	43908
178106	42013
185686	38846
194581	35087
194596	33026
197922	34646
208795	37135
230580	37985
240636	43121
240048	43722
211457	43630
211142	42234
214771	39351
212610	39327
219313	35704
219277	30466
231805	28155
229245	29257
241114	29998
248624	32529
265845	34787
256446	33855
219452	34556
217142	31348
221678	30805
227184	28353
230354	24514
235243	21106
237217	21346
233575	23335
244460	24379
243324	26290
260307	30084
241476	29429
203666	30632
200237	27349
204045	27264
209465	27474
213586	24482
216234	21453
213188	18788
208679	19282
217859	19713
227247	21917
243477	23812
232571	23785
191531	24696
186029	24562
189733	23580
190420	24939
194163	23899
198770	21454
195198	19761
193111	19815
195411	20780
202108	23462
215706	25005
206348	24725
166972	26198
166070	27543
169292	26471
175041	26558
177876	25317
181140	22896
179566	22248
175335	23406
184128	25073
189917	27691
194690	30599
179612	31948
150605	32946
150569	34012
153745	32936
155511	32974
159044	30951
163095	29812
159585	29010
158644	31068
166618	32447
176512	34844
200765	35676
182698	35387
153730	36488
156145	35652
161570	33488
165688	32914
173666	29781
180144	27951

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114361&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'RServer@AstonUniversity' @ vre.aston.ac.uk






Correlations for all pairs of data series (method=pearson)
VacaturesWerkzoekend
Vacatures1-0.251
Werkzoekend-0.2511

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Vacatures & Werkzoekend \tabularnewline
Vacatures & 1 & -0.251 \tabularnewline
Werkzoekend & -0.251 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114361&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Vacatures[/C][C]Werkzoekend[/C][/ROW]
[ROW][C]Vacatures[/C][C]1[/C][C]-0.251[/C][/ROW]
[ROW][C]Werkzoekend[/C][C]-0.251[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114361&T=1

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






Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Vacatures;Werkzoekend-0.251-0.253-0.1768
p-value(0.0041)(0.0039)(0.003)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
Vacatures;Werkzoekend & -0.251 & -0.253 & -0.1768 \tabularnewline
p-value & (0.0041) & (0.0039) & (0.003) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114361&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]Vacatures;Werkzoekend[/C][C]-0.251[/C][C]-0.253[/C][C]-0.1768[/C][/ROW]
[ROW][C]p-value[/C][C](0.0041)[/C][C](0.0039)[/C][C](0.003)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114361&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114361&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
Vacatures;Werkzoekend-0.251-0.253-0.1768
p-value(0.0041)(0.0039)(0.003)


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