Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
0.458 0.714 0.715 0.831 0.521 0.772 0.804 0.724 0.928 0.879 0.743 0.789 0.812 0.549 0.78 0.784 0.88 0.717 0.471 0.471 0.579 0.579 0.729 0.678 0.74 0.846 0.774 0.376 0.384 0.575 0.498 0.9 0.631 0.361 0.365 0.815 0.71 0.71 0.483 0.549 0.758 0.812 0.819 0.85 0.861 0.899 0.461 0.718 0.695 0.695 0.705 0.679 0.657 0.553 0.377 0.836 0.422 0.722 0.879 0.882 0.666 0.436 0.736 0.908 0.566 0.854 0.747 0.62 0.387 0.402 0.632 0.466 0.615 0.817 0.89 0.581 0.678 0.678 0.639 0.9 0.885 0.872 0.872 0.714 0.887 0.744 0.75 0.527 0.599 0.886 0.886 0.81 0.618 0.618 0.804 0.764 0.476 0.402 0.753 0.887 0.828 0.881 0.881 0.495 0.411 0.768 0.692 0.405 0.823 0.823 0.475 0.759 0.752 0.752 0.627 0.656 0.682 0.787 0.612 0.384 0.517 0.616 0.616 0.533 0.914 0.904 0.608 0.328 0.496 0.941 0.781 0.531 0.77 0.679 0.757 0.484 0.672 0.727 0.652 0.83 0.819 0.843 0.843 0.782 0.782 0.463 0.745 0.718 0.69 0.69 0.825 0.483 0.744 0.744 0.749 0.36 0.896 0.827 0.874 0.494 0.646 0.646 0.868 0.74 0.74 0.468 0.701 0.53 0.896 0.914 0.662 0.662 0.6 0.6 0.716 0.467 0.702 0.764 0.716 0.752 0.69 0.477 0.73 0.824 0.891 0.911 0.783 0.653 0.618 0.618 0.632 0.497 0.543 0.473
Data Y:
421 493 515 NA 398 400 598 477 597 573 532 433 384 501 517 556 578 423 464 449 407 474 494 450 554 534 582 433 413 403 442 563 NA NA NA 551 592 498 580 438 524 489 483 547 568 545 NA 411 435 NA 468 471 499 NA 355 552 444 448 510 564 395 397 524 565 444 529 367 500 390 NA 468 408 466 583 545 581 516 519 390 563 485 563 453 444 541 433 479 432 NA NA 579 385 529 404 581 488 483 323 326 NA 557 537 475 533 420 553 NA 405 578 NA NA 576 499 NA 544 621 469 NA 515 347 441 395 NA 472 540 602 465 344 437 509 323 508 NA 411 453 NA 534 540 525 540 538 431 318 572 556 373 360 448 NA NA 330 461 NA 509 NA 389 593 570 573 362 474 NA 576 492 427 420 NA 419 515 558 453 538 362 392 495 424 484 488 541 543 481 389 539 376 584 531 589 506 NA 490 518 367 416 493
Data Z:
382 512 463 538 370 422 595 496 598 581 517 402 431 487 489 566 597 495 467 490 457 502 460 445 556 491 582 415 458 351 439 566 NA NA NA 567 588 505 NA 418 495 491 470 521 570 556 NA 450 446 NA 476 475 482 NA 371 563 434 444 517 555 457 464 571 570 427 533 366 496 386 NA 457 407 417 585 534 582 511 517 357 552 488 563 445 433 544 457 499 438 NA NA 586 378 514 350 570 498 401 306 432 561 548 559 507 447 387 540 563 382 615 NA 420 528 504 NA 545 NA 470 NA 515 330 492 368 NA 461 540 584 454 401 440 519 381 512 NA 400 485 NA 457 539 539 554 549 397 375 570 557 356 389 413 NA NA 301 421 NA 528 NA 345 595 576 522 433 475 NA 573 490 458 438 NA 499 503 577 458 546 474 388 498 428 NA 499 507 549 424 381 540 390 587 533 591 532 NA 483 535 378 428 489
Paired or Unpaired?
paired
unpaired
paired
Chart options
R Code
library(psych) xy <- cor(x,y,use = 'pairwise') xz <- cor(x,z,use = 'pairwise') yz <- cor(y,z,use = 'pairwise') nx <- length(na.omit(x)) ny <- length(na.omit(y)) nz <- length(na.omit(z)) nxy <- min(nx,ny) nxz <- min(nx,nz) if(par1=='paired') { r <- paired.r(xy,xz,yz,n=nxy,n2=nxz) } else { r <- paired.r(xy,xz,n=nxy,n2=nxz) } r load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Testing difference between two Pearson Correlations',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Pearson Correlation between X and Y',header=TRUE) a<-table.element(a,xy) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Pearson Correlation between X and Z',header=TRUE) a<-table.element(a,xz) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Type of test',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) if(par1=='paired') { a<-table.row.start(a) a<-table.element(a,'t-Test for dependent correlations',header=TRUE) a<-table.element(a,r$t) a<-table.row.end(a) } else { a<-table.row.start(a) a<-table.element(a,'z-Test for independent correlations',header=TRUE) a<-table.element(a,r$z) a<-table.row.end(a) } a<-table.row.start(a) a<-table.element(a,'P-value (H0: r(xy) = r(xz))',header=TRUE) a<-table.element(a,r$p) 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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation