Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
93.5 94.7 112.9 99.2 105.6 113.0 83.1 81.1 96.9 104.3 97.7 102.6 89.9 96.0 112.7 107.1 106.2 121.0 101.2 83.2 105.1 113.3 99.1 100.3 93.5 98.8 106.2 98.3 102.1 117.1 101.5 80.5 105.9 109.5 97.2 114.5 93.5 100.9 121.1 116.5 109.3 118.1 108.3 105.4 116.2 111.2 105.8 122.7 99.5 107.9 124.6 115.0 110.3 132.7 99.7 96.5 118.7 112.9 130.5 137.9 115.0 116.8 140.9 120.7 134.2 147.3 112.4 107.1 128.4 137.7 135.0 151.0 137.4 132.4 161.3 139.8 146.0 154.6 142.1 120.5
Data Y:
105.5 106.4 117.9 89.7 88.5 106.4 61.4 92.3 95.5 92.5 89.6 84.3 76.3 80.7 96.3 81 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 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 90.2 82.7 91.4 74.6 76.1 87.1 78.4 81.3 99.3 71 73.2 95.6 84 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 90 76.6 81.3
Data Z:
96.5 97.3 122.0 91.0 107.9 114.6 98.0 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 168.2 110.2 126.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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation