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 computationSat, 18 Dec 2010 09:38:42 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/18/t12926650188o0c1tk8naxxoy1.htm/, Retrieved Tue, 30 Apr 2024 07:38:16 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=111809, Retrieved Tue, 30 Apr 2024 07:38:16 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Pearson Correlation] [] [2009-12-13 14:19:24] [ebd107afac1bd6180acb277edd05815b]
-    D  [Pearson Correlation] [Paper correlatie] [2010-12-04 12:46:36] [247f085ab5b7724f755ad01dc754a3e8]
-    D      [Pearson Correlation] [Pearson Correlation] [2010-12-18 09:38:42] [a960f182d9e6e851e9aaba5921cd26a4] [Current]
- RMPD        [Multiple Regression] [Multiple Regressi...] [2010-12-18 12:08:40] [8d09066a9d3795298da6860e7d4a4400]
-   P           [Multiple Regression] [Multiple Regressi...] [2010-12-19 09:30:57] [8d09066a9d3795298da6860e7d4a4400]
-    D            [Multiple Regression] [Multiple Regressi...] [2010-12-19 11:09:13] [8d09066a9d3795298da6860e7d4a4400]
-                   [Multiple Regression] [Multiple regressi...] [2010-12-23 08:04:48] [18a20458ff88c9ba38344d123a9464bc]
-               [Multiple Regression] [Multiple regressi...] [2010-12-23 07:54:31] [18a20458ff88c9ba38344d123a9464bc]
-   P             [Multiple Regression] [Multiple regressi...] [2010-12-23 07:58:24] [18a20458ff88c9ba38344d123a9464bc]
- RM          [Kendall tau Rank Correlation] [Kendall Tau Corre...] [2010-12-22 14:16:35] [8d09066a9d3795298da6860e7d4a4400]
-               [Kendall tau Rank Correlation] [Kendall's tau cor...] [2010-12-23 07:50:36] [18a20458ff88c9ba38344d123a9464bc]
-             [Pearson Correlation] [Pearson correlati...] [2010-12-23 07:48:17] [18a20458ff88c9ba38344d123a9464bc]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
10406
11398
14117
10785
10334
12371
7918
9907
12855
11579
9788
8786
12231
13604
15107
10853
13698
11536
8879
11005
13656
12631
10931
8064
12332
12452
14029
10003
12388
10492
9114
9304
9660
10569
8356
5998
10408
11420
11538
10860
10412
9521
7602
8197
10449
11561
8603
8080
10792
11943
11179
9939
10065
11021
9226
9554
11468
9937
8928
8395
11996
12385
15277
12657
11482
16797
11047
11794
13077
11725
10921
9334
11431
13085
16394
15701
14936
18282
12824
14784
16061
14814
14375
13644
16397
19254
21943
16731
22065
20937
18242
19017
20372
20561
18267
16170
23163
22469
26500
23660
23339
26174
24617
23891
23516
25638
21258
17436
26210
25227
21928
25452
22578
23904
20842
21042
24890
23126
16951
16972
19985
19296
21078
19493
18821
19657
15678
16406
18264
18288
15179
15443
19306
19094
25673
20077
21698
25943
19778
21333
25222
24512
20126
Dataseries Y:
Download CSV
Histogram 
206010
198112
194519
185705
180173
176142
203401
221902
197378
185001
176356
180449
180144
173666
165688
161570
156145
153730
182698
200765
176512
166618
158644
159585
163095
159044
155511
153745
150569
150605
179612
194690
189917
184128
175335
179566
181140
177876
175041
169292
166070
166972
206348
215706
202108
195411
193111
195198
198770
194163
190420
189733
186029
191531
232571
243477
227247
217859
208679
213188
216234
213586
209465
204045
200237
203666
241476
260307
243324
244460
233575
237217
235243
230354
227184
221678
217142
219452
256446
265845
248624
241114
229245
231805
219277
219313
212610
214771
211142
211457
240048
240636
230580
208795
197922
194596
194581
185686
178106
172608
167302
168053
202300
202388
182516
173476
166444
171297
169701
164182
161914
159612
151001
158114
186530
187069
174330
169362
166827
178037
186413
189226
191563
188906
186005
195309
223532
226899
214126
206903
204442
220375
214320
212588
205816
202196
195722
198563
229139
229527
211868
203555
195770

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'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111809&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111809&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111809&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'RServer@AstonUniversity' @ vre.aston.ac.uk






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean15413.6083916084197005.174825175
Biased Variance29439306.2102792687631033.039366
Biased Standard Deviation5425.8000525525526222.7197872259
Covariance-10903196.5085196
Correlation-0.0760964902909249
Determination0.00579067583459682
T-Test-0.90622338974399
p-value (2 sided)0.366363645669855
p-value (1 sided)0.183181822834928
Degrees of Freedom141
Number of Observations143

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 15413.6083916084 & 197005.174825175 \tabularnewline
Biased Variance & 29439306.2102792 & 687631033.039366 \tabularnewline
Biased Standard Deviation & 5425.80005255255 & 26222.7197872259 \tabularnewline
Covariance & -10903196.5085196 \tabularnewline
Correlation & -0.0760964902909249 \tabularnewline
Determination & 0.00579067583459682 \tabularnewline
T-Test & -0.90622338974399 \tabularnewline
p-value (2 sided) & 0.366363645669855 \tabularnewline
p-value (1 sided) & 0.183181822834928 \tabularnewline
Degrees of Freedom & 141 \tabularnewline
Number of Observations & 143 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111809&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]15413.6083916084[/C][C]197005.174825175[/C][/ROW]
[ROW][C]Biased Variance[/C][C]29439306.2102792[/C][C]687631033.039366[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]5425.80005255255[/C][C]26222.7197872259[/C][/ROW]
[ROW][C]Covariance[/C][C]-10903196.5085196[/C][/ROW]
[ROW][C]Correlation[/C][C]-0.0760964902909249[/C][/ROW]
[ROW][C]Determination[/C][C]0.00579067583459682[/C][/ROW]
[ROW][C]T-Test[/C][C]-0.90622338974399[/C][/ROW]
[ROW][C]p-value (2 sided)[/C][C]0.366363645669855[/C][/ROW]
[ROW][C]p-value (1 sided)[/C][C]0.183181822834928[/C][/ROW]
[ROW][C]Degrees of Freedom[/C][C]141[/C][/ROW]
[ROW][C]Number of Observations[/C][C]143[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111809&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111809&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
Mean15413.6083916084197005.174825175
Biased Variance29439306.2102792687631033.039366
Biased Standard Deviation5425.8000525525526222.7197872259
Covariance-10903196.5085196
Correlation-0.0760964902909249
Determination0.00579067583459682
T-Test-0.90622338974399
p-value (2 sided)0.366363645669855
p-value (1 sided)0.183181822834928
Degrees of Freedom141
Number of Observations143


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