Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_correlation.wasp

Title produced by software

Pearson Correlation

Date of computation

Fri, 25 Dec 2020 20:38:06 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2020/Dec/25/t1608925122tfymfaue2x5kgvz.htm/, Retrieved Fri, 19 Apr 2024 09:05:59 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319326, Retrieved Fri, 19 Apr 2024 09:05:59 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

114

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Pearson Correlation] [] [2020-12-25 19:38:06] [d41d8cd98f00b204e9800998ecf8427e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

21%
12%
10%
8%
13%
15%
35%
6%
13%
28%
15%
26%
11%
33%
12%
17%
11%
24%
16%
18%
19%
23%
13%
10%
6%
8%
9%
17%
12%
15%
14%
7%
9%
16%
15%
14%
13%
22%
43%
4%
13%
14%
19%
20%
13%
17%
21%
4%
8%
35%
18%
13%
13%
25%
28%
15%
17%
80%
15%
27%
27%
23%
27%
16%
6%
12%
12%
19%
7%
6%
0%
8%
6%
14%
13%
25%
14%
16%
18%
19%
12%
12%
16%
16%
19%
11%
12%
14%
12%
16%
7%
9%
10%
10%
5%
16%
11%
13%
18%
15%
12%
43%
7%
15%
16%
28%
0%
16%
15%
14%
24%
13%
23%
19%
15%
22%
21%
13%
21%
12%
11%
11%
11%
10%
15%
15%
17%
14%
12%
34%
26%
12%
7%
14%
22%
12%
14%
8%
19%
11%
15%
13%
32%
37%
13%
7%
11%
11%
11%
18%
12%
22%
17%
16%
8%
13%
16%
10%
17%
20%
13%
34%
4%
19%
18%
12%
9%
9%
9%
12%
10%
13%
21%
11%
14%
14%
12%
12%
12%
12%
15%
12%
15%
9%
15%
19%
12%
17%
12%
18%
12%
9%
14%
15%
16%
12%
29%
16%
11%
17%
24%
18%
15%
19%
13%
34%
11%
43%
11%
8%
20%
28%
16%
15%
12%
17%
13%
21%
14%
5%
14%
15%
14%
0%
17%
20%
16%
5%
14%
14%
18%
20%
14%
27%
18%
13%
7%
8%
23%
42%
11%
12%
12%
13%
11%
15%
22%
10%
3%
15%
9%
11%
17%
20%
14%
6%
14%
16%
13%
19%
6%
13%
16%
5%
9%
22%
24%
18%
10%
7%
12%
12%
32%
13%
15%
12%
14%
14%
15%
19%
40%
12%
7%
11%
15%
11%
14%
12%
15%
13%
10%
18%
9%
21%
15%
13%
18%
16%
12%
41%
15%
20%
17%
13%
13%
27%
16%
10%
17%
17%
27%
5%
38%
10%
10%
27%
19%
19%
9%
10%
13%
16%
15%
19%
13%
13%
10%
9%
12%
14%
8%
10%
14%
6%
9%
12%
17%
20%
20%
8%
41%
6%
11%
20%
7%
16%
10%
11%
35%
14%
11%
10%
12%
12%
15%
11%
9%
15%
16%
47%
10%
16%
12%
23%
10%
13%
14%
30%
9%
46%
15%
22%
14%
8%
5%
8%
37%
6%
12%
3%
6%
6%
13%
23%
11%
12%
5%
18%
4%
15%
20%
11%
6%
14%
13%
16%
9%
4%
22%
16%
46%
14%
11%
8%
14%
17%
8%
4%
10%
8%
28%
15%
9%
17%
13%
11%
13%
38%
13%
11%
6%
14%
5%
9%
22%
14%
10%
12%
33%
53%
18%
8%
16%
21%
12%
21%
19%
53%
22%
13%
9%
19%
0%
10%
13%
15%
8%
14%
12%
12%
7%
23%
12%
39%
22%
8%
17%
31%
16%
5%
28%
14%
27%
36%
12%
31%
7%
14%
14%
13%
27%
13%
15%
15%
7%
11%
10%
11%
14%
19%
19%
13%
21%
6%
11%
11%
7%
8%
11%
0%
20%
15%
12%
17%
22%
18%
17%
15%
30%
11%
10%
23%
21%
14%
22%
15%
22%
9%
16%
17%
13%
11%
21%
19%
13%
21%
11%
5%
1%
7%
18%
10%
9%
11%
18%
0%
20%
12%
4%
11%
29%
40%
12%
14%
20%
13%
17%
16%
12%
11%
15%
17%
17%
7%
16%
13%
22%
7%
10%
12%
13%
12%
18%
37%
14%
21%
14%
23%
10%
13%
29%
12%
12%
25%
15%
9%
2%
24%
14%
17%
14%
12%
14%
12%
23%
34%
10%
16%
12%
18%
10%
13%
14%
14%
19%
11%
11%
26%
17%
21%
13%
14%
19%
13%
16%
15%
15%
16%
19%
13%
29%
11%
9%
14%
15%
14%
9%
10%
15%
12%
12%
12%
24%
30%
14%
13%
23%
12%
20%
21%
10%
16%
30%
12%
33%
18%
28%
18%
11%
18%
47%
13%
10%
24%
16%
14%
8%
27%
25%
13%
18%
31%
15%
13%
10%
11%
18%
0%
15%
14%
13%
11%
12%
10%
19%
36%
13%
36%
25%
15%
20%
12%
21%
14%
12%
4%
15%
14%
20%
34%
36%
16%
12%
12%
13%
15%
11%
49%
16%
16%
16%
17%
19%
15%
21%
18%
12%
29%
25%
27%
15%
16%
24%
9%
12%
15%
21%
11%
15%
21%
7%
20%
11%
19%
19%
40%
17%
15%
16%
19%
16%
20%
33%
21%
15%
12%
14%
35%
7%
17%
13%
22%
20%
12%
35%
26%
14%
42%
15%
20%
9%
13%
21%
26%
11%
13%
16%
25%
12%
13%
26%
5%
20%
35%
11%
20%
17%
12%
14%
28%
16%
17%
17%
13%
21%
6%
9%
29%
12%
16%
22%
14%
21%
26%
12%
19%
21%
0%
19%
17%
17%
27%
27%
33%
50%
19%
2%
17%
18%
48%
17%
15%
16%
22%
28%
25%
12%
14%
14%
29%
30%
17%
24%
14%
21%
31%
18%
23%
11%
21%
18%
16%
13%
9%
15%
24%
9%
1%
14%
8%
13%
44%
16%
23%
12%
13%
17%
18%
17%
16%
16%
18%
14%
34%
18%
11%
19%
17%
29%
33%
15%
15%
9%
9%
18%
15%
16%
13%
15%
3%
13%
20%
17%
18%
17%
20%
3%
16%
25%
20%
19%
20%
21%
23%
13%
19%
30%
12%
10%
15%
17%
16%
17%
16%
14%
22%
15%
14%
19%
11%
17%
17%
13%
17%
13%
4%
23%
17%
16%
23%
17%
17%
20%
26%
16%
12%
17%
19%
13%
15%
38%
17%
7%
0%
15%
9%
18%
21%
13%
21%
13%
20%
29%
20%
18%
15%
17%
18%
28%
14%
12%
5%
19%
23%
13%
15%
20%
21%
21%
21%
16%
17%
17%
17%
14%
18%
30%
2%
21%
13%
16%
15%
8%
34%
23%
19%
21%
7%
85%
16%
17%
21%
25%
17%
1%
10%
17%
17%
9%
17%
14%
17%
29%
14%
42%
15%
17%
17%
20%
15%
23%
5%
17%
30%
11%
16%
17%
15%
14%
15%
14%
18%
16%
18%
18%
17%
20%
7%
11%
13%
17%
15%
20%
20%
19%
14%
17%
15%
27%
11%
18%
18%
16%
17%
21%
13%
17%
17%
17%
18%
11%
23%
15%
15%
43%
13%
19%
15%
13%
11%
35%
22%
24%
14%
18%
28%
36%
20%
21%
65%
18%
17%
18%
24%
15%
16%
43%
22%
15%
21%
13%
15%
19%
11%
20%
15%
26%
20%
25%
17%
15%
24%
22%
29%
21%
35%
20%
8%
33%
16%
15%
21%
28%
15%
16%
17%
20%
18%
15%
12%
20%
13%
20%
16%
23%
14%
13%
13%
22%
20%
16%
22%
30%
16%
29%
23%
31%
13%
23%
19%
14%
23%
23%
15%
15%
10%
23%
17%
12%
20%
3%
6%
17%
17%
39%
14%
18%
30%
14%
28%
14%
25%
18%
17%
31%
22%
14%
18%
17%
17%
17%
14%
19%
22%
20%
23%
19%
19%
22%
28%
21%
7%
16%
22%
14%
23%
14%
16%
39%
21%
20%
20%
6%
14%
11%
17%
17%
19%
22%
18%
17%
7%
19%
16%
0%
19%
23%
17%
16%
20%
15%
17%
29%
19%
20%
23%
13%
20%
18%
11%
13%
53%
8%
14%
27%
20%
15%
16%
16%
19%
32%
14%
20%
6%
25%
22%
18%
27%
9%
1%
26%
14%
15%
0%
49%
18%
17%
23%
14%
16%
22%
17%
29%
19%
17%
39%
25%
20%
21%
15%
49%
27%
13%
10%
16%
19%
10%
14%
40%
13%
21%
17%
18%
15%
14%
11%
9%
14%
21%
27%
26%
23%
17%
15%
14%
14%
20%
10%
25%
26%
17%
14%
24%
26%
28%
19%
13%
40%
26%
23%
39%
20%
13%
18%
21%
31%
28%
21%
27%
19%
15%
15%
60%
22%
19%
19%
20%
15%
33%
14%
20%
20%
20%
20%
17%
25%
20%
16%
12%
19%
25%
21%
11%
5%
47%
13%
19%
21%
13%
0%
29%
17%
16%
21%
14%
14%
14%
15%
11%
43%
13%
20%
20%
8%
21%
24%
19%
19%
19%
22%
19%
15%
12%
20%
11%
11%
17%
15%
13%
21%
20%
13%
23%
22%
17%
19%
21%
36%
20%
17%
14%
14%
34%
21%
22%
21%
12%
21%
13%
21%
42%
17%
26%
16%
23%
22%
17%
16%
17%
21%
20%
14%
21%
31%
20%
14%
34%
20%
17%
27%
22%
33%
14%
12%
20%
15%
30%
25%
33%
7%
17%
19%
14%
18%
20%
34%
44%
20%
21%
16%
35%
15%
17%
32%
19%
18%
20%
15%
23%
11%
18%
24%
20%
23%
48%
21%
30%
15%
16%
13%
19%
12%
15%
14%
19%
18%
18%
61%
34%
15%
19%
22%
19%
15%
59%
12%
21%
6%
29%
21%
21%
9%
20%
23%
25%
21%
19%
20%
13%
32%
27%
20%
25%
13%
24%
48%
22%
14%
11%
16%
29%
27%
27%
21%
20%
11%
23%
17%
63%
14%
23%
17%
19%
9%
16%
16%
14%
27%
13%
20%
20%
15%
19%
28%
24%
15%
12%
20%
20%
20%
19%
23%
22%
11%
20%
12%
19%
10%
19%
21%
12%
24%
14%
22%
33%
11%
33%
6%
20%
21%
10%
17%
15%
14%
20%
12%
16%
17%
20%
21%
14%
15%
20%
10%
19%
17%
21%
16%
9%
26%
21%
16%
10%
12%
19%
14%
20%
6%
21%
34%
47%
22%
19%
22%
23%
19%
31%
33%
33%
39%
19%
21%
25%
20%
19%
16%
20%
19%
22%
43%
17%
21%
19%
22%
37%
15%
21%
7%
12%
14%
22%
22%
15%
14%
15%
22%
20%
12%
12%
13%
17%
18%
27%
15%
71%
73%
19%
15%
45%
20%
42%
21%
19%
14%
19%
34%
16%
20%
20%
20%
5%
25%
27%
11%
22%
21%
17%
20%
21%
22%
16%
43%
29%
59%
14%
20%
24%
14%
17%
34%
25%
14%
17%
21%
16%
12%
30%
16%
23%
13%
20%
25%
16%
20%
16%
19%
22%
20%
21%
15%
12%
18%
23%
16%
26%
21%
39%
20%
18%
18%
20%
12%
21%
9%
15%
20%
24%
21%
23%
57%
31%
19%
18%
33%
19%
31%
19%
22%
16%
14%
21%
22%
17%
22%
24%
24%
39%
24%
20%
32%
19%
15%
27%
50%
17%
20%
20%
20%
19%
34%
21%
21%
19%
15%
20%
26%
20%
20%
13%
15%
11%
18%
16%
48%
18%
57%
15%
18%
19%
36%
19%
38%
32%
16%
17%
15%
20%
20%
22%
16%
19%
20%
15%
13%
22%
23%
14%
21%
18%
19%
26%
14%
14%
23%
18%
20%
23%
34%
34%
43%
20%
20%
17%
14%
19%
21%
20%
19%
14%
36%
34%
20%
21%
12%
20%
3%
15%
21%
23%
31%
21%
20%
26%
20%
22%
14%
21%
14%
29%
18%
22%
14%
15%
22%
42%
15%
18%
44%
15%
35%
22%
26%
22%
26%
20%
40%
21%
21%
39%
23%
22%
17%
57%
30%
21%
20%
15%
21%
26%
29%
21%
14%
16%
22%
19%
20%
26%
12%
22%
20%
19%
14%
19%
25%
21%
21%
22%
27%
20%
16%
48%
52%
18%
60%
31%
19%
20%
22%
34%
28%
20%
22%
13%
20%
15%
19%
14%
21%
17%
20%
19%
22%
20%
16%
16%
21%
21%
21%
15%
21%
39%
21%
22%
22%
36%
22%
22%
22%
25%
17%
22%
34%
16%
14%
21%
27%
10%
21%
22%
15%
12%
20%
25%
20%
21%
17%
19%
9%
21%
27%
23%
18%
24%
32%
17%
21%
28%
25%
21%
22%
21%
23%
22%
22%
20%
17%
14%
21%
20%
3%
10%
23%
13%
20%
24%
11%
16%
22%
21%
21%
16%
21%
22%
32%
16%
24%
14%
21%
22%
21%
20%
12%
14%
13%
15%
22%
24%
17%
19%
21%
20%
21%
25%
21%
22%
20%
22%
44%
21%
21%
18%
4%
60%
27%
22%
12%
11%
15%
19%
29%
21%
23%
20%
43%
17%
19%
14%
5%
23%
18%
22%
20%
14%
15%
16%
21%
12%
23%
23%
16%
19%
26%
21%
22%
17%
22%
21%
23%
14%
17%
16%
13%
12%
31%
22%
22%
36%
13%
9%
18%
22%
21%
22%

Dataseries Y:

Download CSV

Histogram

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	Big 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=319326&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=319326&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319326&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 Output	view raw output of R engine
Computing time	0 seconds
R Server	Big Analytics Cloud Computing Center

Parameters (Session):

Parameters (R input):

R code (references can be found in the software module):

library(psychometric)
x <- x[!is.na(y)]
y <- y[!is.na(y)]
y <- y[!is.na(x)]
x <- x[!is.na(x)]
bitmap(file='test1.png')
histx <- hist(x, plot=FALSE)
histy <- hist(y, plot=FALSE)
maxcounts <- max(c(histx$counts, histx$counts))
xrange <- c(min(x),max(x))
yrange <- c(min(y),max(y))
nf <- layout(matrix(c(2,0,1,3),2,2,byrow=TRUE), c(3,1), c(1,3), TRUE)
par(mar=c(4,4,1,1))
plot(x, y, xlim=xrange, ylim=yrange, xlab=xlab, ylab=ylab, sub=main)
par(mar=c(0,4,1,1))
barplot(histx$counts, axes=FALSE, ylim=c(0, maxcounts), space=0)
par(mar=c(4,0,1,1))
barplot(histy$counts, axes=FALSE, xlim=c(0, maxcounts), space=0, horiz=TRUE)
dev.off()
lx = length(x)
makebiased = (lx-1)/lx
varx = var(x)*makebiased
vary = var(y)*makebiased
corxy <- cor.test(x,y,method='pearson', na.rm = T)
cxy <- as.matrix(corxy$estimate)[1,1]
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Pearson Product Moment Correlation - Ungrouped Data',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Statistic',1,TRUE)
a<-table.element(a,'Variable X',1,TRUE)
a<-table.element(a,'Variable Y',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Mean',header=TRUE)
a<-table.element(a,mean(x))
a<-table.element(a,mean(y))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Biased Variance',header=TRUE)
a<-table.element(a,varx)
a<-table.element(a,vary)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Biased Standard Deviation',header=TRUE)
a<-table.element(a,sqrt(varx))
a<-table.element(a,sqrt(vary))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Covariance',header=TRUE)
a<-table.element(a,cov(x,y),2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Correlation',header=TRUE)
a<-table.element(a,cxy,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Determination',header=TRUE)
a<-table.element(a,cxy*cxy,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'T-Test',header=TRUE)
a<-table.element(a,as.matrix(corxy$statistic)[1,1],2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value (2 sided)',header=TRUE)
a<-table.element(a,(p2 <- as.matrix(corxy$p.value)[1,1]),2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value (1 sided)',header=TRUE)
a<-table.element(a,p2/2,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'95% CI of Correlation',header=TRUE)
a<-table.element(a,paste('[',CIr(r=cxy, n = lx, level = .95)[1],', ', CIr(r=cxy, n = lx, level = .95)[2],']',sep=''),2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Degrees of Freedom',header=TRUE)
a<-table.element(a,lx-2,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of Observations',header=TRUE)
a<-table.element(a,lx,2)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
library(moments)
library(nortest)
jarque.x <- jarque.test(x)
jarque.y <- jarque.test(y)
if(lx>7) {
ad.x <- ad.test(x)
ad.y <- ad.test(y)
}
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Normality Tests',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('',RC.texteval('jarque.x'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('',RC.texteval('jarque.y'),'
',sep=''))
a<-table.row.end(a)
if(lx>7) {
a<-table.row.start(a)
a<-table.element(a,paste('',RC.texteval('ad.x'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('',RC.texteval('ad.y'),'
',sep=''))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
library(car)
bitmap(file='test2.png')
qqPlot(x,main='QQplot of variable x')
dev.off()
bitmap(file='test3.png')
qqPlot(y,main='QQplot of variable y')
dev.off()

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code