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:03:43 -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/t1224540343hrfm2y843rbh5sd.htm/, Retrieved Sun, 19 May 2024 18:06:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=18233, Retrieved Sun, 19 May 2024 18:06:43 +0000
QR Codes:

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

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] [Q10 totaal & 50+] [2008-10-20 22:03:43] [d96f761aa3e94002e7c05c3c847d2c79] [Current]
Feedback Forum
2008-10-27 21:07:09 [Jan Helsen] [reply] 
Je conclusie lijkt me aannemelijk omdat hoe meer werkzoekenden er zijn, hoe meer werkzoekenden 50+ er zijn. Ik begrijp je conclusie (hoe meer werkzoekenden, hoe meer werkzoekenden in de kleinste groep).
Ik vraag me echter wel af waarom je dan toch een negatieve correlatie hebt? Er klopt met andere woorden iets niet...

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
577992
565464
547344
554788
562325
560854
555332
543599
536662
542722
593530
610763
612613
611324
594167
595454
590865
589379
584428
573100
567456
569028
620735
628884
628232
612117
595404
597141
593408
590072
579799
574205
572775
572942
619567
625809
619916
587625
565742
557274
560576
548854
531673
525919
511038
498662
555362
564591
541657
527070
509846
514258
516922
507561
492622
490243
469357
477580
528379
533590
Dataseries Y:
Download CSV
Histogram 
44277
44976
45406
47379
49200
50221
51573
53091
53337
54978
57885
67099
67169
69796
70600
71982
73957
75273
76322
77078
77954
79238
82179
83834
83744
84861
86478
88290
90287
91230
92380
92506
94172
94728
96581
97344
98346
98214
98366
98768
99832
99976
99961
100164
99964
99304
104008
104644
103950
104263
104241
105141
106018
105866
105944
106379
105082
104915
107026
107306

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=18233&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]2 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=18233&T=0

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






Pearson Product Moment Correlation - Ungrouped Data
StatisticVariable XVariable Y
Mean563109.93333333384751.3833333333
Biased Variance1567381133.32889395204188.036389
Biased Standard Deviation39590.164603457919879.7431582098
Covariance-266937875.465537
Correlation-0.333513090174541
Determination0.111230981317772
T-Test-2.69421610290041
p-value (2 sided)0.00921273426097081
p-value (1 sided)0.00460636713048541
Degrees of Freedom58
Number of Observations60

\begin{tabular}{lllllllll}
\hline
Pearson Product Moment Correlation - Ungrouped Data \tabularnewline
Statistic & Variable X & Variable Y \tabularnewline
Mean & 563109.933333333 & 84751.3833333333 \tabularnewline
Biased Variance & 1567381133.32889 & 395204188.036389 \tabularnewline
Biased Standard Deviation & 39590.1646034579 & 19879.7431582098 \tabularnewline
Covariance & -266937875.465537 \tabularnewline
Correlation & -0.333513090174541 \tabularnewline
Determination & 0.111230981317772 \tabularnewline
T-Test & -2.69421610290041 \tabularnewline
p-value (2 sided) & 0.00921273426097081 \tabularnewline
p-value (1 sided) & 0.00460636713048541 \tabularnewline
Degrees of Freedom & 58 \tabularnewline
Number of Observations & 60 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=18233&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]563109.933333333[/C][C]84751.3833333333[/C][/ROW]
[ROW][C]Biased Variance[/C][C]1567381133.32889[/C][C]395204188.036389[/C][/ROW]
[ROW][C]Biased Standard Deviation[/C][C]39590.1646034579[/C][C]19879.7431582098[/C][/ROW]
[ROW][C]Covariance[/C][C]-266937875.465537[/C][/ROW]
[ROW][C]Correlation[/C][C]-0.333513090174541[/C][/ROW]
[ROW][C]Determination[/C][C]0.111230981317772[/C][/ROW]
[ROW][C]T-Test[/C][C]-2.69421610290041[/C][/ROW]
[ROW][C]p-value (2 sided)[/C][C]0.00921273426097081[/C][/ROW]
[ROW][C]p-value (1 sided)[/C][C]0.00460636713048541[/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=18233&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18233&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
Mean563109.93333333384751.3833333333
Biased Variance1567381133.32889395204188.036389
Biased Standard Deviation39590.164603457919879.7431582098
Covariance-266937875.465537
Correlation-0.333513090174541
Determination0.111230981317772
T-Test-2.69421610290041
p-value (2 sided)0.00921273426097081
p-value (1 sided)0.00460636713048541
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')