Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
0.466 0.714 0.715 0.83 0.524 0.773 0.806 0.728 0.931 0.88 0.745 0.788 0.813 0.554 0.776 0.785 0.88 0.731 0.473 0.473 0.58 0.58 0.729 0.681 0.742 0.852 0.776 0.385 0.386 0.579 0.501 0.901 0.635 0.365 0.37 0.819 0.715 0.708 0.486 0.561 0.761 0.812 0.813 0.848 0.861 0.9 0.465 0.716 0.698 0.698 0.708 0.681 0.66 0.556 0.38 0.839 0.429 0.722 0.879 0.884 0.67 0.438 0.741 0.911 0.571 0.854 0.743 0.626 0.391 0.396 0.635 0.469 0.616 0.817 0.893 0.583 0.681 0.681 0.641 0.901 0.886 0.872 0.872 0.715 0.888 0.744 0.755 0.531 0.606 0.888 0.888 0.813 0.621 0.621 0.808 0.764 0.481 0.407 0.789 0.888 0.831 0.88 0.88 0.496 0.411 0.77 0.695 0.406 0.827 0.827 0.485 0.769 0.755 0.755 0.629 0.657 0.692 0.787 0.614 0.389 0.52 0.62 0.62 0.537 0.915 0.908 0.611 0.335 0.5 0.943 0.781 0.535 0.773 0.683 0.761 0.49 0.67 0.734 0.656 0.833 0.822 0.85 0.85 0.782 0.782 0.502 0.749 0.715 0.693 0.693 0.833 0.484 0.743 0.743 0.755 0.368 0.899 0.829 0.874 0.489 0.654 0.654 0.869 0.745 0.745 0.472 0.702 0.529 0.897 0.916 0.662 0.662 0.603 0.603 0.72 0.47 0.704 0.765 0.719 0.756 0.693 0.48 0.733 0.825 0.89 0.912 0.787 0.657 0.617 0.617 0.635 0.499 0.554 0.484
Data Y:
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
Data Z:
307 487 471 NA 370 353 591 554 590 591 514 424 427 488 484 575 591 447 459 558 461 451 442 444 560 441 572 406 412 338 445 565 NA NA NA 574 582 499 NA 397 521 521 386 523 571 550 NA 383 429 NA 457 463 450 NA 389 564 427 NA 522 559 468 464 527 570 419 526 NA 490 382 NA 417 403 462 580 506 577 509 520 360 562 484 561 448 428 542 440 501 427 NA NA 581 344 536 383 562 492 490 314 355 556 550 558 558 468 399 549 400 433 547 NA 354 557 496 NA 528 NA 474 477 505 369 462 347 NA 478 536 608 463 408 418 540 405 497 NA 389 480 NA 508 543 516 565 559 441 312 576 553 396 368 420 NA NA 311 452 551 NA NA 341 605 527 557 398 475 NA 578 477 NA 435 403 446 510 580 470 548 437 368 498 428 NA 479 497 550 472 407 542 385 590 532 587 521 NA 496 542 395 417 488
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation