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 computationSun, 18 Dec 2011 08:52:08 -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/18/t1324216348fx23ot2j3jdeynr.htm/, Retrieved Sun, 05 May 2024 13:47:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=156873, Retrieved Sun, 05 May 2024 13:47:32 +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)
-     [Kendall tau Correlation Matrix] [] [2010-12-05 17:44:33] [b98453cac15ba1066b407e146608df68]
-   PD  [Kendall tau Correlation Matrix] [WS10 PCM DMA] [2010-12-09 16:41:09] [2099aacba481f75a7f949aa310cab952]
- R  D    [Kendall tau Correlation Matrix] [Workshop 10, Pear...] [2010-12-10 12:51:04] [3635fb7041b1998c5a1332cf9de22bce]
- RM        [Kendall tau Correlation Matrix] [] [2011-12-10 13:03:26] [c505444e07acba7694d29053ca5d114e]
- R  D          [Kendall tau Correlation Matrix] [] [2011-12-18 13:52:08] [274a40ad31da88f12aea425a159a1f93] [Current]
- R  D            [Kendall tau Correlation Matrix] [] [2011-12-20 08:55:55] [c505444e07acba7694d29053ca5d114e]
- R PD            [Kendall tau Correlation Matrix] [] [2011-12-20 09:19:08] [c505444e07acba7694d29053ca5d114e]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
272545	140824
179444	110459
222373	105079
218443	112098
167843	43929
70849	76173
33186	22807
216660	144408
213274	66485
307153	79089
237633	81625
166215	68788
364402	103297
244103	69446
384448	114948
325587	167949
323652	125081
176082	125818
266736	136588
278265	112431
180393	82317
189897	118906
234247	83515
238002	104581
267268	103129
270787	83243
155915	37110
342564	113344
282172	139165
216584	86652
318563	112302
98672	69652
391593	119442
273950	69867
227636	70168
115658	31081
349863	103925
324178	92622
178083	79011
195153	93487
177694	64520
153778	93473
455168	114360
78800	33032
208051	96125
348077	151911
175523	89256
224591	95671
24188	5950
372238	149695
65029	32551
101097	31701
279012	100087
317644	169707
340471	150491
358958	120192
252529	95893
377482	151715
304468	176225
270190	59900
264889	104767
228595	114799
216027	72128
198798	143592
238146	89626
234891	131072
175816	126817
239314	81351
73566	22618
242622	88977
187167	92059
209049	81897
360592	108146
342846	126372
207650	249771
206500	71154
182357	71571
153613	55918
456979	160141
145943	38692
280366	102812
80953	56622
150216	15986
167878	123534
369718	108535
322454	93879
179797	144551
264350	56750
262793	127654
189142	65594
275997	59938
328875	146975
189252	143372
222504	168553
287386	183500
389104	165986
397681	184923
287748	140358
294320	149959
186856	57224
43287	43750
185468	48029
235352	104978
268077	100046
305195	101047
143356	197426
154287	160902
307000	147172
298039	109432
23623	1168
195817	83248
61857	25162
163766	45724
21054	855
252805	101382
31961	14116
317367	89506
240153	135356
175083	116066
152043	144244
38214	8773
216299	102153
357602	117440
198104	104128
410803	134238
316105	134047
397297	279488
187992	79756
102424	66089
286327	102070
409878	146760
143860	154771
391854	165933
157429	64593
258751	92280
282399	67150
217665	128692
367246	124089
239072	125386
173260	37238
323545	140015
168994	150047
253330	154451
301703	156349
246435	84601
384136	68946
46660	6179
116678	52789
206501	100350

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

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






Correlations for all pairs of data series (method=pearson)
TijdInRFCCharacters
TijdInRFC10.62
Characters0.621

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

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]TijdInRFC[/C][C]Characters[/C][/ROW]
[ROW][C]TijdInRFC[/C][C]1[/C][C]0.62[/C][/ROW]
[ROW][C]Characters[/C][C]0.62[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156873&T=1

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






Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
TijdInRFC;Characters0.61980.58670.4357
p-value(0)(0)(0)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
TijdInRFC;Characters & 0.6198 & 0.5867 & 0.4357 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156873&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]TijdInRFC;Characters[/C][C]0.6198[/C][C]0.5867[/C][C]0.4357[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156873&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156873&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
TijdInRFC;Characters0.61980.58670.4357
p-value(0)(0)(0)


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