Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
27 29 27 26 24 30 26 28 28 24 23 24 24 27 28 25 19 19 19 20 16 22 21 25 29 28 25 26 24 28 28 28 28 32 31 22 29 31 29 32 32 31 29 28 28 29 22 26 24 27 27 23 21 19 17 19 21 13 8 5 10 6 6 8 11 12 13 19 19 18 20
Data Y:
36 35 37 40 41 31 34 31 33 42 41 42 41 40 35 35 47 46 45 41 40 38 40 36 27 27 34 28 31 27 28 19 20 14 15 42 22 17 18 10 15 15 17 12 11 7 10 6 8 3 1 9 14 12 20 24 24 44 60 68 71 76 74 74 73 72 68 60 60 60 58
Data Z:
15 20 17 18 17 20 18 18 21 19 17 20 19 24 21 21 16 18 17 16 11 14 11 20 22 18 17 18 15 19 18 15 16 17 12 16 14 18 17 10 18 16 13 13 13 13 5 8 5 4 4 1 6 4 5 4 11 5 2 2 9 6 5 1 3 8 7 10 11 11 8
R Code
(rho12 <- cor(x, y)) (rho23 <- cor(y, z)) (rho13 <- cor(x, z)) (rhoxy_z <- (rho12-(rho13*rho23))/(sqrt(1-(rho13*rho13)) * sqrt(1-(rho23*rho23)))) (rhoxz_y <- (rho13-(rho12*rho23))/(sqrt(1-(rho12*rho12)) * sqrt(1-(rho23*rho23)))) (rhoyz_x <- (rho23-(rho12*rho13))/(sqrt(1-(rho12*rho12)) * sqrt(1-(rho13*rho13)))) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Pearson Product Moment Partial Correlation - Ungrouped Data',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Statistic',1,TRUE) a<-table.element(a,'Value',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Correlation r(xy)',header=TRUE) a<-table.element(a,rho12) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/partial_correlation1.htm','Partial Correlation r(xy.z)',''),header=TRUE) a<-table.element(a,rhoxy_z) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Correlation r(xz)',header=TRUE) a<-table.element(a,rho13) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/partial_correlation1.htm','Partial Correlation r(xz.y)',''),header=TRUE) a<-table.element(a,rhoxz_y) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Correlation r(yz)',header=TRUE) a<-table.element(a,rho23) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/partial_correlation1.htm','Partial Correlation r(yz.x)',''),header=TRUE) a<-table.element(a,rhoyz_x) 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