Wessa.net

Send output to:


Data X:
252.5 251.1 255.1 258.3 255.3 261.1 253.8 252.9 253.9 255.5 262 262.8 263.3 262.5 269.2 270.8 274.1 273 267.3 267.1 268.2 270.2 271.5 281 280.1 281.5 285.9 289.8 292.9 291.2 291.8 289.8 292.5 290.3 297.5 307.5 304.7 304.6 310.7 310.7 315.7 314.7 312.2 312.8 314.3 319.7 319.9 329.5 326.9 329.7 335.7 337.2 339.7 338.3 339.2 342.5 342.2 338.3 339 345.9

Data Y:
2.6 2.5 2.5 1.6 1.4 0.8 1.1 1.3 1.2 1.3 1.1 1.3 1.2 1.6 1.7 1.5 0.9 1.5 1.4 1.6 1.7 1.4 1.8 1.7 1.4 1.2 1 1.7 2.4 2 2.1 2 1.8 2.7 2.3 1.9 2 2.3 2.8 2.4 2.3 2.7 2.7 2.9 3 2.2 2.3 2.8 2.8 2.8 2.2 2.6 2.8 2.5 2.4 2.3 1.9 1.7 2 2.1

Data Z:
85.9 76.8 96.2 83.9 88.7 105.4 86.7 76.3 93.2 105.1 121 107.85 94.7 78.4 101.4 91.2 89.9 112.2 81.5 78.8 99.1 101.3 91.5 89.05 86.6 86.6 98.5 86.7 89.1 111 92.6 85.1 116.1 98.3 97.7 95.95 94.2 83.8 109.5 102.3 102.5 93.9 85.3 88.2 104.7 99.4 113.8 101.5 89.2 93.2 115 97.2 112.5 121.8 100.2 93.8 113.6 110.7 127.6 116.75


R Code
(rho12 <- cor(x, y)) (rho23 <- cor(y, z)) (rho13 <- cor(x, z)) (rhoxy_z <- (rho12-(rho13rho23))/(sqrt(1-(rho13rho13)) * sqrt(1-(rho23rho23)))) (rhoxz_y <- (rho13-(rho12rho23))/(sqrt(1-(rho12rho12)) sqrt(1-(rho23rho23)))) (rhoyz_x <- (rho23-(rho12rho13))/(sqrt(1-(rho12rho12)) 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')

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