Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
396 297 559 967 270 143 1562 109 371 656 511 655 465 525 885 497 1436 612 865 385 567 639 963 398 410 966 801 892 513 469 683 643 535 625 264 992 238 818 937 70 507 260 503 927 1269 537 910 532 345 918 1635 330 557 1178 740 452 218 764 255 454 866 574 1276 379 825 798 663 1069 921 858 711 503 382 464 717 690 462 657 385 577 619 479 817 752 430 451 537 519 1000 637 465 437 711 299 248 1162 714 905 649 512 472 905 786 489 479 617 925 351 1144 669 707 458 214 599 572 897 819 720 273 508 506 451 699 407 465 245 370 316 603 154 229 577 192 617 411 975 146 705 184 200 274 502 382 964 537 438 369 417 276 514 822 389 466 1255 694 1024 400 397 350 719 1277 356 457 1402 600 480 595 436 230 651 1367 564 716 747 467 671 861 319 612 433 434 503 85 564 824 74 259 69 535 239 438 459 426 288 498 454 376 225 555 252 208 130 481 389 565 173 278 609 422 445 387 339 181 245 384 212 399 229 224 203 333 384 636 185 93 581 248 304 344 407 170 312 507 224 340 168 443 204 367 210 335 364 178 206 279 387 490 238 343 232 530 291 67 397 467 178 175 299 154 106 189 194 135 201 207 280 260 227 239 333 428 230 292 350 186 326 155 75 361 261 299 300 450 183 238 165 234 176 329
Data Y:
30 28 38 30 22 26 25 18 11 26 25 38 44 30 40 34 47 30 31 23 36 36 30 25 39 34 31 31 33 25 33 35 42 43 30 33 13 32 36 0 28 14 17 32 30 35 20 28 28 39 34 26 39 39 33 28 4 39 18 14 29 44 21 16 28 35 28 38 23 36 32 29 25 27 36 28 23 40 23 40 28 34 33 28 34 30 33 22 38 26 35 8 24 29 20 29 45 37 33 33 25 32 29 28 28 31 52 21 24 41 33 32 19 20 31 31 32 18 23 17 20 12 17 30 31 10 13 22 42 1 9 32 11 25 36 31 0 24 13 8 13 19 18 33 40 22 38 24 8 35 43 43 14 41 38 45 31 13 28 31 40 30 16 37 30 35 32 27 20 18 31 31 21 39 41 13 32 18 39 14 7 17 0 30 37 0 5 1 16 32 24 17 11 24 22 12 19 13 17 15 16 24 15 17 18 20 16 16 18 22 8 17 18 16 23 22 13 13 16 16 20 22 17 18 17 12 7 17 14 23 17 14 15 17 21 18 18 17 17 16 15 21 16 14 15 17 15 15 10 6 22 21 1 18 17 4 10 16 16 9 16 17 7 15 14 14 18 12 16 21 19 16 1 16 10 19 12 2 14 17 19 14 11 4 16 20 12 15 16
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