Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_correlation.wasp

Title produced by software

Pearson Correlation

Date of computation

Wed, 15 Dec 2010 10:06:46 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/15/t1292407480nrguwpkf0457hw0.htm/, Retrieved Fri, 03 May 2024 12:52:56 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=110323, Retrieved Fri, 03 May 2024 12:52:56 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

115

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Pearson Correlation] [] [2010-12-15 10:06:46] [ff423994c38282a6d306f7d0147a5924] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

6654	5712	-999	-999	3.3	38.6	645	3	5	3
1	6.6	6.3	2	8.3	4.5	42	3	1	3
3.385	44.5	-999	-999	12.5	14	60	1	1	1
0.92	5.7	-999	-999	16.5	-999	25	5	2	3
2547	4603	2.1	1.8	3.9	69	624	3	5	4
10.55	179.5	9.1	0.7	9.8	27	180	4	4	4
0.023	0.3	15.8	3.9	19.7	19	35	1	1	1
160	169	5.2	1	6.2	30.4	392	4	5	4
3.3	25.6	10.9	3.6	14.5	28	63	1	2	1
52.16	440	8.3	1.4	9.7	50	230	1	1	1
0.425	6.4	11	1.5	12.5	7	112	5	4	4
465	423	3.2	0.7	3.9	30	281	5	5	5
0.55	2.4	7.6	2.7	10.3	-999	-999	2	1	2
187.1	419	-999	-999	3.1	40	365	5	5	5
0.075	1.2	6.3	2.1	8.4	3.5	42	1	1	1
3	25	8.6	0	8.6	50	28	2	2	2
0.785	3.5	6.6	4.1	10.7	6	42	2	2	2
0.2	5	9.5	1.2	10.7	10.4	120	2	2	2
1.41	17.5	4.8	1.3	6.1	34	-999	1	2	1
60	81	12	6.1	18.1	7	-999	1	1	1
529	680	-999	0.3	-999	28	400	5	5	5
27.66	115	3.3	0.5	3.8	20	148	5	5	5
0.12	1	11	3.4	14.4	3.9	16	3	1	2
207	406	-999	-999	12	39.3	252	1	4	1
85	325	4.7	1.5	6.2	41	310	1	3	1
36.33	119.5	-999	-999	13	16.2	63	1	1	1
0.101	4	10.4	3.4	13.8	9	28	5	1	3
1.04	5.5	7.4	0.8	8.2	7.6	68	5	3	4
521	655	2.1	0.8	2.9	46	336	5	5	5
100	157	-999	-999	10.8	22.4	100	1	1	1
35	56	-999	-999	-999	16.3	33	3	5	4
0.005	0.14	7.7	1.4	9.1	2.6	21.5	5	2	4
0.01	0.25	17.9	2	19.9	24	50	1	1	1
62	1320	6.1	1.9	8	100	267	1	1	1
0.122	3	8.2	2.4	10.6	-999	30	2	1	1
1.35	8.1	8.4	2.8	11.2	-999	45	3	1	3
0.023	0.4	11.9	1.3	13.2	3.2	19	4	1	3
0.048	0.33	10.8	2	12.8	2	30	4	1	3
1.7	6.3	13.8	5.6	19.4	5	12	2	1	1
3.5	10.8	14.3	3.1	17.4	6.5	120	2	1	1
250	490	-999	1	-999	23.6	440	5	5	5
0.48	15.5	15.2	1.8	17	12	140	2	2	2
10	115	10	0.9	10.9	20.2	170	4	4	4
1.62	11.4	11.9	1.8	13.7	13	17	2	1	2
192	180	6.5	1.9	8.4	27	115	4	4	4
2.5	12.1	7.5	0.9	8.4	18	31	5	5	5
4.288	39.2	-999	-999	12.5	13.7	63	2	2	2
0.28	1.9	10.6	2.6	13.2	4.7	21	3	1	3
4.235	50.4	7.4	2.4	9.8	9.8	52	1	1	1
6.8	179	8.4	1.2	9.6	29	164	2	3	2
0.75	12.3	5.7	0.9	6.6	7	225	2	2	2
3.6	21	4.9	0.5	5.4	6	225	3	2	3
14.83	98.2	-999	-999	2.6	17	150	5	5	5
55.5	175	3.2	0.6	3.8	20	151	5	5	5
1.4	12.5	-999	-999	11	12.7	90	2	2	2
0.06	1	8.1	2.2	10.3	3.5	-999	3	1	2
0.9	2.6	11	2.3	13.3	4.5	60	2	1	2
2	12.3	4.9	0.5	5.4	7.5	200	3	1	3
0.104	2.5	13.2	2.6	15.8	2.3	46	3	2	2
4.19	58	9.7	0.6	10.3	24	210	4	3	4
3.5	3.9	12.8	6.6	19.4	3	14	2	1	1
4.05	17	-999	-999	-999	13	38	3	1	1

