Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
126.2 127.0 127.1 123.6 125.0 134.7 140.7 137.9 142.1 137.5 136.4 140.7 120.0 123.8 132.2 136.4 144.2 144.9 138.9 129.3 133.3 137.5 140.0 146.3 124.6 130.2 139.0 149.1 151.9 149.0 127.8 113.8 117.5 123.2 127.3 131.5 110.8 112.7 116.9 127.3 130.8 130.6 124.1 113.8 112.3 112.5 112.7 120.4 104.6 107.9 108.5 110.9 111.5 124.5 133.3 125.9 121.1 108.9 105.5 114.8
Data Y:
111.2 116.7 114.8 100.0 98.8 106.3 119.5 120.7 121.1 112.4 108.2 113.6 106.7 114.3 117.3 109.6 109.9 112.5 116.1 112.0 113.3 107.9 108.2 114.8 105.6 111.9 113.6 108.4 111.1 112.5 112.6 108.7 108.9 104.5 105.9 111.1 102.2 108.3 112.3 110.8 108.6 103.8 96.6 88.0 85.6 88.8 92.9 98.8 88.8 90.5 87.7 81.9 80.2 86.3 94.3 94.6 92.2 88.8 88.2 96.3
Data Z:
95.1 97.0 112.7 102.9 97.4 111.4 87.4 96.8 114.1 110.3 103.9 101.6 94.6 95.9 104.7 102.8 98.1 113.9 80.9 95.7 113.2 105.9 108.8 102.3 99.0 100.7 115.5 100.7 109.9 114.6 85.4 100.5 114.8 116.5 112.9 102.0 106.0 105.3 118.8 106.1 109.3 117.2 92.5 104.2 112.5 122.4 113.3 100.0 110.7 112.8 109.8 117.3 109.1 115.9 96.0 99.8 116.8 115.7 99.4 94.3
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