Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1081 309 458 588 302 156 481 353 452 109 115 110 239 247 505 159 109 519 248 373 119 84 102 295 105 64 282 182 37 361 28 85 45 49 22 155 91 81 79 145 855 61 226 105 62 25 217 322 84 33 108 150 115 162 158 97 9 66 107 101 47 38 34 87 79 947 74 53 94 63 58 49 34 11 35 20 47 43 117 171 26 75 59 18 15 72 86 14 64 11 52 41 99 75 45 43 8 198 22 11 33 23 80 18 40 23 60 20 61 36 30 47 71 14 9 39 26 21 16 69 92 14 107 29 37 23 0 7 28 0 8 63 0 3 5 9 13 2 5 0 14 0 15 3 15 11 0 6 2 1 10 73 0 11 3 0 0 2 7 0 0 0 0 27 51 3 0 19 393 0 0 4 0 9 0 10 152 1 0 0 34 10 57 52 5 14 29 5 5 0 4 0 6 0 2 0 91 0 0 20 0 0 0 27 17 2 4 0 32 31 0 0 32 20 7 0 8 28 0 29 4 0 2 21 2 26 14 0 4 0 9 10 0 17 0 1 0 6 0 0 0 3 0 8 4 0 0 11 0 0 9 0 2 73 94 0 8 35 0 0 0 0 12 15 0 0 0 11 0 6 0 0 0 12 0 30 33 0 117 28 0 0 72 0 13 0 6 4 0 62 0 24 21 0 14 21 0 0 0 0 4 2 0 0 53 9 0 13 22 0 0 83 0 8 4 14 1 17 6 0 0 0 0 0 0 2 0 0 0 0 0 0 0 5 2 5 78 0 1 13 15 0 0 0 48 0 6 0 0 17 14 10 12 2 0 0 52 0 0 0 4 0 0 24 11 0 0 0 0 21 0 40 9 1 0 0 24 11 14 0 0 60 80 0 16 40 6 8 3 16 10 8 7 8 12 13 42 118 9 138 5 9 8 25 7 13 16 11 11 3 61 29 17 33 15 3 66 17 26 3 2 67 70 26 24 97 30 223 48 90 180
Data Y:
807 444 412 428 315 168 263 267 228 129 104 122 393 190 280 63 102 265 234 277 73 67 103 290 83 56 236 73 34 139 26 70 40 42 12 211 74 80 83 131 203 56 89 88 39 25 49 149 58 41 90 136 97 63 114 77 6 47 51 85 43 32 25 77 54 251 15 44 73 85 49 38 35 9 34 20 29 11 52 13 29 66 33 15 15 68 100 13 45 14 36 40 68 29 43 30 9 22 19 9 31 19 55 8 28 29 48 16 47 20 22 33 44 13 6 35 8 17 11 21 92 12 112 25 17 23 0 10 23 0 7 25 0 20 4 4 10 1 4 0 8 0 11 4 15 9 0 7 2 0 7 46 5 7 2 0 0 2 5 0 0 0 0 7 24 1 0 18 55 0 0 3 0 9 0 8 113 0 0 0 19 11 25 16 5 11 23 6 5 0 7 0 7 0 3 0 89 0 0 19 0 0 0 12 12 5 2 0 26 3 0 0 11 10 5 2 6 7 2 28 3 0 1 20 1 22 9 0 2 0 7 9 0 13 0 0 0 6 0 0 0 3 0 7 2 0 0 15 0 0 9 0 1 38 57 0 7 26 0 0 0 0 13 10 0 0 0 9 0 26 0 0 0 19 0 12 23 0 29 8 0 0 26 0 9 0 5 3 0 13 0 12 19 0 10 9 0 0 0 9 4 1 1 0 14 12 0 19 17 0 0 32 0 14 8 4 0 20 5 0 0 0 0 0 0 1 0 0 0 0 0 0 0 4 1 4 20 0 1 10 12 0 0 0 13 0 3 0 0 10 3 7 10 1 0 0 15 0 0 0 4 0 0 28 9 0 0 0 0 7 0 7 7 3 0 0 11 7 10 0 0 18 14 0 12 29 3 6 3 8 10 6 8 6 9 8 26 239 7 41 3 8 6 21 7 11 11 12 9 3 57 21 15 32 11 2 23 20 24 1 1 74 68 20 20 82 21 244 32 86 69
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
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('http://www.xycoon.com/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('http://www.xycoon.com/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('http://www.xycoon.com/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('http://www.xycoon.com/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('http://www.xycoon.com/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('http://www.xycoon.com/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('http://www.xycoon.com/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')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation