Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
121.6 118.8 114.0 111.5 97.2 102.5 113.4 109.8 104.9 126.1 80.0 96.8 117.2 112.3 117.3 111.1 102.2 104.3 122.9 107.6 121.3 131.5 89.0 104.4 128.9 135.9 133.3 121.3 120.5 120.4 137.9 126.1 133.2 151.1 105.0 119.0 140.4 156.6 137.1 122.7 125.8 139.3 134.9 149.2 132.3 149.0 117.2 119.6 152.0 149.4 127.3 114.1 102.1 107.7 104.4 102.1 96.0 109.3 90.0 83.9
Data Y:
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 166.5 143.3 121.0 152.6 154.4 154.6 158.0 142.6 153.4 163.4 167.3 154.8 165.7 144.7 120.9 152.8 160.2 128.3 150.5 117.0 116.0 133.3 116.4 104.0 126.6 92.9 83.6
Data Z:
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 128.8 134.9 128.2 114.8 117.9 119.1 120.7 129.1 117.6 129.2 100.0 87.0 128.0 127.7 93.4 84.1 71.7 83.2 89.1 79.6 62.8 95.1 63.6 61.4
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