Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_spearman.wasp
Title produced by softwareSpearman Rank Correlation
Date of computationFri, 27 Nov 2020 19:16:36 +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/2020/Nov/27/t1606501073wiythev65em40tu.htm/, Retrieved Fri, 07 May 2021 10:59:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319306, Retrieved Fri, 07 May 2021 10:59:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact20
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Spearman Rank Correlation] [] [2020-11-27 18:16:36] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
16	6	34	7	7	7	34	38	13	6	168	9/3/2019
8	9	27	13	7	13	31	54	3	4	169	9/10/2019
14	8	27	16	6	5	23	52	13	6	170	9/3/2019
13	9	25	9	13	3	11	14	28	3	128	7/25/2019
11	7	23	9	13	5	19	25	28	18	158	8/30/2019
14	8	29	4	5	7	21	42	8	10	148	8/30/2019
11	7	23	16	4	5	11	38	25	18	158	8/30/2019
14	8	25	12	8	3	13	7	64	10	164	8/30/2019
8	7	23	16	4	3	20	42	10	7	140	8/15/2019
10	7	24	16	6	3	11	52	11	18	158	8/30/2019
8	15	15	12	10	4	24	28	21	8	145	8/20/2019
14	13	23	16	4	7	27	35	10	6	155	8/21/2019
11	10	34	13	11	3	34	28	10	6	160	8/21/2019
14	6	21	18	8	3	20	31	18	10	149	8/15/2019
11	5	25	16	4	3	13	42	24	6	149	8/21/2019
12	6	23	16	4	9	28	21	3	18	140	8/12/2019
10	6	25	16	4	5	21	35	11	16	149	8/21/2019
13	13	15	20	7	5	20	35	10	18	156	8/12/2019
7	6	25	11	5	5	14	34	12	13	132	8/3/2019
11	14	27	12	7	4	13	63	8	10	169	8/30/2019
20	6	16	12	4	3	23	4	65	6	159	9/3/2019
22	11	24	7	3	8	27	42	8	10	162	8/30/2019
22	5	26	16	3	4	23	53	8	10	170	8/30/2019
14	6	28	13	4	3	23	21	25	9	146	8/14/2019
9	11	27	12	7	4	23	42	19	10	164	8/30/2019
12	7	26	12	7	4	13	52	11	9	153	8/21/2019
13	13	16	15	4	7	30	47	7	6	158	9/2/2019
9	12	26	16	4	3	23	18	14	30	155	8/21/2019
18	8	28	5	5	4	27	24	14	7	140	8/15/2019
14	10	28	13	4	3	13	28	28	10	151	8/15/2019
10	5	23	16	6	4	24	17	40	8	153	8/28/2019
16	6	30	8	11	3	18	21	21	10	144	8/8/2019
14	8	27	16	6	7	14	21	21	10	144	8/8/2019
13	14	27	16	6	8	34	57	6	4	185	9/13/2019
17	7	29	16	6	7	35	57	6	9	189	9/18/2019
9	16	27	12	8	3	48	44	12	9	188	9/18/2019
4	19	24	12	11	7	34	57	6	9	183	9/18/2019
16	7	31	12	7	7	35	57	6	9	187	9/18/2019
12	8	23	12	7	6	11	28	21	17	145	8/15/2019
14	7	24	12	6	5	13	35	28	16	160	8/28/2019
16	5	24	12	10	3	11	28	28	23	160	8/28/2019
18	8	23	12	4	7	11	3	41	14	141	8/5/2019
14	7	28	12	6	5	30	11	21	3	137	8/1/2019
12	6	27	12	6	7	21	35	27	7	160	8/28/2019
14	6	27	12	7	4	20	28	21	10	149	8/15/2019
11	4	23	12	8	3	37	39	9	7	153	8/28/2019
9	11	17	18	8	7	13	3	53	7	146	8/12/2019
17	8	26	12	8	3	23	28	25	16	166	8/28/2019
12	6	23	12	4	7	13	3	53	9	142	8/14/2019
9	18	20	16	6	3	18	10	39	10	149	8/15/2019
10	7	22	25	4	8	13	19	39	10	157	8/15/2019
10	4	28	12	4	4	21	24	25	16	148	8/28/2019
14	8	18	18	10	4	13	49	14	16	164	8/28/2019
11	9	25	12	8	3	13	28	21	14	144	8/12/2019
11	10	18	19	7	7	13	7	64	8	164	8/28/2019
7	8	23	16	3	4	23	35	4	10	133	8/8/2019
10	7	14	19	7	7	20	21	21	30	156	8/28/2019
6	4	23	16	6	7	17	18	14	17	128	8/8/2019
11	4	14	21	4	7	13	35	10	14	133	8/8/2019
7	13	22	9	5	6	7	3	69	7	148	8/28/2019
10	7	24	12	7	4	20	21	21	30	156	8/28/2019
16	6	30	13	3	4	13	28	21	14	148	8/12/2019
16	5	26	12	6	5	13	52	20	7	162	8/28/2019
22	4	15	19	10	4	13	35	10	18	150	8/12/2019
14	7	16	19	10	4	13	35	50	6	174	9/9/2019
16	6	18	18	11	3	13	45	4	30	164	8/28/2019
15	11	21	7	6	7	31	25	23	7	153	8/28/2019
13	10	21	19	10	4	44	32	9	7	169	8/28/2019
12	8	17	19	10	4	13	28	17	14	142	8/8/2019
19	10	21	12	13	7	17	46	7	9	161	8/21/2019
13	14	17	22	7	4	23	32	30	7	169	8/28/2019
8	7	21	19	10	4	20	45	11	9	154	8/21/2019
13	11	17	19	7	5	22	24	14	27	159	8/21/2019
14	9	27	9	9	2	13	28	35	8	154	8/20/2019
14	10	26	7	5	4	28	32	14	16	156	8/28/2019
16	7	14	26	6	24	18	10	18	7	146	8/12/2019
16	9	28	6	9	4	20	28	24	29	173	9/6/2019
12	7	9	22	6	14	18	21	21	11	141	8/16/2019
10	10	31	9	7	7	23	39	7	10	153	8/15/2019
12	7	27	13	7	2	18	21	14	24	145	8/15/2019
14	13	22	14	7	7	31	40	8	9	165	9/6/2019
18	7	28	18	5	2	21	17	35	13	164	8/28/2019
13	10	14	18	5	2	35	3	14	34	148	8/28/2019
18	8	27	12	8	3	23	18	14	3	134	7/25/2019
16	8	26	17	4	3	13	49	17	13	166	8/28/2019
11	14	25	10	3	4	35	17	11	23	153	8/28/2019
4	16	25	14	4	7	11	9	42	30	162	8/28/2019
10	7	23	17	6	7	28	17	7	21	143	8/15/2019
14	7	16	19	7	7	13	38	18	10	149	8/15/2019
11	16	18	21	4	7	23	39	10	7	156	8/15/2019
Dataseries Y:
16	6	34	7	7	7	34	38	13	6	168	9/3/2019
8	9	27	13	7	13	31	54	3	4	169	9/10/2019
14	8	27	16	6	5	23	52	13	6	170	9/3/2019
13	9	25	9	13	3	11	14	28	3	128	7/25/2019
11	7	23	9	13	5	19	25	28	18	158	8/30/2019
14	8	29	4	5	7	21	42	8	10	148	8/30/2019
11	7	23	16	4	5	11	38	25	18	158	8/30/2019
14	8	25	12	8	3	13	7	64	10	164	8/30/2019
8	7	23	16	4	3	20	42	10	7	140	8/15/2019
10	7	24	16	6	3	11	52	11	18	158	8/30/2019
8	15	15	12	10	4	24	28	21	8	145	8/20/2019
14	13	23	16	4	7	27	35	10	6	155	8/21/2019
11	10	34	13	11	3	34	28	10	6	160	8/21/2019
14	6	21	18	8	3	20	31	18	10	149	8/15/2019
11	5	25	16	4	3	13	42	24	6	149	8/21/2019
12	6	23	16	4	9	28	21	3	18	140	8/12/2019
10	6	25	16	4	5	21	35	11	16	149	8/21/2019
13	13	15	20	7	5	20	35	10	18	156	8/12/2019
7	6	25	11	5	5	14	34	12	13	132	8/3/2019
11	14	27	12	7	4	13	63	8	10	169	8/30/2019
20	6	16	12	4	3	23	4	65	6	159	9/3/2019
22	11	24	7	3	8	27	42	8	10	162	8/30/2019
22	5	26	16	3	4	23	53	8	10	170	8/30/2019
14	6	28	13	4	3	23	21	25	9	146	8/14/2019
9	11	27	12	7	4	23	42	19	10	164	8/30/2019
12	7	26	12	7	4	13	52	11	9	153	8/21/2019
13	13	16	15	4	7	30	47	7	6	158	9/2/2019
9	12	26	16	4	3	23	18	14	30	155	8/21/2019
18	8	28	5	5	4	27	24	14	7	140	8/15/2019
14	10	28	13	4	3	13	28	28	10	151	8/15/2019
10	5	23	16	6	4	24	17	40	8	153	8/28/2019
16	6	30	8	11	3	18	21	21	10	144	8/8/2019
14	8	27	16	6	7	14	21	21	10	144	8/8/2019
13	14	27	16	6	8	34	57	6	4	185	9/13/2019
17	7	29	16	6	7	35	57	6	9	189	9/18/2019
9	16	27	12	8	3	48	44	12	9	188	9/18/2019
4	19	24	12	11	7	34	57	6	9	183	9/18/2019
16	7	31	12	7	7	35	57	6	9	187	9/18/2019
12	8	23	12	7	6	11	28	21	17	145	8/15/2019
14	7	24	12	6	5	13	35	28	16	160	8/28/2019
16	5	24	12	10	3	11	28	28	23	160	8/28/2019
18	8	23	12	4	7	11	3	41	14	141	8/5/2019
14	7	28	12	6	5	30	11	21	3	137	8/1/2019
12	6	27	12	6	7	21	35	27	7	160	8/28/2019
14	6	27	12	7	4	20	28	21	10	149	8/15/2019
11	4	23	12	8	3	37	39	9	7	153	8/28/2019
9	11	17	18	8	7	13	3	53	7	146	8/12/2019
17	8	26	12	8	3	23	28	25	16	166	8/28/2019
12	6	23	12	4	7	13	3	53	9	142	8/14/2019
9	18	20	16	6	3	18	10	39	10	149	8/15/2019
10	7	22	25	4	8	13	19	39	10	157	8/15/2019
10	4	28	12	4	4	21	24	25	16	148	8/28/2019
14	8	18	18	10	4	13	49	14	16	164	8/28/2019
11	9	25	12	8	3	13	28	21	14	144	8/12/2019
11	10	18	19	7	7	13	7	64	8	164	8/28/2019
7	8	23	16	3	4	23	35	4	10	133	8/8/2019
10	7	14	19	7	7	20	21	21	30	156	8/28/2019
6	4	23	16	6	7	17	18	14	17	128	8/8/2019
11	4	14	21	4	7	13	35	10	14	133	8/8/2019
7	13	22	9	5	6	7	3	69	7	148	8/28/2019
10	7	24	12	7	4	20	21	21	30	156	8/28/2019
16	6	30	13	3	4	13	28	21	14	148	8/12/2019
16	5	26	12	6	5	13	52	20	7	162	8/28/2019
22	4	15	19	10	4	13	35	10	18	150	8/12/2019
14	7	16	19	10	4	13	35	50	6	174	9/9/2019
16	6	18	18	11	3	13	45	4	30	164	8/28/2019
15	11	21	7	6	7	31	25	23	7	153	8/28/2019
13	10	21	19	10	4	44	32	9	7	169	8/28/2019
12	8	17	19	10	4	13	28	17	14	142	8/8/2019
19	10	21	12	13	7	17	46	7	9	161	8/21/2019
13	14	17	22	7	4	23	32	30	7	169	8/28/2019
8	7	21	19	10	4	20	45	11	9	154	8/21/2019
13	11	17	19	7	5	22	24	14	27	159	8/21/2019
14	9	27	9	9	2	13	28	35	8	154	8/20/2019
14	10	26	7	5	4	28	32	14	16	156	8/28/2019
16	7	14	26	6	24	18	10	18	7	146	8/12/2019
16	9	28	6	9	4	20	28	24	29	173	9/6/2019
12	7	9	22	6	14	18	21	21	11	141	8/16/2019
10	10	31	9	7	7	23	39	7	10	153	8/15/2019
12	7	27	13	7	2	18	21	14	24	145	8/15/2019
14	13	22	14	7	7	31	40	8	9	165	9/6/2019
18	7	28	18	5	2	21	17	35	13	164	8/28/2019
13	10	14	18	5	2	35	3	14	34	148	8/28/2019
18	8	27	12	8	3	23	18	14	3	134	7/25/2019
16	8	26	17	4	3	13	49	17	13	166	8/28/2019
11	14	25	10	3	4	35	17	11	23	153	8/28/2019
4	16	25	14	4	7	11	9	42	30	162	8/28/2019
10	7	23	17	6	7	28	17	7	21	143	8/15/2019
14	7	16	19	7	7	13	38	18	10	149	8/15/2019
11	16	18	21	4	7	23	39	10	7	156	8/15/2019




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

\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
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319306&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] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319306&T=0

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



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