FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_CompareCorrelations.wasp
Title produced by softwareTesting difference between two correlations
Date of computationSun, 13 Dec 2015 12:37:05 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Dec/13/t1450010361m2voe0nbw4ua6f7.htm/, Retrieved Thu, 16 May 2024 12:13:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=286159, Retrieved Thu, 16 May 2024 12:13:10 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact111

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Univariate Data Series] [HPC Retail Sales] [2008-03-02 15:42:48] [74be16979710d4c4e7c6647856088456]
- RMPD    [Testing difference between two correlations] [Difference correl...] [2015-12-13 12:37:05] [b6628d6ea1d7803ffc2dc825d38ead4a] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
0.453
0.708
0.709
0.504
0.799
0.72
0.926
0.877
0.743
0.788
0.812
0.539
0.779
0.779
0.877
0.714
0.467
0.569
0.569
0.726
0.672
0.739
0.773
0.367
0.381
0.571
0.493
0.896
0.808
0.701
0.706
0.565
0.75
0.806
0.824
0.848
0.858
0.898
0.717
0.691
0.701
0.678
0.652
0.373
0.83
0.409
0.877
0.879
0.662
0.44
0.733
0.904
0.556
0.856
0.613
0.38
0.626
0.462
0.612
0.817
0.886
0.57
0.671
0.671
0.638
0.899
0.881
0.869
0.869
0.712
0.884
0.744
0.747
0.522
0.882
0.807
0.614
0.809
0.759
0.393
0.799
0.829
0.881
0.881
0.494
0.406
0.766
0.398
0.753
0.748
0.627
0.671
0.603
0.38
0.514
0.61
0.527
0.904
0.903
0.604
0.323
0.492
0.939
0.78
0.526
0.671
0.759
0.669
0.722
0.651
0.826
0.816
0.847
0.847
0.779
0.779
0.453
0.747
0.717
0.815
0.483
0.353
0.894
0.826
0.873
0.489
0.638
0.864
0.736
0.463
0.527
0.895
0.915
0.662
0.662
0.596
0.596
0.715
0.46
0.764
0.715
0.738
0.687
0.472
0.726
0.824
0.895
0.908
0.779
0.648
0.617
0.629
0.484
0.53
0.459
Dataseries Y:
Download CSV
Histogram 
439
488
517
353
587
464
596
576
505
445
433
487
511
583
581
468
417
484
500
497
427
554
591
421
419
461
435
568
575
596
505
402
529
504
457
527
562
558
433
438
470
468
524
445
567
436
510
556
417
412
525
568
450
521
508
395
429
417
458
568
549
578
517
518
393
561
483
555
439
444
545
447
481
434
576
388
539
557
466
332
337
562
561
498
489
469
536
386
550
502
531
476
507
399
477
371
462
524
604
477
390
456
529
421
503
415
456
459
543
534
541
538
439
476
578
553
351
420
409
355
462
395
595
547
552
483
473
579
518
395
460
532
560
457
534
416
403
498
429
478
509
547
485
411
535
387
585
533
567
523
500
519
381
417
495
Dataseries Z:
Download CSV
Histogram 
421
493
515
398
598
477
597
573
532
433
384
501
517
556
578
423
464
407
474
494
450
554
582
433
413
403
442
563
551
592
498
438
524
489
483
547
568
545
411
435
468
471
499
355
552
444
510
564
395
397
524
565
444
529
500
390
468
408
466
583
545
581
516
519
390
563
485
563
453
444
541
433
479
432
579
385
529
581
488
323
326
557
537
475
533
420
553
405
576
499
544
469
515
347
441
395
472
540
602
465
344
437
509
323
508
411
453
534
540
525
540
538
431
318
572
556
373
360
448
330
461
389
593
570
573
362
474
576
492
420
419
515
558
453
538
362
392
495
424
488
541
543
481
389
539
376
584
531
589
506
490
518
367
416
493

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 0 seconds \tabularnewline
R Server & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=286159&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=286159&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286159&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net






Testing difference between two Pearson Correlations
Pearson Correlation between X and Y0.616736780086294
Pearson Correlation between X and Z0.582897371744754
Type of testpaired
t-Test for dependent correlations1.34258104371163
P-value (H0: r(xy) = r(xz))0.181396230392482

\begin{tabular}{lllllllll}
\hline
Testing difference between two Pearson Correlations \tabularnewline
Pearson Correlation between X and Y & 0.616736780086294 \tabularnewline
Pearson Correlation between X and Z & 0.582897371744754 \tabularnewline
Type of test & paired \tabularnewline
t-Test for dependent correlations & 1.34258104371163 \tabularnewline
P-value (H0: r(xy) = r(xz)) & 0.181396230392482 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=286159&T=1

[TABLE]
[ROW][C]Testing difference between two Pearson Correlations[/C][/ROW]
[ROW][C]Pearson Correlation between X and Y[/C][C]0.616736780086294[/C][/ROW]
[ROW][C]Pearson Correlation between X and Z[/C][C]0.582897371744754[/C][/ROW]
[ROW][C]Type of test[/C][C]paired[/C][/ROW]
[ROW][C]t-Test for dependent correlations[/C][C]1.34258104371163[/C][/ROW]
[ROW][C]P-value (H0: r(xy) = r(xz))[/C][C]0.181396230392482[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=286159&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286159&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Testing difference between two Pearson Correlations
Pearson Correlation between X and Y0.616736780086294
Pearson Correlation between X and Z0.582897371744754
Type of testpaired
t-Test for dependent correlations1.34258104371163
P-value (H0: r(xy) = r(xz))0.181396230392482


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = paired ;
Parameters (R input):
par1 = paired ;
R code (references can be found in the software module):
par1 <- 'unpaired'
library(psych)
xy <- cor(x,y)
xz <- cor(x,z)
yz <- cor(y,z)
par2 <- length(x)
if(par1=='paired') {
r <- paired.r(xy,xz,yz,n=par2)
} else {
r <- paired.r(xy,xz,n=par2)
}
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')