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, 23 Dec 2011 05:09:11 -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/23/t1324634980nwyca8651thewun.htm/, Retrieved Mon, 29 Apr 2024 23:47:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160229, Retrieved Mon, 29 Apr 2024 23:47:20 +0000
QR Codes:

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

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]
- R PD  [Multiple Regression] [bambix] [2011-12-09 12:38:27] [379dab8110dbf77cfcc4b7951c3a599f]
-   P     [Multiple Regression] [bambix] [2011-12-09 12:42:52] [379dab8110dbf77cfcc4b7951c3a599f]
-           [Multiple Regression] [Multiple Regression] [2011-12-09 13:03:13] [74b1e5a3104ff0b2404b2865a63336ad]
-    D        [Multiple Regression] [Multiple Linear R...] [2011-12-09 14:02:33] [74b1e5a3104ff0b2404b2865a63336ad]
-               [Multiple Regression] [Multiple linear r...] [2011-12-23 09:00:38] [74b1e5a3104ff0b2404b2865a63336ad]
- RMPD              [Pearson Correlation] [Multicolinearitei...] [2011-12-23 10:09:11] [f9bdb25068ab2a4592adc645515299ca] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
504
502
710
1154
402
179
2452
111
763
650
933
728
764
1186
724
1758
845
1382
514
692
847
1397
533
636
1370
1090
1149
715
639
1213
1111
728
885
410
1293
1186
1348
689
284
1304
1556
770
676
487
1051
2089
330
694
1410
1090
690
218
862
255
454
1208
785
1208
1096
887
1335
1190
1257
1030
658
542
651
888
913
637
900
385
784
891
779
1001
1265
586
765
737
766
1272
653
703
437
936
459
1586
1053
1051
846
732
632
1128
971
711
738
820
1369
1501
893
902
782
214
795
874
1275
1079
443
977
677
696
156
785
192
606
1234
146
866
200
1350
735
522
724
276
859
1031
511
1708
884
1201
559
478
1005
1574
575
1812
755
668
905
682
1613
811
716
1034
732
1060
852
0
85
0
0
0
0
809
1134
0
0
74
259
69
309
0
690
Dataseries Y:
Download CSV
Histogram 
96
75
70
134
72
8
169
1
88
98
106
122
57
139
87
176
114
121
103
135
123
99
74
103
158
116
102
132
62
150
143
50
141
48
141
83
112
79
33
149
126
85
84
68
50
101
20
101
150
118
99
8
88
21
30
97
163
132
161
89
160
139
104
103
66
163
93
85
150
143
107
22
85
91
131
140
156
81
137
102
72
161
30
120
49
71
76
85
146
165
89
168
48
149
75
107
116
165
155
165
121
156
86
13
113
112
133
169
30
121
82
148
12
146
23
84
163
4
81
18
118
76
55
62
16
98
137
50
152
163
142
77
59
94
128
63
127
59
118
110
45
96
128
41
146
147
121
185
0
4
0
0
0
0
85
157
0
0
7
12
0
37
0
62

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

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






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean804.92073170731793.4268292682927
Biased Variance187383.8168872692498.29342653183
Biased Standard Deviation432.87852440063349.9829313519308
Covariance16355.9726919048
Correlation0.751332836844958
Determination0.564501031721493
T-Test14.4909317846965
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom162
Number of Observations164

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 804.920731707317 & 93.4268292682927 \tabularnewline
Biased Variance & 187383.816887269 & 2498.29342653183 \tabularnewline
Biased Standard Deviation & 432.878524400633 & 49.9829313519308 \tabularnewline
Covariance & 16355.9726919048 \tabularnewline
Correlation & 0.751332836844958 \tabularnewline
Determination & 0.564501031721493 \tabularnewline
T-Test & 14.4909317846965 \tabularnewline
p-value (2 sided) & 0 \tabularnewline
p-value (1 sided) & 0 \tabularnewline
Degrees of Freedom & 162 \tabularnewline
Number of Observations & 164 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160229&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]804.920731707317[/C][C]93.4268292682927[/C][/ROW]
[ROW][C]Biased Variance[/C][C]187383.816887269[/C][C]2498.29342653183[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]432.878524400633[/C][C]49.9829313519308[/C][/ROW]
[ROW][C]Covariance[/C][C]16355.9726919048[/C][/ROW]
[ROW][C]Correlation[/C][C]0.751332836844958[/C][/ROW]
[ROW][C]Determination[/C][C]0.564501031721493[/C][/ROW]
[ROW][C]T-Test[/C][C]14.4909317846965[/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]162[/C][/ROW]
[ROW][C]Number of Observations[/C][C]164[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160229&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160229&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
Mean804.92073170731793.4268292682927
Biased Variance187383.8168872692498.29342653183
Biased Standard Deviation432.87852440063349.9829313519308
Covariance16355.9726919048
Correlation0.751332836844958
Determination0.564501031721493
T-Test14.4909317846965
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom162
Number of Observations164


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