Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
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 1 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
Data Y:
213118 81767 153198 -26007 126942 157214 129352 234817 60448 47818 245546 48020 -1710 32648 95350 151352 288170 114337 37884 122844 82340 79801 165548 116384 134028 63838 74996 31080 32168 49857 87161 106113 80570 102129 301670 102313 88577 112477 191778 79804 128294 96448 93811 117520 69159 101792 210568 136996 121920 76403 108094 134759 188873 146216 156608 61348 50350 87720 99489 87419 94355 60326 94670 82425 59017 90829 80791 100423 131116 100269 27330 39039 106885 79285 118881 77623 114768 74015 69465 117869 60982 90131 138971 39625 102725 64239 90262 103960 106611 103345 95551 82903 63593 126910 37527 60247 112995 70184 130140 73221 76114 90534 108479 113761 68696 71561 59831 97890 101481 72954 67939 48022 86111 74020 57530 56364 84990 88590 77200 61262 110309 67000 93099 107577 62920 75832 60720 60793 57935 60720 60630 55637 60720 60887 60720 60505 60945 60720 60720 60720 58990 60720 56750 60894 63346 56535 60720 60835 60720 61016 58650 60438 60720 58625 60938 60720 60720 61490 60845 60720 60720 60720 60720 60830 63261 60720 60720 45689 60720 60720 60720 61564 60720 61938 60720 60951 60720 60745 60720 60720 71642 71641 55792 71873 62555 60370 64873 62041 65745 60720 59500 60720 61630 60720 60890 60720 113521 60720 60720 80045 60720 60720 60720 50804 87390 61656 65688 60720 48522 60720 60720 60720 57640 61977 62620 60720 60831 60646 60720 56225 60510 60720 60698 60720 60805 61404 60720 60720 65276 60720 63915 60720 60720 61686 60720 60743 60720 60349 60720 60720 60720 61360 60720 59818 72680 60720 60720 61808 60720 60720 53110 60720 64245 73007 82732 60720 54820 47705 60720 60720 60720 60720 72835 58856 60720 60720 60720 77655 60720 69817 60720 60720 60720 60798 60720 62452 64175 60720 67440 68136 60720 60720 56726 60720 70811 60720 60720 62045 60720 54323 60720 62841 81125 60720 59506 59365 60720 60720 60720 60720 60798 58790 60720 60720 61808 60735 60720 64016 54683 60720 60720 87192 60720 64107 60761 65990 59988 61167 60719 60720 60720 60720 60720 60720 60720 60722 60720 60720 60720 60720 60720 60720 60720 60379 60727 60720 60925 60720 60896 59734 62969 60720 60720 60720 60720 60720 59118 60720 60720 60720 58598 61124 59595 62065 60720 60720 78780 60720 60720 60720 60722 60720 60720 61600 59635 60720 60720 60720 60720 60720 60720 59781 76644 64820 60720 60720 56178 60436 60720 60720 60720 73433 41477 60720 62700 67804 59661 58620 60398 58580 62710 59325 60950 68060 83620 58456 52811 121173 63870 21001 70415 64230 59190 69351 64270 70694 68005 58930 58320 69980 69863 63255 57320 75230 79420 73490 35250 62285 69206 65920 69770 72683 -14545 55830 55174 67038 51252 157278 79510 77440 27284
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