Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
10.413 10.709 10.662 10.570 10.297 10.635 10.872 10.296 10.383 10.431 10.574 10.653 10.805 10.872 10.625 10.407 10.463 10.556 10.646 10.702 11.353 11.346 11.451 11.964 12.574 13.031 13.812 14.544 14.931 14.886 16.005 17.064 15.168 16.050 15.839 15.137 14.954 15.648 15.305 15.579 16.348 15.928 16.171 15.937 15.713 15.594 15.683 16.438 17.032 17.696 17.745 19.394 20.148 20.108 18.584 18.441 18.391 19.178 18.079 18.483 19.644
Data Y:
2.25 2.33 2.18 2.13 1.97 1.89 2.11 2.16 2.28 2.25 2.18 2.28 2.2 2.18 2.23 2.18 2.22 2.24 2.09 2.05 1.98 2.09 2.1 2.2 2.44 2.64 2.68 2.75 2.83 3.04 3.13 3.17 3.33 3.38 3.49 3.55 3.68 3.69 3.82 3.9 3.88 4.01 4.13 4.29 4.35 4.34 4.1 4.04 4.11 4.01 4.13 3.64 3.58 3.82 4.02 4.22 4.64 4.41 4.32 3.71 2.68
Data Z:
1.1692 1.1702 1.2286 1.2613 1.2646 1.2262 1.1985 1.2007 1.2138 1.2266 1.2176 1.2218 1.249 1.2991 1.3408 1.3119 1.3014 1.3201 1.2938 1.2694 1.2165 1.2037 1.2292 1.2256 1.2015 1.1786 1.1856 1.2103 1.1938 1.202 1.2271 1.277 1.265 1.2684 1.2811 1.2727 1.2611 1.2881 1.3213 1.2999 1.3074 1.3242 1.3516 1.3511 1.3419 1.3716 1.3622 1.3896 1.4227 1.4684 1.457 1.4718 1.4748 1.5527 1.575 1.5557 1.5553 1.577 1.4975 1.4369 1.3322
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