Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100.00 127.27 109.09 136.36 100.00 118.18 136.36 100.00 127.27 118.18 136.36 145.45 154.55 100.00 145.45 118.18 154.55 145.45 154.55 172.73 163.64 172.73 145.45 136.36 145.45 145.45 154.55 181.82 181.82 172.73 154.55 163.64 172.73 154.55 181.82 190.91 218.18 227.27 227.27 236.36 200.00 227.27 254.55 254.55 263.64 272.73 281.82 263.64 245.45 200.00 227.27 209.09 236.36 209.09 200.00 163.64 163.64 181.82 145.45 163.64
Data Y:
100.00 98.86 96.87 103.18 104.66 103.74 103.87 98.10 98.91 109.43 104.89 88.63 97.03 93.79 97.61 98.17 96.31 97.82 87.52 85.71 89.15 90.65 92.74 80.00 84.33 93.26 115.89 105.21 94.23 106.12 94.41 101.30 98.43 107.94 102.82 92.33 97.48 88.37 92.50 81.48 92.55 98.96 77.28 91.01 81.21 88.41 96.02 91.59 86.30 86.37 105.41 76.73 93.26 95.02 84.32 93.24 89.81 111.66 103.23 103.21
Data Z:
100.00 108.45 115.49 129.58 143.66 147.89 152.11 152.11 156.34 154.93 156.34 143.66 135.21 130.99 125.35 123.94 125.35 126.76 125.35 123.94 126.76 123.94 123.94 136.62 138.03 140.85 142.25 142.25 140.85 126.76 123.94 118.31 112.68 114.08 112.68 109.86 108.45 102.82 101.41 101.41 94.37 94.37 90.14 90.14 88.73 84.51 77.46 66.20 53.52 50.70 35.21 23.94 22.54 30.99 30.99 28.17 26.76 22.54 26.76 36.62
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