Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
92.3 95.5 92.5 89.6 84.3 76.3 80.7 96.3 81.0 82.9 90.3 74.8 70.1 86.7 86.4 89.9 88.1 78.8 81.1 85.4 82.6 80.3 81.2 68.0 67.4 91.3 94.9 82.8 88.6 73.1 76.7 93.2 84.9 83.8 93.5 91.9 69.6 87.0 90.2 82.7 91.4 74.6 76.1 87.1 78.4 81.3 99.3 71.0 73.2 95.6 84.0 90.8 93.6 80.9 84.4 97.3 83.5 88.8 100.7 69.4 74.6 96.6 96.6 93.1 91.8 85.7 79.1 91.3 84.2 85.8 94.6 77.1 76.5
Data Y:
95.5 98.7 115.9 110.4 109.5 92.3 102.1 112.8 110.2 98.9 119.0 104.3 98.8 109.4 170.3 118.0 116.9 111.7 116.8 116.1 114.8 110.8 122.8 104.7 86.0 127.2 126.1 114.6 127.8 105.2 113.1 161.0 126.9 117.7 144.9 119.4 107.1 142.8 126.2 126.9 179.2 105.3 114.8 125.4 113.2 134.4 150.0 100.9 101.8 137.7 138.7 135.4 153.8 119.5 123.3 166.4 137.5 142.2 167.0 112.3 120.6 154.9 153.4 156.2 175.8 131.7 130.1 161.1 128.2 140.3 174.9 111.8 136.6
Data Z:
79.3 117.2 116.9 120.8 96.1 100.8 105.3 116.1 112.8 114.5 117.2 77.1 80.1 120.3 133.4 109.4 93.2 91.2 99.2 108.2 101.5 106.9 104.4 77.9 60.0 99.5 95.0 105.6 102.5 93.3 97.3 127.0 111.7 96.4 133.0 72.2 95.8 124.1 127.6 110.7 104.6 112.7 115.3 139.4 119.0 97.4 154.0 81.5 88.8 127.7 105.1 114.9 106.4 104.5 121.6 141.4 99.0 126.7 134.1 81.3 88.6 132.7 132.9 134.4 103.7 119.7 115.0 132.9 108.5 113.9 142.0 97.7 92.2
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