Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1418 869 1530 2172 901 463 3201 371 1192 1583 1439 1764 1495 1373 2187 1491 4041 1706 2152 1036 1882 1929 2242 1220 1289 2515 2147 2352 1638 1222 1812 1677 1579 1731 807 2452 829 1940 2662 186 1499 865 1793 2527 2747 1324 2702 1383 1179 2099 4308 918 1831 3373 1713 1438 496 2253 744 1161 2352 2144 4691 1112 2694 1973 1769 3148 2474 2084 1954 1226 1389 1496 2269 1833 1268 1943 893 1762 1403 1425 1857 1840 1502 1441 1420 1416 2970 1317 1644 870 1654 1054 937 3004 2008 2547 1885 1626 1468 2445 1964 1381 1369 1659 2888 1290 2845 1982 1904 1391 602 1743 1559 2014 2143 2146 874 1590 1590 1210 2072 1281 1401 834 1105 1272 1944 391 761 1605 530 1988 1386 2395 387 1742 620 449 800 1684 1050 2699 1606 1502 1204 1138 568 1459 2158 1111 1421 2833 1955 2922 1002 1060 956 2186 3604 1035 1417 3261 1587 1424 1701 1249 946 1926 3352 1641 2035 2312 1369 1577 2201 961 1900 1254 1335 1597 207 1645 2429 151 474 141 1639 872 1318 1018 1383 1314 1335 1403 910 616 1407 771 766 473 1376 1232 1521 572 1059 1544 1230 1206 1205 1255 613 721 1109 740 1126 728 689 592 995 1613 2048 705 301 1803 799 861 1186 1451 628 1161 1463 742 979 675 1241 676 1049 620 1081 1688 736 617 812 1051 1656 705 945 554 1597 982 222 1212 1143 435 532 882 608 459 578 826 509 717 637 857 830 652 707 954 1461 672 778 1141 680 1090 616 285 1145 733 888 849 1182 528 642 947 819 757 894
Data Y:
210907 120982 176508 179321 123185 52746 385534 33170 101645 149061 165446 237213 173326 133131 258873 180083 324799 230964 236785 135473 202925 215147 344297 153935 132943 174724 174415 225548 223632 124817 221698 210767 170266 260561 84853 294424 101011 215641 325107 7176 167542 106408 96560 265769 269651 149112 175824 152871 111665 116408 362301 78800 183167 277965 150629 168809 24188 329267 65029 101097 218946 244052 341570 103597 233328 256462 206161 311473 235800 177939 207176 196553 174184 143246 187559 187681 119016 182192 73566 194979 167488 143756 275541 243199 182999 135649 152299 120221 346485 145790 193339 80953 122774 130585 112611 286468 241066 148446 204713 182079 140344 220516 243060 162765 182613 232138 265318 85574 310839 225060 232317 144966 43287 155754 164709 201940 235454 220801 99466 92661 133328 61361 125930 100750 224549 82316 102010 101523 243511 22938 41566 152474 61857 99923 132487 317394 21054 209641 22648 31414 46698 131698 91735 244749 184510 79863 128423 97839 38214 151101 272458 172494 108043 328107 250579 351067 158015 98866 85439 229242 351619 84207 120445 324598 131069 204271 165543 141722 116048 250047 299775 195838 173260 254488 104389 136084 199476 92499 224330 135781 74408 81240 14688 181633 271856 7199 46660 17547 133368 95227 152601 98146 79619 59194 139942 118612 72880 65475 99643 71965 77272 49289 135131 108446 89746 44296 77648 181528 134019 124064 92630 121848 52915 81872 58981 53515 60812 56375 65490 80949 76302 104011 98104 67989 30989 135458 73504 63123 61254 74914 31774 81437 87186 50090 65745 56653 158399 46455 73624 38395 91899 139526 52164 51567 70551 84856 102538 86678 85709 34662 150580 99611 19349 99373 86230 30837 31706 89806 62088 40151 27634 76990 37460 54157 49862 84337 64175 59382 119308 76702 103425 70344 43410 104838 62215 69304 53117 19764 86680 84105 77945 89113 91005 40248 64187 50857 56613 62792 72535
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