Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2120.88 2174.56 2196.72 2350.44 2440.25 2408.64 2472.81 2407.60 2454.62 2448.05 2497.84 2645.64 2756.76 2849.27 2921.44 2981.85 3080.58 3106.22 3119.31 3061.26 3097.31 3161.69 3257.16 3277.01 3295.32 3363.99 3494.17 3667.03 3813.06 3917.96 3895.51 3801.06 3570.12 3701.61 3862.27 3970.10 4138.52 4199.75 4290.89 4443.91 4502.64 4356.98 4591.27 4696.96 4621.40 4562.84 4202.52 4296.49 4435.23 4105.18 4116.68 3844.49 3720.98 3674.40 3857.62 3801.06 3504.37 3032.60 3047.03 2962.34
Data Y:
9682.35 9762.12 10124.63 10540.05 10601.61 10323.73 10418.40 10092.96 10364.91 10152.09 10032.80 10204.59 10001.60 10411.75 10673.38 10539.51 10723.78 10682.06 10283.19 10377.18 10486.64 10545.38 10554.27 10532.54 10324.31 10695.25 10827.81 10872.48 10971.19 11145.65 11234.68 11333.88 10997.97 11036.89 11257.35 11533.59 11963.12 12185.15 12377.62 12512.89 12631.48 12268.53 12754.80 13407.75 13480.21 13673.28 13239.71 13557.69 13901.28 13200.58 13406.97 12538.12 12419.57 12193.88 12656.63 12812.48 12056.67 11322.38 11530.75 11114.08
Data Z:
29.08 28.76 29.59 30.70 30.52 32.67 33.19 37.13 35.54 37.75 41.84 42.94 49.14 44.61 40.22 44.23 45.85 53.38 53.26 51.80 55.30 57.81 63.96 63.77 59.15 56.12 57.42 63.52 61.71 63.01 68.18 72.03 69.75 74.41 74.33 64.24 60.03 59.44 62.50 55.04 58.34 61.92 67.65 67.68 70.30 75.26 71.44 76.36 81.71 92.60 90.60 92.23 94.09 102.79 109.65 124.05 132.69 135.81 116.07 101.42
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