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, 26 Oct 2008 02:30:05 -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/2008/Oct/26/t1225009888rfg6y7satnkbyya.htm/, Retrieved Wed, 29 May 2024 04:51:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=18811, Retrieved Wed, 29 May 2024 04:51:40 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Pearson Correlation] [correlation 3] [2008-10-20 20:09:14] [1ce0d16c8f4225c977b42c8fa93bc163]
F    D    [Pearson Correlation] [Correlation uitvo...] [2008-10-26 08:30:05] [35348cd8592af0baf5f138bd59921307] [Current]
Feedback Forum
2008-10-26 12:01:26 [Matthieu Blondeau] [reply] 
Ik had deze 2 berekeningen nog kunnen doen maar ik wou mij beperken tot de vergelijking van invoer onderling, uitvoer onderling en dan binnen EU en buiten EU.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
32.021
36.502
28.051
39.575
39.413
39.054
35.469
32.087
34.02
36.611
30.739
34.192
35.328
36.931
26.229
31.308
34.875
33.497
30.442
32.66
33.515
36.068
34.195
38.295
35.051
38.453
25.666
36.585
39.54
34.601
34.541
34.128
34.18
33.495
34.234
32.428
32.772
38.33
26.063
36.438
36.864
32.816
36.693
31.915
35.127
39.707
36.012
36.1
41.721
39.562
31.427
38.843
38.922
36.13
37.305
34.813
36.495
42.152
40.666
41.968
45.366
44.416
35.483
47.359
41.306
43.562
41.596
39.88
41.678
49.022
39.094
46.976
43.089
44.204
35.442
44.33
44.797
45.332
42.375
42.074
43.94
51.484
42.022
46.825
48.843
52.889
45.052
46.115
50.811
45.231
44.128
46.474
47.786
44.953
46.335
43.605
45.179
Dataseries Y:
Download CSV
Histogram 
102.304
92.21
94.286
109.345
109.86
117.246
111.809
111.632
112.409
121.071
107.623
113.404
112.668
95.427
92.277
105.719
107.744
103.928
99.202
98.849
101.745
113.954
107.602
105.701
105.36
99.026
88.89
108.373
116.241
105.09
109.849
106.491
108.557
116.774
107.602
100.462
107.728
99.877
86.387
110.637
118.557
106.845
113.374
104.78
111.239
129.093
113.399
104.622
127.335
105.192
104.149
124.768
123.846
122.667
129.199
114.973
121.42
139.194
126.568
120.341
131.997
108.813
113.012
136.439
125.17
139.811
142.757
134.35
135.657
162.163
129.7
140.799
142.35
122.134
125.81
141.304
142.108
143.785
131.428
137.147
136.219
153.798
133.063
143.912
149.099
140.254
129.512
143.443
162.133
155.445
147.506
172.927
175.685
179.308
186.447
166.948
172.428

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 3 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=18811&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=18811&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18811&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 time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean38.7821958762887122.904958762887
Biased Variance34.1683227142098466.75133484366
Biased Standard Deviation5.8453676286620221.6044285933153
Covariance105.847286028995
Correlation0.829515702112771
Determination0.688096300051644
T-Test14.4769192058691
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom95
Number of Observations97

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 38.7821958762887 & 122.904958762887 \tabularnewline
Biased Variance & 34.1683227142098 & 466.75133484366 \tabularnewline
Biased Standard Deviation & 5.84536762866202 & 21.6044285933153 \tabularnewline
Covariance & 105.847286028995 \tabularnewline
Correlation & 0.829515702112771 \tabularnewline
Determination & 0.688096300051644 \tabularnewline
T-Test & 14.4769192058691 \tabularnewline
p-value (2 sided) & 0 \tabularnewline
p-value (1 sided) & 0 \tabularnewline
Degrees of Freedom & 95 \tabularnewline
Number of Observations & 97 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=18811&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]38.7821958762887[/C][C]122.904958762887[/C][/ROW]
[ROW][C]Biased Variance[/C][C]34.1683227142098[/C][C]466.75133484366[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]5.84536762866202[/C][C]21.6044285933153[/C][/ROW]
[ROW][C]Covariance[/C][C]105.847286028995[/C][/ROW]
[ROW][C]Correlation[/C][C]0.829515702112771[/C][/ROW]
[ROW][C]Determination[/C][C]0.688096300051644[/C][/ROW]
[ROW][C]T-Test[/C][C]14.4769192058691[/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]95[/C][/ROW]
[ROW][C]Number of Observations[/C][C]97[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=18811&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18811&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
Mean38.7821958762887122.904958762887
Biased Variance34.1683227142098466.75133484366
Biased Standard Deviation5.8453676286620221.6044285933153
Covariance105.847286028995
Correlation0.829515702112771
Determination0.688096300051644
T-Test14.4769192058691
p-value (2 sided)0
p-value (1 sided)0
Degrees of Freedom95
Number of Observations97


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