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 computationWed, 28 Oct 2009 09:48:27 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/28/t1256744969j9qtniivmxxkgu6.htm/, Retrieved Mon, 06 May 2024 02:22:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=51466, Retrieved Mon, 06 May 2024 02:22:04 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Pearson Correlation] [Workshop4_part3.1] [2009-10-28 15:48:27] [7a6d96edf94be87996de99db5f42363b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
12,27798392
12,25821433
12,25330445
12,3759884
12,39702766
12,39618875
12,39925583
12,38231325
12,38979738
12,40800073
12,40728138
12,39492284
12,39064583
12,37196413
12,37580276
12,48589516
12,507469
12,50486156
12,4951425
12,46115275
12,47919803
12,49654956
12,49637379
12,48664324
12,46405424
12,44840687
12,44850104
12,53273622
12,56147528
12,56584977
12,55335058
12,53064218
12,53507059
12,53223477
12,53214456
12,52466091
12,50673264
12,49552814
12,48745869
12,56813953
12,58171752
12,58553595
12,57136138
12,54780602
12,55198589
12,54322322
12,54400096
12,53118055
12,52531152
12,52216723
12,51102104
12,57695321
12,58013652
12,58553595
12,53719488
12,50553259
12,49072889
12,50259304
12,48437083
12,44979499
12,44253905
12,4133185
12,36892252
12,46286758
12,47224887
12,44769638
12,43178489
12,40255184
12,41756863
12,4233631
12,40917266
12,37615292
12,37617401
12,32631488
12,33199579
12,42091786
12,42252587
12,4170181
12,40941341
12,41415535
12,45201433
12,48491199
12,5000362
12,51739556
12,52074834
12,49661313
12,51353161
Dataseries Y:
Download CSV
Histogram 
246339
244019
245953
279806
283111
281097
275964
270694
271901
274412
272433
268361
268586
264768
269974
304744
309365
308347
298427
289231
291975
294912
293488
290555
284736
281818
287854
316263
325412
326011
328282
317480
317539
313737
312276
309391
302950
300316
304035
333476
337698
335932
323931
313927
314485
313218
309664
302963
298989
298423
301631
329765
335083
327616
309119
295916
291413
291542
284678
276475
272566
264981
263290
296806
303598
286994
276427
266424
267153
268381
262522
255542
253158
243803
250741
280445
285257
270976
261076
255603
260376
263903
264291
263276
262572
256167
264221

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'George Udny Yule' @ 72.249.76.132

\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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=51466&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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51466&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51466&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'George Udny Yule' @ 72.249.76.132






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean12.4664260780460288196.034482759
Biased Variance0.00569366969157299606795966.676972
Biased Standard Deviation0.075456409214678324633.2289129333
Covariance1600.94475995123
Correlation0.851408670455435
Determination0.724896724126691
T-Test14.965790122817
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom85
Number of Observations87

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 12.4664260780460 & 288196.034482759 \tabularnewline
Biased Variance & 0.00569366969157299 & 606795966.676972 \tabularnewline
Biased Standard Deviation & 0.0754564092146783 & 24633.2289129333 \tabularnewline
Covariance & 1600.94475995123 \tabularnewline
Correlation & 0.851408670455435 \tabularnewline
Determination & 0.724896724126691 \tabularnewline
T-Test & 14.965790122817 \tabularnewline
p-value (2 sided) & 0 \tabularnewline
p-value (1 sided) & 0 \tabularnewline
Degrees of Freedom & 85 \tabularnewline
Number of Observations & 87 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=51466&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]12.4664260780460[/C][C]288196.034482759[/C][/ROW]
[ROW][C]Biased Variance[/C][C]0.00569366969157299[/C][C]606795966.676972[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]0.0754564092146783[/C][C]24633.2289129333[/C][/ROW]
[ROW][C]Covariance[/C][C]1600.94475995123[/C][/ROW]
[ROW][C]Correlation[/C][C]0.851408670455435[/C][/ROW]
[ROW][C]Determination[/C][C]0.724896724126691[/C][/ROW]
[ROW][C]T-Test[/C][C]14.965790122817[/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]85[/C][/ROW]
[ROW][C]Number of Observations[/C][C]87[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51466&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51466&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
Mean12.4664260780460288196.034482759
Biased Variance0.00569366969157299606795966.676972
Biased Standard Deviation0.075456409214678324633.2289129333
Covariance1600.94475995123
Correlation0.851408670455435
Determination0.724896724126691
T-Test14.965790122817
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom85
Number of Observations87


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