FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_correlation.wasp
Title produced by softwarePearson Correlation
Date of computationThu, 15 Dec 2011 11:28:39 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/15/t1323966804lglgu8hy1lp2td9.htm/, Retrieved Wed, 08 May 2024 21:40:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=155554, Retrieved Wed, 08 May 2024 21:40:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact98

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Pearson Correlation] [] [2011-12-15 16:28:39] [ce4468323d272130d499477f5e05a6d2] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
396
297
559
967
270
143
1562
109
371
656
511
655
465
525
885
497
1436
612
865
385
567
639
963
398
410
966
801
892
513
469
683
643
535
625
264
992
238
818
937
70
507
260
503
927
1269
537
910
532
345
918
1635
330
557
1178
740
452
218
764
255
454
866
574
1276
379
825
798
663
1069
921
858
711
503
382
464
717
690
462
657
385
577
619
479
817
752
430
451
537
519
1000
637
465
437
711
299
248
1162
714
905
649
512
472
905
786
489
479
617
925
351
1144
669
707
458
214
599
572
897
819
720
273
508
506
451
699
407
465
245
370
316
603
154
229
577
192
617
411
975
146
705
184
200
274
502
382
964
537
438
369
417
276
514
822
389
466
1255
694
1024
400
397
350
719
1277
356
457
1402
600
480
595
436
230
651
1367
564
716
747
467
671
861
319
612
433
434
503
85
564
824
74
259
69
535
239
438
459
426
288
498
454
376
225
555
252
208
130
481
389
565
173
278
609
422
445
387
339
181
245
384
212
399
229
224
203
333
384
636
185
93
581
248
304
344
407
170
312
507
224
340
168
443
204
367
210
335
364
178
206
279
387
490
238
343
232
530
291
67
397
467
178
175
299
154
106
189
194
135
201
207
280
260
227
239
333
428
230
292
350
186
326
155
75
361
261
299
300
450
183
238
165
234
176
329
Dataseries Y:
Download CSV
Histogram 
30
28
38
30
22
26
25
18
11
26
25
38
44
30
40
34
47
30
31
23
36
36
30
25
39
34
31
31
33
25
33
35
42
43
30
33
13
32
36
0
28
14
17
32
30
35
20
28
28
39
34
26
39
39
33
28
4
39
18
14
29
44
21
16
28
35
28
38
23
36
32
29
25
27
36
28
23
40
23
40
28
34
33
28
34
30
33
22
38
26
35
8
24
29
20
29
45
37
33
33
25
32
29
28
28
31
52
21
24
41
33
32
19
20
31
31
32
18
23
17
20
12
17
30
31
10
13
22
42
1
9
32
11
25
36
31
0
24
13
8
13
19
18
33
40
22
38
24
8
35
43
43
14
41
38
45
31
13
28
31
40
30
16
37
30
35
32
27
20
18
31
31
21
39
41
13
32
18
39
14
7
17
0
30
37
0
5
1
16
32
24
17
11
24
22
12
19
13
17
15
16
24
15
17
18
20
16
16
18
22
8
17
18
16
23
22
13
13
16
16
20
22
17
18
17
12
7
17
14
23
17
14
15
17
21
18
18
17
17
16
15
21
16
14
15
17
15
15
10
6
22
21
1
18
17
4
10
16
16
9
16
17
7
15
14
14
18
12
16
21
19
16
1
16
10
19
12
2
14
17
19
14
11
4
16
20
12
15
16

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\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 & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=155554&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=155554&T=0

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

As an alternative you can also use a QR Code:  
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 time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean494.89619377162623.3010380622837
Biased Variance82025.5739993535111.871313801319
Biased Standard Deviation286.4010719242410.576923645433
Covariance1938.49316368704
Correlation0.637712471597223
Determination0.406677196430639
T-Test14.0255641449584
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom287
Number of Observations289

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 494.896193771626 & 23.3010380622837 \tabularnewline
Biased Variance & 82025.5739993535 & 111.871313801319 \tabularnewline
Biased Standard Deviation & 286.40107192424 & 10.576923645433 \tabularnewline
Covariance & 1938.49316368704 \tabularnewline
Correlation & 0.637712471597223 \tabularnewline
Determination & 0.406677196430639 \tabularnewline
T-Test & 14.0255641449584 \tabularnewline
p-value (2 sided) & 0 \tabularnewline
p-value (1 sided) & 0 \tabularnewline
Degrees of Freedom & 287 \tabularnewline
Number of Observations & 289 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=155554&T=1

[TABLE]
[ROW][C]Pearson Product Moment Correlation - Ungrouped Data[/C][/ROW]
[ROW][C]Statistic[/C][C]Variable X[/C][C]Variable Y[/C][/ROW]
[ROW][C]Mean[/C][C]494.896193771626[/C][C]23.3010380622837[/C][/ROW]
[ROW][C]Biased Variance[/C][C]82025.5739993535[/C][C]111.871313801319[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]286.40107192424[/C][C]10.576923645433[/C][/ROW]
[ROW][C]Covariance[/C][C]1938.49316368704[/C][/ROW]
[ROW][C]Correlation[/C][C]0.637712471597223[/C][/ROW]
[ROW][C]Determination[/C][C]0.406677196430639[/C][/ROW]
[ROW][C]T-Test[/C][C]14.0255641449584[/C][/ROW]
[ROW][C]p-value (2 sided)[/C][C]0[/C][/ROW]
[ROW][C]p-value (1 sided)[/C][C]0[/C][/ROW]
[ROW][C]Degrees of Freedom[/C][C]287[/C][/ROW]
[ROW][C]Number of Observations[/C][C]289[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=155554&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean494.89619377162623.3010380622837
Biased Variance82025.5739993535111.871313801319
Biased Standard Deviation286.4010719242410.576923645433
Covariance1938.49316368704
Correlation0.637712471597223
Determination0.406677196430639
T-Test14.0255641449584
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom287
Number of Observations289


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
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)
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')
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,hyperlink('arithmetic_mean.htm','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,hyperlink('biased.htm','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,hyperlink('biased1.htm','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,hyperlink('covariance.htm','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,hyperlink('pearson_correlation.htm','Correlation',''),header=TRUE)
a<-table.element(a,cxy,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('coeff_of_determination.htm','Determination',''),header=TRUE)
a<-table.element(a,cxy*cxy,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('ttest_statistic.htm','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,'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')