Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
-22 -20 -17 -21 -16 -11 -19 -31 -36 -33 -26 -38 -27 -21 -17 -14 -16 -16 -15 -7 -9 2 -6 0 7 4 -5 2 0 3 10 4 5 7 1 -8 -3 -16 -22 -32 -30 -32 -38 -41 -46 -58 -55 -48 -58 -58 -68 -75 -77 -75 -71 -63 -61 -53 -41 -35 -33
Data Y:
46 50 49 48 50 47 50 49 51 52 48 55 56 43 44 50 49 47 46 50 49 53 54 56 56 58 53 51 52 53 56 54 54 56 59 62 62 73 76 80 77 81 80 80 81 80 77 71 71 64 64 47 41 35 34 33 23 16 16 8 9
Data Z:
-29 -31 -27 -28 -22 -22 -30 -33 -41 -39 -40 -49 -40 -36 -34 -30 -33 -36 -33 -33 -27 -22 -28 -27 -27 -23 -31 -28 -21 -23 -19 -20 -21 -26 -29 -31 -31 -47 -48 -58 -59 -57 -64 -65 -71 -72 -71 -66 -73 -68 -67 -69 -72 -68 -70 -67 -63 -61 -58 -57 -52
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation