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

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Pearson Correlation] [Investigating ass...] [2007-10-22 22:08:56] [8cd6641b921d30ebe00b648d1481bba0]
F    D    [Pearson Correlation] [correlatie ] [2008-10-20 22:05:15] [0d500ce70fb61d771562626855e78bdd] [Current]
Feedback Forum
2008-10-24 09:54:10 [Siem Van Opstal] [reply] 
de student maakt een juist conclusie

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
572.775
574.205
579.799
590.072
593.408
597.141
595.404
612.117
628.232
628.884
620.735
569.028
567.456
573.100
584.428
589.379
590.865
595.454
594.167
611.324
612.613
610.763
593.530
542.722
536.662
543.599
555.332
560.854
562.325
554.788
547.344
565.464
577.992
579.714
569.323
506.971
500.857
509.127
509.933
517.009
519.164
512.238
509.239
518.585
522.975
525.192
516.847
455.626
454.724
461.251
470.439
474.605
476.049
471.067
470.984
502.831
512.927
509.673
484.015
431.328
436.087
Dataseries Y:
Download CSV
Histogram 
26.599
35.324
38.546
42.065
44.148
54.424
58.397
64.864
70.639
66.642
57.794
27.860
31.060
41.303
45.844
48.614
50.883
53.511
58.078
64.496
71.660
69.447
60.190
28.893
30.744
37.817
45.343
51.175
52.913
54.078
55.568
61.765
69.153
66.083
58.032
26.054
27.643
35.243
42.103
45.870
49.092
51.814
54.871
60.769
67.197
64.020
54.200
23.779
26.485
33.354
39.072
41.666
43.651
45.712
48.585
55.810
61.266
58.464
44.524
21.912
25.199

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'George Udny Yule' @ 72.249.76.132

\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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=18235&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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=18235&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18235&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'George Udny Yule' @ 72.249.76.132






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean543.61870491803348.2345409836066
Biased Variance2669.09224935555186.711179297501
Biased Standard Deviation51.663258214668913.6642299196662
Covariance389.932805995628
Correlation0.543305669810456
Determination0.295181050848188
T-Test4.97085914705947
p-value (2 sided)6.05740188452941e-06
p-value (1 sided)3.02870094226471e-06
Degrees of Freedom59
Number of Observations61

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 543.618704918033 & 48.2345409836066 \tabularnewline
Biased Variance & 2669.09224935555 & 186.711179297501 \tabularnewline
Biased Standard Deviation & 51.6632582146689 & 13.6642299196662 \tabularnewline
Covariance & 389.932805995628 \tabularnewline
Correlation & 0.543305669810456 \tabularnewline
Determination & 0.295181050848188 \tabularnewline
T-Test & 4.97085914705947 \tabularnewline
p-value (2 sided) & 6.05740188452941e-06 \tabularnewline
p-value (1 sided) & 3.02870094226471e-06 \tabularnewline
Degrees of Freedom & 59 \tabularnewline
Number of Observations & 61 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=18235&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]543.618704918033[/C][C]48.2345409836066[/C][/ROW]
[ROW][C]Biased Variance[/C][C]2669.09224935555[/C][C]186.711179297501[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]51.6632582146689[/C][C]13.6642299196662[/C][/ROW]
[ROW][C]Covariance[/C][C]389.932805995628[/C][/ROW]
[ROW][C]Correlation[/C][C]0.543305669810456[/C][/ROW]
[ROW][C]Determination[/C][C]0.295181050848188[/C][/ROW]
[ROW][C]T-Test[/C][C]4.97085914705947[/C][/ROW]
[ROW][C]p-value (2 sided)[/C][C]6.05740188452941e-06[/C][/ROW]
[ROW][C]p-value (1 sided)[/C][C]3.02870094226471e-06[/C][/ROW]
[ROW][C]Degrees of Freedom[/C][C]59[/C][/ROW]
[ROW][C]Number of Observations[/C][C]61[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=18235&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18235&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
Mean543.61870491803348.2345409836066
Biased Variance2669.09224935555186.711179297501
Biased Standard Deviation51.663258214668913.6642299196662
Covariance389.932805995628
Correlation0.543305669810456
Determination0.295181050848188
T-Test4.97085914705947
p-value (2 sided)6.05740188452941e-06
p-value (1 sided)3.02870094226471e-06
Degrees of Freedom59
Number of Observations61


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