Wessa.net

Send output to:


Data X:
100.00 105.26 106.58 101.32 98.68 100.00 102.63 102.63 102.63 98.68 98.68 93.42 98.68 98.68 100.00 101.32 101.32 103.95 106.58 107.89 107.89 107.89 103.95 96.05 90.79 86.84 88.16 90.79 92.11 93.42 94.74 93.42 90.79 92.11 89.47 84.21 88.16 86.84 84.21 82.89 81.58 85.53 89.47 89.47 84.21 80.26 76.32 80.26 94.74 96.05 90.79 80.26 76.32 81.58 93.42 101.32 103.95 101.32 97.37 98.68

Data Y:
100.00 106.73 104.81 96.15 88.46 88.46 91.35 92.31 91.35 87.50 85.58 86.54 97.12 99.04 98.08 92.31 88.46 89.42 90.38 90.38 88.46 86.54 86.54 86.54 94.23 96.15 94.23 89.42 86.54 86.54 87.50 87.50 87.50 88.46 84.62 79.81 80.77 77.88 74.04 75.96 75.96 76.92 75.96 73.08 68.27 65.38 62.50 66.35 78.85 83.65 79.81 75.96 72.12 75.00 79.81 80.77 78.85 74.04 69.23 70.19

Data Z:
100.00 110.76 130.55 126.20 118.88 116.25 108.24 109.73 119.79 117.62 112.24 130.32 92.56 109.50 129.52 121.17 124.49 117.05 113.27 115.22 132.15 115.22 125.74 131.12 97.71 114.99 131.35 133.30 129.18 116.70 121.28 120.48 135.93 121.40 125.06 134.10 105.84 119.22 128.72 140.05 129.63 114.42 126.66 129.06 125.63 134.21 124.83 132.61 109.84 114.19 133.64 132.38 113.73 107.89 104.12 106.64 117.96 107.67 105.03 117.51


R Code
(rho12 <- cor(x, y)) (rho23 <- cor(y, z)) (rho13 <- cor(x, z)) (rhoxy_z <- (rho12-(rho13rho23))/(sqrt(1-(rho13rho13)) * sqrt(1-(rho23rho23)))) (rhoxz_y <- (rho13-(rho12rho23))/(sqrt(1-(rho12rho12)) sqrt(1-(rho23rho23)))) (rhoyz_x <- (rho23-(rho12rho13))/(sqrt(1-(rho12rho12)) 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')

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big Analytics Cloud Computing Center