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, 09 Dec 2011 12:37:08 -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/09/t1323452334kae81rgjjeq96z4.htm/, Retrieved Tue, 30 Apr 2024 06:33:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=153416, Retrieved Tue, 30 Apr 2024 06:33:24 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [] [2010-12-05 18:56:24] [b98453cac15ba1066b407e146608df68]
- RMPD    [Pearson Correlation] [Workshop 10 Corre...] [2011-12-09 17:37:08] [5c44e6aad476a1bab98fc6774eca4c08] [Current]
- R  D      [Pearson Correlation] [Workshop 10 Corre...] [2011-12-09 17:47:32] [de8512d9b386046939a89973b76869e3]
-  M          [Pearson Correlation] [Paper SHW Correla...] [2011-12-16 14:31:45] [74be16979710d4c4e7c6647856088456]
- RM        [Pearson Correlation] [Paper SHW Correla...] [2011-12-16 14:30:34] [74be16979710d4c4e7c6647856088456]
- R  D      [Pearson Correlation] [] [2011-12-17 12:56:24] [1dc3906a3b5a6ec06dc921f387100c9e]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2242
2352
1179
1831
1496
1904
2833
1418
1439
1764
1706
2152
1929
2515
2147
1638
1222
2452
2527
1324
1383
4308
2144
1973
1226
1833
1403
1425
1840
1420
2970
1644
2547
1964
1381
1659
1559
1281
1944
1605
1386
2395
2699
2158
2922
2186
3261
1587
1900
1645
2429
3201
1583
1373
1579
2352
3004
1468
2888
1204
1111
2035
2312
4041
1677
2662
865
2253
893
1654
1054
1626
2445
1982
874
391
1138
1424
872
1530
1641
Dataseries Y:
Download CSV
Histogram 
344297
225548
111665
183167
143246
232317
328107
210907
165446
237213
230964
236785
215147
174724
174415
223632
124817
294424
265769
149112
152871
362301
244052
256462
196553
187681
167488
143756
243199
152299
346485
193339
148446
243060
162765
232138
164709
100750
243511
152474
132487
317394
244749
272458
351067
229242
324598
131069
224330
181633
271856
385534
149061
133131
170266
218946
286468
140344
265318
128423
172494
173260
254488
324799
210767
325107
106408
329267
73566
122774
130585
182079
220516
225060
99466
22938
97839
204271
95227
176508
195838

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153416&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'Gertrude Mary Cox' @ cox.wessa.net






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean1892.33333333333205773.728395062
Biased Variance480858.493827165600676694.39537
Biased Standard Deviation693.43961080050874837.6689535114
Covariance44654146.8166667
Correlation0.849841366029521
Determination0.722230347414922
T-Test14.3320730929142
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom79
Number of Observations81

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 1892.33333333333 & 205773.728395062 \tabularnewline
Biased Variance & 480858.49382716 & 5600676694.39537 \tabularnewline
Biased Standard Deviation & 693.439610800508 & 74837.6689535114 \tabularnewline
Covariance & 44654146.8166667 \tabularnewline
Correlation & 0.849841366029521 \tabularnewline
Determination & 0.722230347414922 \tabularnewline
T-Test & 14.3320730929142 \tabularnewline
p-value (2 sided) & 0 \tabularnewline
p-value (1 sided) & 0 \tabularnewline
Degrees of Freedom & 79 \tabularnewline
Number of Observations & 81 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153416&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]1892.33333333333[/C][C]205773.728395062[/C][/ROW]
[ROW][C]Biased Variance[/C][C]480858.49382716[/C][C]5600676694.39537[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]693.439610800508[/C][C]74837.6689535114[/C][/ROW]
[ROW][C]Covariance[/C][C]44654146.8166667[/C][/ROW]
[ROW][C]Correlation[/C][C]0.849841366029521[/C][/ROW]
[ROW][C]Determination[/C][C]0.722230347414922[/C][/ROW]
[ROW][C]T-Test[/C][C]14.3320730929142[/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]79[/C][/ROW]
[ROW][C]Number of Observations[/C][C]81[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=153416&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153416&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
Mean1892.33333333333205773.728395062
Biased Variance480858.493827165600676694.39537
Biased Standard Deviation693.43961080050874837.6689535114
Covariance44654146.8166667
Correlation0.849841366029521
Determination0.722230347414922
T-Test14.3320730929142
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom79
Number of Observations81


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