Free Statistics

of Irreproducible Research!

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, 24 Nov 2011 07:50:00 -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/Nov/24/t13221390560cbx0spz7km29f4.htm/, Retrieved Thu, 28 Mar 2024 08:54:50 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=146704, Retrieved Thu, 28 Mar 2024 08:54:50 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact122
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [ws7/2] [2011-11-24 10:28:55] [8ae0a4da1b3ee81f40dbba5e42914d07]
- RMPD    [Pearson Correlation] [correlation Yt en...] [2011-11-24 12:50:00] [242bbde8f74d68805b56d9ecebfdbe63] [Current]
-    D      [Pearson Correlation] [correlatie Yt en ...] [2011-11-24 12:57:28] [75512e061a94450f738c2449abbaac12]
- R  D        [Pearson Correlation] [WS7 - 2] [2012-11-05 12:44:22] [fe055a25191a04e375a94ef97fddf389]
-    D          [Pearson Correlation] [WS7 - 3] [2012-11-05 12:48:38] [fe055a25191a04e375a94ef97fddf389]
Feedback Forum

Post a new message
Dataseries X:
22274
14819
15136
13704
19638
7551
8019
6509
6634
11166
7508
4275
4944
5441
1689
1522
1416
1594
1909
2599
1262
1199
4404
1166
1122
886
778
4436
1890
3107
1038
300
988
2008
1522
1336
976
798
869
1260
578
2359
736
1690
1201
813
778
687
1270
671
1559
489
773
629
637
277
776
1651
377
222
1068
399
547
668
451
724
853
434
730
612
Dataseries Y:
72772
45104
44525
41169
31118
28435
22162
20202
17773
17094
15153
11218
10796
9594
9309
8556
8041
7639
6884
6642
6321
6216
5865
5799
5695
5644
5446
5395
5363
5338
5160
5091
5057
5039
4880
4735
4693
4653
4586
4398
3974
3858
3826
3819
3556
3372
3193
3126
3104
2967
2848
2748
2649
2625
2572
2548
2477
2442
2392
2372
2346
2251
2230
2225
2220
2205
2193
2116
2102
2099




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=146704&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=146704&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=146704&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 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
Mean3062.157142857148885.92857142857
Biased Variance20620585.932449150007885.009184
Biased Standard Deviation4540.9895322989912247.7706138376
Covariance52988068.6925466
Correlation0.939121096403597
Determination0.881948433710293
T-Test22.5392871342568
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom68
Number of Observations70

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 3062.15714285714 & 8885.92857142857 \tabularnewline
Biased Variance & 20620585.932449 & 150007885.009184 \tabularnewline
Biased Standard Deviation & 4540.98953229899 & 12247.7706138376 \tabularnewline
Covariance & 52988068.6925466 \tabularnewline
Correlation & 0.939121096403597 \tabularnewline
Determination & 0.881948433710293 \tabularnewline
T-Test & 22.5392871342568 \tabularnewline
p-value (2 sided) & 0 \tabularnewline
p-value (1 sided) & 0 \tabularnewline
Degrees of Freedom & 68 \tabularnewline
Number of Observations & 70 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=146704&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]3062.15714285714[/C][C]8885.92857142857[/C][/ROW]
[ROW][C]Biased Variance[/C][C]20620585.932449[/C][C]150007885.009184[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]4540.98953229899[/C][C]12247.7706138376[/C][/ROW]
[ROW][C]Covariance[/C][C]52988068.6925466[/C][/ROW]
[ROW][C]Correlation[/C][C]0.939121096403597[/C][/ROW]
[ROW][C]Determination[/C][C]0.881948433710293[/C][/ROW]
[ROW][C]T-Test[/C][C]22.5392871342568[/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]68[/C][/ROW]
[ROW][C]Number of Observations[/C][C]70[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=146704&T=1

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

As an alternative you can also use a QR Code:  

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

Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean3062.157142857148885.92857142857
Biased Variance20620585.932449150007885.009184
Biased Standard Deviation4540.9895322989912247.7706138376
Covariance52988068.6925466
Correlation0.939121096403597
Determination0.881948433710293
T-Test22.5392871342568
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom68
Number of Observations70



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