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 computationMon, 20 Oct 2008 08:22:13 -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/20/t1224512566rfx9zsttkivbxwc.htm/, Retrieved Sun, 19 May 2024 14:41:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=17352, Retrieved Sun, 19 May 2024 14:41:45 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Univariate Data Series] [Werkloosheid oude...] [2008-10-13 15:46:01] [7d3039e6253bb5fb3b26df1537d500b4]
- RMPD    [Pearson Correlation] [Pearson correlati...] [2008-10-20 14:22:13] [35348cd8592af0baf5f138bd59921307] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1.97629
-0.0361
0.07117
1.23355
0.28578
0.2158
1.37532
0.88658
0.01751
-1.63386
-0.10037
1.12964
-0.51118
-2.30805
0.27471
-0.62217
-0.11151
-0.1141
-1.18533
-0.17558
-0.52126
-0.2211
-0.55288
-0.43851
-0.56762
1.81772
0.59778
0.30372
1.71796
-0.89267
0.57353
-1.01236
-0.48203
0.51141
-0.55989
-0.48264
1.47293
1.59422
-0.73087
-0.03829
0.99176
-1.86628
-0.43733
0.93608
0.38318
-0.30173
-1.00425
0.8098
1.45966
-2.19123
-0.40534
1.94067
0.48497
-0.2021
-1.16963
-0.36985
0.75979
0.19779
-0.45474
-0.9206
-0.10771
-1.20366
2.67487
1.57247
0.67842
0.11641
-0.46631
1.84623
-1.2914
0.96074
0.23254
0.86255
1.41143
-0.01301
0.20226
-2.78601
-0.158
0.83164
2.18853
-1.14609
0.23125
0.02265
1.37913
-0.24625
-0.00513
-0.963
-0.01937
-1.15867
-0.15707
-0.60072
-0.164
-0.6838
1.66298
-0.57167
-0.03546
-0.39706
0.71473
1.26745
-0.35679
-1.02532
Dataseries Y:
Download CSV
Histogram 
0.65741
-0.23311
0.74568
0.54108
-0.83516
0.13481
-0.28442
0.46668
-1.10642
-0.10782
0.05024
0.31088
0.17889
-1.05978
-0.97363
-0.56134
-1.2829
1.98664
0.07118
-0.40209
-0.19577
-0.39322
-0.09014
-0.19331
-0.6323
-0.37168
-0.73259
-0.81329
0.58775
-0.53212
1.47014
0.12605
0.87762
-0.47746
-2.24293
0.01562
1.13217
-0.07541
-0.44371
0.26008
0.01334
-0.96388
1.65731
-0.22507
-1.51857
-1.33558
0.52953
1.39326
1.12663
-0.01136
0.94034
0.78786
0.08694
0.0328
1.55286
-2.40488
0.16733
-0.40313
-1.74584
-0.69384
-0.13967
-0.45824
0.984
0.68723
-1.1106
0.54159
0.78018
-1.19219
-0.24727
1.65407
0.50304
0.91005
1.75622
0.12704
0.26597
1.08004
0.00937
0.38422
-0.53297
-0.82255
-0.04665
-0.56281
0.78689
-0.64757
-0.78003
-0.90153
1.12854
-0.38383
-0.59328
-0.12503
-0.48269
1.67105
0.686
-0.72765
0.30209
0.25766
1.12498
-0.31011
0.82459
1.17489

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=17352&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=17352&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=17352&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
Mean0.06697650.0213341
Biased Variance1.041985072536750.75637390885419
Biased Standard Deviation1.020776700623970.869697596210424
Covariance0.188212190421566
Correlation0.209886219620872
Determination0.044052225186741
T-Test2.12510248839930
p-value (2 sided)0.0360928588782516
p-value (1 sided)0.0180464294391258
Degrees of Freedom98
Number of Observations100

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 0.0669765 & 0.0213341 \tabularnewline
Biased Variance & 1.04198507253675 & 0.75637390885419 \tabularnewline
Biased Standard Deviation & 1.02077670062397 & 0.869697596210424 \tabularnewline
Covariance & 0.188212190421566 \tabularnewline
Correlation & 0.209886219620872 \tabularnewline
Determination & 0.044052225186741 \tabularnewline
T-Test & 2.12510248839930 \tabularnewline
p-value (2 sided) & 0.0360928588782516 \tabularnewline
p-value (1 sided) & 0.0180464294391258 \tabularnewline
Degrees of Freedom & 98 \tabularnewline
Number of Observations & 100 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=17352&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]0.0669765[/C][C]0.0213341[/C][/ROW]
[ROW][C]Biased Variance[/C][C]1.04198507253675[/C][C]0.75637390885419[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]1.02077670062397[/C][C]0.869697596210424[/C][/ROW]
[ROW][C]Covariance[/C][C]0.188212190421566[/C][/ROW]
[ROW][C]Correlation[/C][C]0.209886219620872[/C][/ROW]
[ROW][C]Determination[/C][C]0.044052225186741[/C][/ROW]
[ROW][C]T-Test[/C][C]2.12510248839930[/C][/ROW]
[ROW][C]p-value (2 sided)[/C][C]0.0360928588782516[/C][/ROW]
[ROW][C]p-value (1 sided)[/C][C]0.0180464294391258[/C][/ROW]
[ROW][C]Degrees of Freedom[/C][C]98[/C][/ROW]
[ROW][C]Number of Observations[/C][C]100[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=17352&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=17352&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
Mean0.06697650.0213341
Biased Variance1.041985072536750.75637390885419
Biased Standard Deviation1.020776700623970.869697596210424
Covariance0.188212190421566
Correlation0.209886219620872
Determination0.044052225186741
T-Test2.12510248839930
p-value (2 sided)0.0360928588782516
p-value (1 sided)0.0180464294391258
Degrees of Freedom98
Number of Observations100


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