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 15:05:22 -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/t1224536752es3eqp9xwvoywbh.htm/, Retrieved Sun, 19 May 2024 16:35:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=18152, Retrieved Sun, 19 May 2024 16:35:57 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Pearson Correlation] [Correlation 4] [2008-10-20 20:11:08] [1ce0d16c8f4225c977b42c8fa93bc163]
-    D  [Pearson Correlation] [correlation 6] [2008-10-20 20:33:06] [1ce0d16c8f4225c977b42c8fa93bc163]
F    D      [Pearson Correlation] [correlation 8] [2008-10-20 21:05:22] [8758b22b4a10c08c31202f233362e983] [Current]
Feedback Forum
2008-10-27 23:27:16 [a7e076854c32462fd499d2de3f6d4e86] [reply] 
Correcte interpretatie

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 
34.679
32.566
37.111
35.977
41.811
43.465
36.466
39.188
35.318
39.76
35.102
38.829
36.304
35.199
33.761
30.579
36.467
35.855
30.077
35.45
32.956
33.903
35.319
37.387
34.77
33.383
32.644
34.524
40.451
36.605
35.849
38.199
34.092
36.435
36.733
36.452
34.213
35.314
32.192
35.523
37.877
33.927
35.5
36.819
35.191
42.832
40.462
38.249
47.931
39.777
39.834
41.529
42.861
43.481
39.493
41.667
42.179
45.282
42.322
44.709
51.212
41.708
43.986
44.914
42.518
49.019
47.452
46.669
42.104
52.736
40.953
46.101
47.181
41.855
43.147
44.226
50.592
50.436
44.366
49.226
44.548
50.587
47.689
51.718
49.893
52.021
48.384
48.765
58.453
56.863
47.538
66.204
55.972
56.435
63.573
59.091
61.658

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18152&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
Mean38.782195876288742.0888969072165
Biased Variance34.168322714209859.895269288341
Biased Standard Deviation5.845367628662027.73920340140644
Covariance37.4704058224871
Correlation0.819746940507032
Determination0.671985046470639
T-Test13.9506610063620
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 & 42.0888969072165 \tabularnewline
Biased Variance & 34.1683227142098 & 59.895269288341 \tabularnewline
Biased Standard Deviation & 5.84536762866202 & 7.73920340140644 \tabularnewline
Covariance & 37.4704058224871 \tabularnewline
Correlation & 0.819746940507032 \tabularnewline
Determination & 0.671985046470639 \tabularnewline
T-Test & 13.9506610063620 \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=18152&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]42.0888969072165[/C][/ROW]
[ROW][C]Biased Variance[/C][C]34.1683227142098[/C][C]59.895269288341[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]5.84536762866202[/C][C]7.73920340140644[/C][/ROW]
[ROW][C]Covariance[/C][C]37.4704058224871[/C][/ROW]
[ROW][C]Correlation[/C][C]0.819746940507032[/C][/ROW]
[ROW][C]Determination[/C][C]0.671985046470639[/C][/ROW]
[ROW][C]T-Test[/C][C]13.9506610063620[/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=18152&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18152&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.782195876288742.0888969072165
Biased Variance34.168322714209859.895269288341
Biased Standard Deviation5.845367628662027.73920340140644
Covariance37.4704058224871
Correlation0.819746940507032
Determination0.671985046470639
T-Test13.9506610063620
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')