FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_correlation.wasp
Title produced by softwarePearson Correlation
Date of computationThu, 13 Dec 2007 11:36:48 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2007/Dec/13/t11975701376c2gw3bx7whi8m8.htm/, Retrieved Sun, 05 May 2024 13:20:08 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=3684, Retrieved Sun, 05 May 2024 13:20:08 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Pearson Correlation] [associatie prijs ...] [2007-12-13 18:36:48] [d02236afd58a58d13a748bbf41a37c2e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
36.429
32.720
34.490
34.749
30.945
34.302
30.400
25.543
32.188
34.395
27.148
26.634
34.257
34.794
38.927
38.512
33.325
40.658
32.719
29.323
34.384
35.153
30.937
28.079
39.703
35.245
41.324
40.802
37.732
41.527
33.441
32.885
36.804
35.593
34.355
27.045
45.587
40.370
48.209
40.275
36.760
42.588
35.365
33.014
36.944
35.649
34.814
26.041
45.636
40.040
47.725
40.263
43.339
47.283
40.492
35.768
28.539
42.971
36.144
26.950
Dataseries Y:
Download CSV
Histogram 
0.776323
0.803643
0.830645
0.761033
0.721871
0.729290
0.733387
0.758839
0.754233
0.775806
0.777533
0.770161
0.768000
0.763517
0.809839
0.836967
0.863710
0.850267
0.869452
0.921548
0.936467
0.983226
0.957600
0.933323
0.901355
0.924464
0.980613
1.019533
1.007839
1.071067
1.094581
1.109226
1.129067
1.123742
1.074000
1.044968
1.062903
1.066464
1.088484
1.117633
1.108419
1.105600
1.113065
1.110387
1.055900
1.037032
1.043267
1.038387
0.997839
1.015259
1.054613
1.083000
1.085032
1.099533
1.114419
1.103710
1.130179
1.158677
1.240667
1.216801

Tables (Output of Computation)





Summary of compuational 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 compuational 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=3684&T=0

[TABLE]
[ROW][C]Summary of compuational 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=3684&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=3684&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 compuational 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
Mean35.970550.973573416666667
Biased Variance30.78648418083330.0206354655107097
Biased Standard Deviation5.548556945804320.143650497773971
Covariance0.280202861597458
Correlation0.345689465124077
Determination0.119501206297771
T-Test2.80566464008607
p-value (2 sided)0.00682374276496134
p-value (1 sided)0.00341187138248067
Degrees of Freedom58
Number of Observations60

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 35.97055 & 0.973573416666667 \tabularnewline
Biased Variance & 30.7864841808333 & 0.0206354655107097 \tabularnewline
Biased Standard Deviation & 5.54855694580432 & 0.143650497773971 \tabularnewline
Covariance & 0.280202861597458 \tabularnewline
Correlation & 0.345689465124077 \tabularnewline
Determination & 0.119501206297771 \tabularnewline
T-Test & 2.80566464008607 \tabularnewline
p-value (2 sided) & 0.00682374276496134 \tabularnewline
p-value (1 sided) & 0.00341187138248067 \tabularnewline
Degrees of Freedom & 58 \tabularnewline
Number of Observations & 60 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=3684&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]35.97055[/C][C]0.973573416666667[/C][/ROW]
[ROW][C]Biased Variance[/C][C]30.7864841808333[/C][C]0.0206354655107097[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]5.54855694580432[/C][C]0.143650497773971[/C][/ROW]
[ROW][C]Covariance[/C][C]0.280202861597458[/C][/ROW]
[ROW][C]Correlation[/C][C]0.345689465124077[/C][/ROW]
[ROW][C]Determination[/C][C]0.119501206297771[/C][/ROW]
[ROW][C]T-Test[/C][C]2.80566464008607[/C][/ROW]
[ROW][C]p-value (2 sided)[/C][C]0.00682374276496134[/C][/ROW]
[ROW][C]p-value (1 sided)[/C][C]0.00341187138248067[/C][/ROW]
[ROW][C]Degrees of Freedom[/C][C]58[/C][/ROW]
[ROW][C]Number of Observations[/C][C]60[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=3684&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=3684&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
Mean35.970550.973573416666667
Biased Variance30.78648418083330.0206354655107097
Biased Standard Deviation5.548556945804320.143650497773971
Covariance0.280202861597458
Correlation0.345689465124077
Determination0.119501206297771
T-Test2.80566464008607
p-value (2 sided)0.00682374276496134
p-value (1 sided)0.00341187138248067
Degrees of Freedom58
Number of Observations60


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