Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_kendall.wasp
Title produced by softwareKendall tau Rank Correlation
Date of computationThu, 10 Dec 2009 10:15:31 -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/Dec/10/t12604654300m9pkl0f4v7s1a9.htm/, Retrieved Fri, 29 Mar 2024 10:22:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=65617, Retrieved Fri, 29 Mar 2024 10:22:06 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact114
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Rank Correlation] [] [2009-12-10 17:15:31] [9f6463b67b1eb7bae5c03a796abf0348] [Current]
Feedback Forum

Post a new message
Dataseries X:
94.204
97.217
95.118
93.688
93.140
91.516
90.957
90.372
89.749
85.813
86.026
83.933
83.602
83.384
76.369
60.808
48.071
42.604
41.402
62.121
79.739
79.006
74.472
75.956
75.041
74.873
72.922
70.472
71.423
71.363
73.297
72.081
70.488
65.544
64.450
61.698
61.352
61.072
63.722
61.987
53.802
47.818
50.998
58.438
60.143
61.854
70.987
70.389
72.175
70.243
69.616
69.443
70.833
71.059
72.218
72.647
73.299
73.756
75.557
78.172
75.624
76.959
74.994
76.841
78.043
75.187
73.387
70.798
68.722
68.396
68.466
67.675
65.248
62.974
59.801
57.894
58.592
59.249
59.554
59.753
60.877
60.532
58.452
56.955
56.437
55.588
56.702
57.062
57.826
58.755
60.250
61.142
60.690
58.495
56.020
55.814
56.489
56.587
55.714
55.611
56.093
55.929
54.181
54.810
56.189
57.427
59.432
58.951
Dataseries Y:
99.026
101.851
99.958
97.875
97.927
95.149
94.551
93.999
93.297
89.901
89.742
87.096
86.863
86.718
80.020
63.483
51.289
44.071
43.654
66.115
84.518
83.395
78.307
80.049
78.346
78.317
75.918
73.739
74.530
74.179
76.974
75.408
73.336
69.210
67.286
64.606
64.159
64.423
66.411
64.270
56.521
50.599
54.751
62.227
63.932
65.391
75.744
74.590
76.035
74.427
73.354
73.081
75.309
75.463
75.910
76.151
76.882
78.632
80.137
82.490
79.896
81.303
79.344
81.355
82.328
79.669
77.249
75.101
72.520
72.438
72.653
71.429
69.189
66.451
63.354
61.379
61.880
62.274
62.429
63.905
63.917
64.295
61.930
60.440
59.353
58.695
60.569
60.386
60.938
61.795
63.304
64.270
63.492
61.333
59.341
58.412
58.725
59.277
58.562
57.858
58.790
58.243
57.044
57.339
59.429
60.575
61.950
61.712




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=65617&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]0 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=65617&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=65617&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Kendall tau Rank Correlation
Kendall tau0.967719674110413
2-sided p-value0
Score5591
Var(Score)141881
Denominator5777.49951171875

\begin{tabular}{lllllllll}
\hline
Kendall tau Rank Correlation \tabularnewline
Kendall tau & 0.967719674110413 \tabularnewline
2-sided p-value & 0 \tabularnewline
Score & 5591 \tabularnewline
Var(Score) & 141881 \tabularnewline
Denominator & 5777.49951171875 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=65617&T=1

[TABLE]
[ROW][C]Kendall tau Rank Correlation[/C][/ROW]
[ROW][C]Kendall tau[/C][C]0.967719674110413[/C][/ROW]
[ROW][C]2-sided p-value[/C][C]0[/C][/ROW]
[ROW][C]Score[/C][C]5591[/C][/ROW]
[ROW][C]Var(Score)[/C][C]141881[/C][/ROW]
[ROW][C]Denominator[/C][C]5777.49951171875[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=65617&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=65617&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 Correlation
Kendall tau0.967719674110413
2-sided p-value0
Score5591
Var(Score)141881
Denominator5777.49951171875



Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
library('Kendall')
k <- Kendall(x,y)
bitmap(file='test1.png')
par(bg=rgb(0.2,0.4,0.6))
plot(x,y,main='Scatterplot',xlab=xlab,ylab=ylab)
grid()
dev.off()
bitmap(file='test2.png')
par(bg=rgb(0.2,0.4,0.6))
plot(rank(x),rank(y),main='Scatterplot of Ranks',xlab=xlab,ylab=ylab)
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Kendall tau Rank Correlation',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Kendall tau',header=TRUE)
a<-table.element(a,k$tau)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'2-sided p-value',header=TRUE)
a<-table.element(a,k$sl)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Score',header=TRUE)
a<-table.element(a,k$S)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Var(Score)',header=TRUE)
a<-table.element(a,k$varS)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Denominator',header=TRUE)
a<-table.element(a,k$D)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')