Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
118.4 121.4 128.8 131.7 141.7 142.9 139.4 134.7 125.0 113.6 111.5 108.5 112.3 116.6 115.5 120.1 132.9 128.1 129.3 132.5 131.0 124.9 120.8 122.0 122.1 127.4 135.2 137.3 135.0 136.0 138.4 134.7 138.4 133.9 133.6 141.2 151.8 155.4 156.6 161.6 160.7 156.0 159.5 168.7 169.9 169.9 185.9 190.8 195.8 211.9 227.1 251.3 256.7 251.9 251.2 270.3 267.2 243.0 229.9 187.2
Data Y:
111.4 114.1 121.8 127.6 129.9 128.0 123.5 124.0 127.4 127.6 128.4 131.4 135.1 134.0 144.5 147.3 150.9 148.7 141.4 138.9 139.8 145.6 147.9 148.5 151.1 157.5 167.5 172.3 173.5 187.5 205.5 195.1 204.5 204.5 201.7 207.0 206.6 210.6 211.1 215.0 223.9 238.2 238.9 229.6 232.2 222.1 221.6 227.3 221.0 213.6 243.4 253.8 265.3 268.2 268.5 266.9 268.4 250.8 231.2 192.0
Data Z:
104.0 107.9 113.8 113.8 123.1 125.1 137.6 134.0 140.3 152.1 150.6 167.3 153.2 142.0 154.4 158.5 180.9 181.3 172.4 192.0 199.3 215.4 214.3 201.5 190.5 196.0 215.7 209.4 214.1 237.8 239.0 237.8 251.5 248.8 215.4 201.2 203.1 214.2 188.9 203.0 213.3 228.5 228.2 240.9 258.8 248.5 269.2 289.6 323.4 317.2 322.8 340.9 368.2 388.5 441.2 474.3 483.9 417.9 365.9 263.0
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