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 computationSun, 19 Dec 2010 15:36:17 +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/19/t1292772844wo80ee8h04wguk7.htm/, Retrieved Sun, 05 May 2024 05:24:08 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=112507, Retrieved Sun, 05 May 2024 05:24:08 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Competence to learn] [2010-11-17 07:43:53] [b98453cac15ba1066b407e146608df68]
-   PD  [Multiple Regression] [] [2010-12-01 13:36:35] [8d263c682820d5327cb5f02a8c3630cf]
- RMPD      [Pearson Correlation] [] [2010-12-19 15:36:17] [64cdeb58b12a5b72c79150d12c763b6f] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
162556
29790
87550
84738
54660
42634
40949
42312
37704
16275
25830
12679
18014
43556
24524
6532
7123
20813
37597
17821
12988
22330
13326
16189
7146
15824
26088
11326
8568
14416
3369
11819
6620
4519
2220
18562
10327
5336
2365
4069
7710
13718
4525
6869
4628
3653
1265
7489
4901
2284
3160
4150
7285
1134
4658
2384
3748
5371
1285
9327
5565
1528
3122
7317
2675
13253
880
2053
1424
4036
3045
5119
1431
554
1975
1286
1012
810
1280
666
1380
4608
876
814
514
5692
3642
540
2099
567
2001
2949
2253
6533
1889
3055
272
1414
2564
1383
1261
975
3366
576
1306
746
3192
2045
5477
1932
936
3437
5131
2397
1389
1503
402
2239
2234
837
10579
875
1395
1659
2647
3294
0
94
422
0
34
1558
0
43
0
316
115
0
0
0
389
0
1002
36
460
309
0
9
0
14
520
1766
0
458
20
0
0
98
405
0
0
0
0
483
454
0
0
757
0
0
0
36
0
203
0
90
0
71
0
0
972
531
604
283
23
638
699
149
226
0
275
0
141
0
28
0
2566
0
0
472
0
0
0
203
496
10
63
0
1136
0
0
0
267
474
534
0
15
397
0
1061
288
0
3
0
20
278
0
0
192
0
317
0
0
368
0
2
0
53
0
0
0
94
0
24
2332
0
0
131
0
0
206
0
167
622
885
0
365
364
0
0
0
0
226
307
0
0
0
188
0
138
0
0
0
125
0
282
335
0
813
176
0
0
249
0
333
0
0
30
0
249
0
165
453
0
53
382
0
0
0
0
30
290
0
0
366
2
0
209
384
0
0
365
0
49
3
133
32
368
1
0
0
0
0
0
0
22
0
0
0
0
0
0
0
96
1
0
81
0
26
125
304
0
0
0
0
0
119
0
0
0
312
60
587
135
0
0
514
0
0
0
1
0
0
58
180
0
0
0
0
0
0
448
227
174
0
0
121
607
0
0
0
530
571
0
78
2489
131
923
72
572
397
450
622
694
3425
562
4917
1442
529
2126
1061
776
611
1526
592
1182
621
989
438
726
1303
6341
1164
3310
1366
965
3256
1135
1270
661
1013
2844
11528
6526
2264
4461
3999
35624
9252
15236
18073
Dataseries Y:
Download CSV
Histogram 
1081
309
458
588
299
156
481
323
452
109
115
110
239
247
497
103
109
502
248
373
119
84
102
295
105
64
267
129
37
361
28
85
44
49
22
155
91
81
79
145
816
61
226
105
62
24
26
322
84
33
108
150
115
162
158
97
9
66
107
101
47
38
34
84
79
947
74
53
94
63
58
49
34
11
35
17
47
43
117
171
26
73
59
18
15
72
86
14
64
11
52
41
99
75
45
43
8
198
22
11
33
23
80
18
28
23
60
20
59
36
30
47
71
14
9
39
26
21
16
69
92
14
103
29
37
23
0
7
28
0
8
63
0
3
0
9
13
0
0
0
14
0
15
3
15
11
0
6
0
1
10
73
0
11
3
0
0
2
7
0
0
0
0
27
51
0
0
19
0
0
0
4
0
9
0
8
0
1
0
0
34
10
38
10
5
14
16
5
5
0
4
0
6
0
2
0
80
0
0
20
0
0
0
27
17
2
4
0
32
0
0
0
32
20
7
0
8
28
0
20
4
0
2
0
2
26
0
0
4
0
9
0
0
17
0
1
0
6
0
0
0
3
0
8
4
0
0
11
0
0
9
0
2
73
85
0
8
35
0
0
0
0
12
15
0
0
0
11
0
6
0
0
0
12
0
30
33
0
82
28
0
0
72
0
13
0
0
4
0
62
0
24
21
0
14
21
0
0
0
0
4
2
0
0
53
9
0
13
22
0
0
83
0
8
4
14
1
17
6
0
0
0
0
0
0
2
0
0
0
0
0
0
0
5
2
0
7
0
1
13
15
0
0
0
0
0
6
0
0
0
14
10
12
2
0
0
52
0
0
0
4
0
0
3
11
0
0
0
0
0
0
40
9
1
0
0
24
11
0
0
0
60
80
0
16
40
6
8
3
16
10
8
7
8
12
13
42
118
9
138
5
9
8
25
7
13
16
11
11
3
61
24
17
33
7
3
66
17
26
3
2
67
70
26
24
94
30
223
48
90
180

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'Gwilym Jenkins' @ 72.249.127.135

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112507&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'Gwilym Jenkins' @ 72.249.127.135






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean3473.8445475638146.5174013921114
Biased Variance138735304.78093912131.9109500918
Biased Standard Deviation11778.5951955630110.144954265240
Covariance993942.764339287
Correlation0.764353852224621
Determination0.584236811410618
T-Test24.5527469316421
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom429
Number of Observations431

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 3473.84454756381 & 46.5174013921114 \tabularnewline
Biased Variance & 138735304.780939 & 12131.9109500918 \tabularnewline
Biased Standard Deviation & 11778.5951955630 & 110.144954265240 \tabularnewline
Covariance & 993942.764339287 \tabularnewline
Correlation & 0.764353852224621 \tabularnewline
Determination & 0.584236811410618 \tabularnewline
T-Test & 24.5527469316421 \tabularnewline
p-value (2 sided) & 0 \tabularnewline
p-value (1 sided) & 0 \tabularnewline
Degrees of Freedom & 429 \tabularnewline
Number of Observations & 431 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112507&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]3473.84454756381[/C][C]46.5174013921114[/C][/ROW]
[ROW][C]Biased Variance[/C][C]138735304.780939[/C][C]12131.9109500918[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]11778.5951955630[/C][C]110.144954265240[/C][/ROW]
[ROW][C]Covariance[/C][C]993942.764339287[/C][/ROW]
[ROW][C]Correlation[/C][C]0.764353852224621[/C][/ROW]
[ROW][C]Determination[/C][C]0.584236811410618[/C][/ROW]
[ROW][C]T-Test[/C][C]24.5527469316421[/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]429[/C][/ROW]
[ROW][C]Number of Observations[/C][C]431[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112507&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112507&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
Mean3473.8445475638146.5174013921114
Biased Variance138735304.78093912131.9109500918
Biased Standard Deviation11778.5951955630110.144954265240
Covariance993942.764339287
Correlation0.764353852224621
Determination0.584236811410618
T-Test24.5527469316421
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom429
Number of Observations431


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