Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
106.9 112.6 101.7 92 97.4 97 105.4 102.7 98.1 104.5 87.4 89.9 109.8 111.7 98.6 96.9 95.1 97 112.7 102.9 97.4 111.4 87.4 96.8 114.1 110.3 103.9 101.6 94.6 95.9 104.7 102.8 98.1 113.9 80.9 95.7 113.2 105.9 108.8 102.3 99 100.7 115.5 100.7 109.9 114.6 85.4 100.5 114.8 116.5 112.9 102 106 105.3 118.8 106.1 109.3 114.3 91.9 104.4
Data Y:
108.8 113.2 105.5 77.8 102.1 97 95.5 99.3 86.4 92.4 85.7 61.9 104.9 107.9 95.6 79.8 94.8 93.7 108.1 96.9 88.8 106.7 86.8 69.8 110.9 105.4 99.2 84.4 87.2 91.9 97.9 94.5 85 100.3 78.7 65.8 104.8 96 103.3 82.9 91.4 94.5 109.3 92.1 99.3 109.6 87.5 73.1 110.7 111.6 110.7 84 101.6 102.1 113.9 99 100.4 111.1 93 74.1
Data Z:
85.3 73.8 55.2 54.4 80.8 88 74.5 55.1 47.2 54.2 70.6 78.5 77.1 56.6 39.8 44.1 66.9 75.3 74.9 48.8 37 49.8 63.2 75.9 68.5 49.2 40.3 38.6 54.2 70.6 68 43 42.3 47.7 57.7 75.8 57.2 43.6 40 35.9 59.5 72.7 70.9 44.9 44.5 48 60.4 71.8 63.2 32.4 33.9 24.2 64.7 73 61.7 31.9 30.8 34.1 47.4 53
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