Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
22 22 20 21 20 21 21 21 19 21 21 22 19 24 22 22 22 24 22 23 24 21 20 22 23 23 22 20 21 21 20 20 17 18 19 19 20 21 20 21 19 22 20 18 16 17 18 19 18 20 21 18 19 19 19 21 19 19 17 16 16 17 16 15 16 16 16 18 19 16 16 16
Data Y:
20 16 10 12 10 12 12 13 17 12 15 12 14 19 16 17 16 19 17 17 20 18 16 19 18 23 20 20 15 17 16 15 10 13 10 19 21 17 16 17 14 18 17 14 15 16 11 15 13 17 16 9 17 15 12 12 12 12 4 7 4 3 3 0 5 3 4 3 10 4 1 1
Data Z:
31 26 18 26 26 27 22 24 31 23 31 37 42 43 48 46 45 52 46 53 47 43 44 48 48 51 57 50 38 31 31 37 26 36 41 44 50 49 48 50 52 53 59 53 59 61 62 54 62 63 63 71 65 65 61 59 53 55 39 36 29 31 30 23 19 14 3 6 13 3 6 0
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