Dataseries Y:

Download CSV

Histogram

6654	5712	-999	-999	3.3	38.6	645	3	5	3
1	6.6	6.3	2	8.3	4.5	42	3	1	3
3.385	44.5	-999	-999	12.5	14	60	1	1	1
0.92	5.7	-999	-999	16.5	-999	25	5	2	3
2547	4603	2.1	1.8	3.9	69	624	3	5	4
10.55	179.5	9.1	0.7	9.8	27	180	4	4	4
0.023	0.3	15.8	3.9	19.7	19	35	1	1	1
160	169	5.2	1	6.2	30.4	392	4	5	4
3.3	25.6	10.9	3.6	14.5	28	63	1	2	1
52.16	440	8.3	1.4	9.7	50	230	1	1	1
0.425	6.4	11	1.5	12.5	7	112	5	4	4
465	423	3.2	0.7	3.9	30	281	5	5	5
0.55	2.4	7.6	2.7	10.3	-999	-999	2	1	2
187.1	419	-999	-999	3.1	40	365	5	5	5
0.075	1.2	6.3	2.1	8.4	3.5	42	1	1	1
3	25	8.6	0	8.6	50	28	2	2	2
0.785	3.5	6.6	4.1	10.7	6	42	2	2	2
0.2	5	9.5	1.2	10.7	10.4	120	2	2	2
1.41	17.5	4.8	1.3	6.1	34	-999	1	2	1
60	81	12	6.1	18.1	7	-999	1	1	1
529	680	-999	0.3	-999	28	400	5	5	5
27.66	115	3.3	0.5	3.8	20	148	5	5	5
0.12	1	11	3.4	14.4	3.9	16	3	1	2
207	406	-999	-999	12	39.3	252	1	4	1
85	325	4.7	1.5	6.2	41	310	1	3	1
36.33	119.5	-999	-999	13	16.2	63	1	1	1
0.101	4	10.4	3.4	13.8	9	28	5	1	3
1.04	5.5	7.4	0.8	8.2	7.6	68	5	3	4
521	655	2.1	0.8	2.9	46	336	5	5	5
100	157	-999	-999	10.8	22.4	100	1	1	1
35	56	-999	-999	-999	16.3	33	3	5	4
0.005	0.14	7.7	1.4	9.1	2.6	21.5	5	2	4
0.01	0.25	17.9	2	19.9	24	50	1	1	1
62	1320	6.1	1.9	8	100	267	1	1	1
0.122	3	8.2	2.4	10.6	-999	30	2	1	1
1.35	8.1	8.4	2.8	11.2	-999	45	3	1	3
0.023	0.4	11.9	1.3	13.2	3.2	19	4	1	3
0.048	0.33	10.8	2	12.8	2	30	4	1	3
1.7	6.3	13.8	5.6	19.4	5	12	2	1	1
3.5	10.8	14.3	3.1	17.4	6.5	120	2	1	1
250	490	-999	1	-999	23.6	440	5	5	5
0.48	15.5	15.2	1.8	17	12	140	2	2	2
10	115	10	0.9	10.9	20.2	170	4	4	4
1.62	11.4	11.9	1.8	13.7	13	17	2	1	2
192	180	6.5	1.9	8.4	27	115	4	4	4
2.5	12.1	7.5	0.9	8.4	18	31	5	5	5
4.288	39.2	-999	-999	12.5	13.7	63	2	2	2
0.28	1.9	10.6	2.6	13.2	4.7	21	3	1	3
4.235	50.4	7.4	2.4	9.8	9.8	52	1	1	1
6.8	179	8.4	1.2	9.6	29	164	2	3	2
0.75	12.3	5.7	0.9	6.6	7	225	2	2	2
3.6	21	4.9	0.5	5.4	6	225	3	2	3
14.83	98.2	-999	-999	2.6	17	150	5	5	5
55.5	175	3.2	0.6	3.8	20	151	5	5	5
1.4	12.5	-999	-999	11	12.7	90	2	2	2
0.06	1	8.1	2.2	10.3	3.5	-999	3	1	2
0.9	2.6	11	2.3	13.3	4.5	60	2	1	2
2	12.3	4.9	0.5	5.4	7.5	200	3	1	3
0.104	2.5	13.2	2.6	15.8	2.3	46	3	2	2
4.19	58	9.7	0.6	10.3	24	210	4	3	4
3.5	3.9	12.8	6.6	19.4	3	14	2	1	1
4.05	17	-999	-999	-999	13	38	3	1	1

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=110323&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=110323&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=110323&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code