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 computationFri, 23 Dec 2011 03:37:15 -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/23/t1324629462c74kdfms0cye7zk.htm/, Retrieved Mon, 29 Apr 2024 18:09:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160194, Retrieved Mon, 29 Apr 2024 18:09:40 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Pearson Correlation] [Connected vs Sepa...] [2010-10-04 07:35:56] [b98453cac15ba1066b407e146608df68]
- R PD  [Pearson Correlation] [Paper: Scatterplot] [2011-12-21 15:12:04] [f722e8e78b9e5c5ebaa2263f273aa636]
-   PD    [Pearson Correlation] [Paper: Scatterplo...] [2011-12-22 21:49:19] [f722e8e78b9e5c5ebaa2263f273aa636]
-   PD      [Pearson Correlation] [Paper: Scatterplo...] [2011-12-23 08:36:11] [f722e8e78b9e5c5ebaa2263f273aa636]
-    D          [Pearson Correlation] [Paper: Scatterplo...] [2011-12-23 08:37:15] [3e64eea457df40fcb7af8f28e1ee6256] [Current]
-    D            [Pearson Correlation] [Paper: Scatterplo...] [2011-12-23 08:38:29] [f722e8e78b9e5c5ebaa2263f273aa636]
- RM D            [Kendall tau Correlation Matrix] [Paper: Kendall ta...] [2011-12-23 08:54:00] [f722e8e78b9e5c5ebaa2263f273aa636]
- RM                [Kendall tau Correlation Matrix] [Paper: Pearson Co...] [2011-12-23 08:55:08] [f722e8e78b9e5c5ebaa2263f273aa636]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
24.90
25.06
25.10
24.92
25.46
25.89
25.39
25.38
25.25
24.88
25.00
25.00
24.07
23.60
23.18
23.25
23.04
22.77
22.25
22.41
22.50
22.91
22.88
21.69
21.19
21.56
22.00
22.13
22.27
22.30
21.94
22.40
22.77
22.90
23.03
23.05
22.41
22.26
21.90
22.01
22.62
22.76
23.40
23.63
24.05
23.82
23.71
23.95
23.61
23.98
23.56
23.99
24.33
24.48
24.31
24.38
24.63
25.54
25.75
25.73
25.85
25.78
25.86
26.86
27.36
27.38
26.58
27.65
27.73
27.18
27.32
27.30
26.90
26.70
26.75
26.41
26.29
27.51
27.91
27.70
27.28
28.25
27.62
27.30
25.94
24.99
25.50
24.42
26.58
25.84
26.76
26.74
26.68
25.55
26.40
25.19
23.94
24.20
24.20
23.07
24.07
25.02
24.65
24.68
24.63
24.49
25.05
24.31
23.90
23.68
24.50
25.22
25.48
26.00
26.07
26.06
26.22
26.70
27.20
26.77
26.11
25.43
24.99
25.51
24.00
23.86
22.96
23.41
23.17
24.12
23.87
24.27
24.40
24.16
25.15
25.09
24.60
24.33
24.14
24.36
25.40
26.15
26.77
26.94
26.33
26.24
26.23
25.88
27.00
26.91
27.15
27.78
28.73
28.83
28.68
27.56
27.15
27.41
27.47
28.76
28.47
27.94
27.23
27.01
26.15
26.11
27.20
27.36
27.33
27.43
28.92
29.45
29.01
29.25
29.14
29.64
30.40
30.62
31.25
31.75
31.30
30.70
31.03
31.46
31.28
31.03
30.95
31.17
31.29
31.91
32.10
31.71
31.90
32.02
32.65
33.77
33.51
34.26
34.21
34.13
34.73
34.73
34.57
34.80
33.98
34.40
34.21
34.61
35.25
35.23
35.00
34.52
33.82
34.35
34.81
34.96
36.69
36.42
36.44
37.41
36.40
36.15
35.78
36.95
36.14
36.36
37.31
37.58
38.00
37.23
37.00
37.87
37.70
36.17
36.56
37.70
38.77
39.02
39.88
39.56
38.52
37.20
38.58
39.41
39.08
38.81
38.73
38.70
39.23
39.82
39.97
40.37
39.54
39.21
39.07
39.78
39.40
38.92
Dataseries Y:
Download CSV
Histogram 
362
361
361
356
364
375
391
379
389
387
379
385
399
388
392
395
395
370
376
367
356
362
346
347
350
361
358
334
331
337
337
341
344
342
353
355
354
353
365
366
354
353
363
368
366
376
383
382
386
389
388
382
379
374
380
383
384
385
378
378
378
383
381
382
382
390
401
392
401
406
408
421
412
407
411
405
416
410
397
409
406
406
412
426
423
425
425
423
434
434
440
422
431
442
448
448
475
481
488
476
474
455
455
434
447
455
459
465
464
468
467
468
467
454
470
477
462
467
469
467
469
466
469
482
474
477
468
469
480
474
474
471
443
441
440
436
442
437
444
440
444
440
438
427
421
424
422
436
435
433
420
417
411
430
428
428
426
432
426
426
424
424
431
441
444
447
440
442
439
439
453
459
462
466
464
473
469
474
480
482
486
486
484
484
487
490
491
495
497
496
489
485
490
493
487
495
506
492
500
499
518
517
505
522
519
519
522
519
543
537
537
520
523
526
537
534
536
557
554
550
549
575
595
636
628
594
590
590
605
618
630
638
645
640
640
634
647
682
679
677
697
702
679
685
695
685
688
685
694
694
697
700
695
693
693
722
725
715

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gwilym Jenkins' @ jenkins.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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160194&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160194&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160194&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 time0 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean28.5815503875969466.554263565891
Biased Variance28.23159837149219090.24705546542
Biased Standard Deviation5.3133415447806695.3427871181948
Covariance460.12812565982
Correlation0.90476672745268
Determination0.818602831105432
T-Test33.9892319877137
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom256
Number of Observations258

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 28.5815503875969 & 466.554263565891 \tabularnewline
Biased Variance & 28.2315983714921 & 9090.24705546542 \tabularnewline
Biased Standard Deviation & 5.31334154478066 & 95.3427871181948 \tabularnewline
Covariance & 460.12812565982 \tabularnewline
Correlation & 0.90476672745268 \tabularnewline
Determination & 0.818602831105432 \tabularnewline
T-Test & 33.9892319877137 \tabularnewline
p-value (2 sided) & 0 \tabularnewline
p-value (1 sided) & 0 \tabularnewline
Degrees of Freedom & 256 \tabularnewline
Number of Observations & 258 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160194&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]28.5815503875969[/C][C]466.554263565891[/C][/ROW]
[ROW][C]Biased Variance[/C][C]28.2315983714921[/C][C]9090.24705546542[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]5.31334154478066[/C][C]95.3427871181948[/C][/ROW]
[ROW][C]Covariance[/C][C]460.12812565982[/C][/ROW]
[ROW][C]Correlation[/C][C]0.90476672745268[/C][/ROW]
[ROW][C]Determination[/C][C]0.818602831105432[/C][/ROW]
[ROW][C]T-Test[/C][C]33.9892319877137[/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]256[/C][/ROW]
[ROW][C]Number of Observations[/C][C]258[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160194&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160194&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
Mean28.5815503875969466.554263565891
Biased Variance28.23159837149219090.24705546542
Biased Standard Deviation5.3133415447806695.3427871181948
Covariance460.12812565982
Correlation0.90476672745268
Determination0.818602831105432
T-Test33.9892319877137
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom256
Number of Observations258


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = Valutakoersen Eur-Dollar ; par4 = 12 ;
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')