Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_kendall.wasp
Title produced by softwareKendall tau Rank Correlation
Date of computationFri, 12 Feb 2021 07:46:59 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2021/Feb/12/t1613112536arkbnxety17sidt.htm/, Retrieved Tue, 18 Jan 2022 13:41:27 +0100
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Tue, 18 Jan 2022 13:41:27 +0100
QR Codes:

Original text written by user:
IsPrivate?This computation is private
User-defined keywords
Estimated Impact0
Dataseries X:
0.12%
1.38%
0.19%
8.78%
0.05%
0.14%
3.16%
4.63%
4.56%
0.11%
3.21%
1.27%
1.91%
5.05%
0.28%
0.10%
1.48%
4.99%
1.46%
0.02%
0.42%
0.05%
1.23%
2.76%
0.45%
3.00%
0.03%
2.15%
0.01%
0.01%
1.94%
0.00%
0.09%
1.02%
0.10%
0.43%
0.01%
2.89%
0.01%
2.59%
0.07%
0.10%
2.74%
3.29%
0.07%
0.90%
4.93%
0.11%
1.44%
0.57%
0.12%
1.33%
1.09%
0.11%
0.60%
0.36%
0.02%
0.98%
0.10%
1.03%
0.00%
0.47%
3.41%
5.17%
0.41%
0.15%
3.60%
1.30%
0.16%
1.05%
0.04%
0.68%
0.10%
0.12%
0.69%
0.08%
1.09%
0.09%
2.33%
1.58%
0.69%
0.20%
1.17%
1.37%
1.47%
3.68%
2.72%
0.37%
0.12%
2.22%
0.71%
0.16%
3.33%
1.12%
0.00%
3.92%
1.90%
0.10%
0.03%
1.22%
3.45%
2.39%
5.68%
0.01%
0.06%
0.03%
0.21%
2.40%
0.02%
2.29%
0.01%
0.19%
0.04%
0.87%
2.74%
1.57%
0.02%
5.79%
0.97%
0.05%
0.17%
0.56%
0.80%
3.10%
0.04%
0.09%
0.01%
0.03%
0.68%
2.41%
0.18%
1.75%
3.85%
0.01%
1.16%
2.91%
0.39%
2.68%
2.98%
4.96%
2.53%
1.61%
0.05%
0.07%
0.04%
0.14%
0.00%
4.97%
0.45%
1.02%
0.10%
2.19%
0.19%
0.03%
0.99%
2.00%
3.83%
0.00%
0.03%
1.33%
0.03%
3.58%
0.12%
0.04%
0.90%
2.63%
3.87%
0.05%
0.13%
0.00%
0.01%
0.04%
0.48%
0.83%
0.83%
1.72%
0.05%
2.44%
1.74%
0.17%
4.26%
0.22%
0.00%
0.36%
0.00%
0.01%
0.07%

Dataseries Y:
38.16
67.48
56.78
46.88
41.48
60.5
67.89
68.6
46.83
82.05
89.09
65.24
55.61
69.65
51.26
62.51
68.62
90.62
59.15
51.35
46.14
42.4
59.16
69.27
56.55
60.6
63.79
80.72
54
40.57
55.16
59.22
51.38
84.74
39.04
41.42
41.05
77.78
65.11
65.09
36.81
54.81
72.38
81.34
62.55
79.12
85.68
54.27
89.28
55.27
56.95
67
61.72
66.76
67.25
44.96
30.33
83.89
44.63
42.92
58.04
87.66
87.4
37.43
53.77
52.54
75.69
88.69
61.46
82.43
55.54
63.31
47.81
40.93
54.68
46.31
62.87
67.97
85.05
72.24
62.25
63.38
55.22
44.14
84.56
77.08
83.37
66.97
78.81
73.75
64.68
55.93
71.23
63.94
45.83
80.3
68.27
49.66
48.35
55.45
54.56
81.29
83.65
53.38
50.06
49.84
81.41
50.24
48.72
77.78
45.45
52.29
72.46
72.48
68.72
50.53
66.54
72.1
70.63
54.72
43.93
59.17
48.98
91.19
78.33
61.56
47.61
56.14
86.35
62.9
53.83
33.96
72.95
51.84
63.15
70.36
67.45
81.5
84.93
74.3
79.81
72.57
52.39
78.48
53.05
57.91
52.52
57.21
42.67
66.1
61.32
78.75
62.29
45.56
83.84
83.7
81.09
45.08
31.29
70.09
42.46
85.53
59.56
46.34
54.94
90.15
91.28
51.46
46.08
51.28
72.52
52.95
65.7
68.05
71.6
74.13
54.23
89.97
74.87
73.46
82.28
47.27
50.8
53.61
64.53
48
51.78




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
R Framework error message & 
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [ROW]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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 Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.



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