Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_spearman.wasp
Title produced by softwareSpearman Rank Correlation
Date of computationMon, 31 Jul 2017 12:00:57 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Jul/31/t1501495311p0lrw9kl1jdh8aa.htm/, Retrieved Wed, 15 May 2024 22:34:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=306834, Retrieved Wed, 15 May 2024 22:34:54 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact137
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Spearman Rank Correlation] [] [2017-07-31 10:00:57] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
8700
4400
15000
13700
15200
9000
8400
25200
16800
7700
10200
19800
16450
19900
27000
13400
18400
6650
14400
12300
20800
6800
6400
7800
21200
17500
25200
7400
8200
17500
6000
22600
6700
15100
17000
15600
11200
26500
17400
14400
7500
4600
4000
10100
4500
Dataseries Y:
9000
5550
15900
15900
12700
9500
8900
25600
16500
6100
7400
20100
22100
21100
27900
15900
17800
6300
14200
12800
22800
6200
7200
4600
20700
18800
27600
7600
9300
19100
6500
26100
9100
18700
18500
18200
10200
26000
16800
14600
9400
3900
4700
11300
4100




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R ServerBig Analytics Cloud Computing Center

\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 time2 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=306834&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]2 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=306834&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=306834&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 time2 seconds
R ServerBig Analytics Cloud Computing Center







Spearman Rank Correlation
rho0.956808223759146
2-sided p-value1.07245749073249e-24
S655.651163336171

\begin{tabular}{lllllllll}
\hline
Spearman Rank Correlation \tabularnewline
rho & 0.956808223759146 \tabularnewline
2-sided p-value & 1.07245749073249e-24 \tabularnewline
S & 655.651163336171 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=306834&T=1

[TABLE]
[ROW][C]Spearman Rank Correlation[/C][/ROW]
[ROW][C]rho[/C][C]0.956808223759146[/C][/ROW]
[ROW][C]2-sided p-value[/C][C]1.07245749073249e-24[/C][/ROW]
[ROW][C]S[/C][C]655.651163336171[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=306834&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=306834&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Spearman Rank Correlation
rho0.956808223759146
2-sided p-value1.07245749073249e-24
S655.651163336171



Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
k <- cor.test(x,y,method='spearman')
bitmap(file='test1.png')
plot(x,y,main='Scatterplot',xlab=xlab,ylab=ylab)
grid()
dev.off()
bitmap(file='test2.png')
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,'Spearman Rank Correlation',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'rho',header=TRUE)
a<-table.element(a,k$estimate)
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$p.value)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'S',header=TRUE)
a<-table.element(a,k$statistic)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')