Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
0.527 0.472 0.000 0.052 0.313 0.364 0.363 -0.155 0.052 0.568 0.668 1.378 0.252 -0.402 -0.050 0.555 0.050 0.150 0.450 0.299 0.199 0.496 0.444 -0.393 -0.444 0.198 0.494 0.133 0.388 0.484 0.278 0.369 0.165 0.155 0.087 0.414 0.360 0.975 0.270 0.359 0.169 0.381 0.154 0.486 0.925 0.728 -0.014 0.046 -0.819 -1.674 -0.788 0.279 0.396 -0.141 -0.019 0.099 0.742 0.005 0.448
Data Y:
4.79 5.95 5.46 5.75 5.15 4.96 5.28 5.73 5.75 5.88 6.3 6.74 6.75 7.34 6.64 6.62 6.32 5.32 5.68 6.18 5.02 2.1 4 3 4.73 5.14 5.81 6.24 4.49 4.22 4.88 5.18 5.19 5.06 4.65 4.83 4.6 4.72 4.33 4.97 5.37 4.19 4.54 5.82 5.49 3.28 5.11 6.24 6.41 6.43 8.42 8.23 3.17 2.72 3 3.47 3.88 3.43 4.06
Data Z:
24710.92 23983.59 24434.12 23939.23 24290.02 24117.63 23724.64 22989.44 23716.86 25058.83 25059.00 23579.18 24209.03 24173.67 24706.39 24522.12 24766.15 25940.04 24985.78 24788.00 26544.56 28019.08 27285.71 29161.16 28357.73 27979.91 27543.95 27397.53 27623.59 27736.07 27803.79 27779.55 27524.13 27582.72 28638.95 28825.78 30132.61 29326.85 29075.62 28230.63 28118.36 28173.29 27396.91 24578.55 24504.77 27582.37 26920.31 25426.68 25390.80 25041.16 22769.42 22921.89 26267.63 27364.67 28382.59 29132.81 28214.51 28865.73 24405.35
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