Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
90.21 93.24 95.60 97.58 100.81 101.65 102.08 100.18 101.36 103.46 106.59 107.24 107.84 110.08 114.34 120.00 124.78 128.21 127.48 124.39 116.83 121.13 126.39 129.92 135.43 137.43 140.42 145.42 147.35 142.58 150.25 153.71 151.23 149.32 137.53 140.60 145.14 134.34 134.72 125.81 121.77 120.24 126.24 124.39 114.68 99.24 99.71 96.94 71.92 65.92 60.96 62.35 59.26 54.65 61.01 67.15 66.42 67.77 75.05 79.95
Data Y:
95.40 99.31 101.80 100.53 102.28 101.89 98.08 98.98 100.02 100.58 100.67 100.46 98.47 102.01 103.28 103.70 104.64 106.31 107.16 108.10 104.90 105.27 107.37 110.01 114.11 116.22 118.06 119.35 120.48 117.02 121.66 127.88 128.58 130.42 126.28 129.31 132.59 125.91 127.88 119.59 118.46 116.31 120.72 122.21 115.00 107.99 109.98 106.01 87.58 82.17 81.99 80.08 73.35 69.01 76.23 80.10 81.96 82.79 89.42 91.90
Data Z:
94.60 85.88 77.43 85.15 88.27 102.76 102.53 99.72 106.46 111.29 123.13 122.77 113.87 108.04 110.54 122.29 118.80 121.30 131.26 138.67 134.28 143.25 143.10 123.67 115.57 114.43 120.32 105.96 112.31 119.20 130.24 130.29 135.34 144.89 137.53 147.00 157.30 178.27 174.42 177.56 181.14 197.89 211.09 238.81 255.45 261.45 223.45 195.25 145.79 106.81 84.32 87.19 84.73 91.41 98.32 111.35 132.91 126.31 140.29 131.70
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