Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
6 7 2 11 13 3 17 10 4 12 7 11 3 5 1 12 18 8 6 1
Data Y:
3.2 3.3 3.0 3.5 3.7 2.7 3.6 3.5 3.8 3.4 3.7 3.5 2.8 3.8 4.3 3.3 3.6 3.6 3.3 2.8
Data Z:
10.24 10.89 9 12.25 13.69 7.29 12.96 12.25 14.44 11.56 13.69 12.25 7.84 14.44 18.49 10.89 12.96 12.96 10.89 7.84
Paired or Unpaired?
1
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