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:47:32 -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/t1323452876y9xz0nfil1gztv3.htm/, Retrieved Thu, 02 May 2024 18:26:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=153417, Retrieved Thu, 02 May 2024 18:26:49 +0000
QR Codes:

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

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] [de8512d9b386046939a89973b76869e3]
- R  D      [Pearson Correlation] [Workshop 10 Corre...] [2011-12-09 17:47:32] [5c44e6aad476a1bab98fc6774eca4c08] [Current]
-  M          [Pearson Correlation] [Paper SHW Correla...] [2011-12-16 14:31:45] [74be16979710d4c4e7c6647856088456]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
127766
130767
46341
93176
71180
168237
170875
146283
85584
143983
136368
112642
121527
85646
98579
131741
53907
171975
136815
69107
108016
79336
160604
174141
129847
85298
82981
73815
132190
67808
131722
106175
72413
120336
93913
181248
115338
68370
103950
84396
55515
209056
142775
132432
214921
78876
122037
53782
139296
89455
147866
195663
95757
59238
82036
102996
105805
71299
146123
20112
112494
10901
120691
151511
146761
159676
58391
155135
23824
25157
76669
96971
77494
102255
153197
5841
61023
127748
14336
86146
112283
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 time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153417&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=153417&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153417&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'Herman Ole Andreas Wold' @ wold.wessa.net






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean106394.320987654205773.728395062
Biased Variance2054386830.66245600676694.39537
Biased Standard Deviation45325.344242072874837.6689535114
Covariance2630568342.37577
Correlation0.765937255981689
Determination0.58665988010076
T-Test10.5889515128166
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 & 106394.320987654 & 205773.728395062 \tabularnewline
Biased Variance & 2054386830.6624 & 5600676694.39537 \tabularnewline
Biased Standard Deviation & 45325.3442420728 & 74837.6689535114 \tabularnewline
Covariance & 2630568342.37577 \tabularnewline
Correlation & 0.765937255981689 \tabularnewline
Determination & 0.58665988010076 \tabularnewline
T-Test & 10.5889515128166 \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=153417&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]106394.320987654[/C][C]205773.728395062[/C][/ROW]
[ROW][C]Biased Variance[/C][C]2054386830.6624[/C][C]5600676694.39537[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]45325.3442420728[/C][C]74837.6689535114[/C][/ROW]
[ROW][C]Covariance[/C][C]2630568342.37577[/C][/ROW]
[ROW][C]Correlation[/C][C]0.765937255981689[/C][/ROW]
[ROW][C]Determination[/C][C]0.58665988010076[/C][/ROW]
[ROW][C]T-Test[/C][C]10.5889515128166[/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=153417&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153417&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
Mean106394.320987654205773.728395062
Biased Variance2054386830.66245600676694.39537
Biased Standard Deviation45325.344242072874837.6689535114
Covariance2630568342.37577
Correlation0.765937255981689
Determination0.58665988010076
T-Test10.5889515128166
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')