Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100.30 101.90 102.10 103.20 103.70 106.20 107.70 109.90 111.70 114.90 116.00 118.30 120.40 126.00 128.10 130.10 130.80 133.60 134.20 135.50 136.20 139.10 139.00 139.60 138.70 140.90 141.30 141.80 142.00 144.50 144.60 145.50 146.80 149.50 149.90 150.10 150.90 152.80 153.10 154.00 154.90 156.90 158.40 159.70 160.20 163.20 163.70 164.40 163.70 165.50 165.60 166.80 167.50 170.60 170.90 172.00 171.80 173.90 174.00 173.80 173.90 176.00 176.60 178.20 179.20 181.30 181.80 182.90 183.80 186.30 187.40 189.20 189.70 191.90 192.60 193.70 194.20 197.60 199.30 201.40 203.00 206.30 207.10 209.80 211.10 215.30 217.40 215.50 210.90 212.60
Data Y:
100.00 102.83 109.50 115.91 107.94 110.86 118.89 123.38 113.33 116.38 122.04 125.47 115.62 117.91 122.40 125.05 114.18 114.74 120.63 123.68 112.84 115.64 122.32 124.59 116.33 117.45 125.64 128.38 119.87 121.22 128.98 131.35 121.35 123.72 131.06 134.55 125.93 128.90 136.19 140.34 130.48 134.68 141.05 145.44 136.21 139.85 147.13 151.44 143.62 148.55 153.54 159.79 152.55 155.84 160.38 164.22 156.40 160.05 165.60 171.15 161.90 167.21 171.34 176.83 166.27 172.30 176.71 182.99 172.07 178.17 182.20 188.49 176.88 182.13 185.32 192.86 180.27 184.92 187.82 194.94 184.36 188.80 193.42 199.76 188.78 191.49 194.87 198.28 183.24 204.87
Data Z:
100.00 97.07 92.57 87.69 82.97 78.80 75.16 72.07 68.06 65.13 63.94 63.29 62.91 62.96 65.24 69.96 76.14 84.06 90.56 94.69 98.54 99.57 101.52 106.07 109.00 104.83 103.96 103.04 99.19 97.89 93.82 89.48 87.74 85.79 85.47 82.00 83.51 82.38 79.88 76.03 70.44 68.71 65.08 62.09 59.82 58.35 59.38 58.57 58.68 57.48 55.69 54.39 53.52 52.01 49.51 49.46 48.21 47.83 48.86 49.51 49.95 49.57 51.52 48.48 50.43 48.26 48.70 47.72 45.55 45.82 44.41 45.44 45.17 45.39 46.10 50.27 50.54 53.04 53.04 52.82 52.98 51.52 50.70 49.51 51.08 53.69 58.30 64.05 72.45 80.91
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