Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2.155 2.172 2.15 2.533 2.058 2.16 2.26 2.498 2.695 2.799 2.947 2.93 2.318 2.54 2.57 2.669 2.45 2.842 3.44 2.678 2.981 2.26 2.844 2.546 2.456 2.295 2.379 2.479 2.057 2.28 2.351 2.276 2.548 2.311 2.201 2.725 2.408 2.139 1.898 2.537 2.069 2.063 2.524 2.437 2.189 2.793 2.074 2.622 2.278 2.144 2.427 2.139 1.828 2.072 1.8 1.758 2.246 1.987 1.868 2.514 2.121
Data Y:
22.782 19.169 13.807 29.743 25.591 29.096 26.482 22.405 27.044 17.97 18.73 19.684 19.785 18.479 10.698 31.956 29.506 34.506 27.165 26.736 23.691 18.157 17.328 18.205 20.995 17.382 9.367 31.124 26.551 30.651 25.859 25.1 25.778 20.418 18.688 20.424 24.776 19.814 12.738 31.566 30.111 30.019 31.934 25.826 26.835 20.205 17.789 20.52 22.518 15.572 11.509 25.447 24.09 27.786 26.195 20.516 22.759 19.028 16.971 20.036 22.485
Data Z:
17 14 15 16 16 15 13 12 13 13 12 10 14 14 15 16 16 15 15 13 15 15 15 13 16 16 14 16 15 14 15 15 14 13 12 13 12 9 10 8 11 8 8 8 4 6 8 10 5 6 5 9 8 6 9 11 11 8 11 11 13
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