Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
27.336 22.916 24.537 26.128 22.602 15.744 41.086 39.690 43.129 37.863 35.953 29.133 24.693 22.205 21.725 27.192 21.790 13.253 37.702 30.364 32.609 30.212 29.965 28.352 25.814 22.414 20.506 28.806 22.228 13.971 36.845 35.338 35.022 34.777 26.887 23.970 22.780 17.351 21.382 24.561 17.409 11.514 31.514 27.071 29.462 26.105 22.397 23.843 21.705 18.089 20.764 25.316 17.704 15.548 28.029 29.383 36.438 32.034 22.679 24.319 18.004 17.537 20.366 22.782 19.169 13.807 29.743 25.591 29.096 26.482 22.405 27.044 17.970 18.730 19.684 19.785 18.479 10.698 31.956 29.506 34.506 27.165 26.736 23.691 18.157 17.328 18.205 20.995 17.382 9.367 31.124 26.551 30.651 25.859 25.100 25.778 20.418 18.688 20.424
Data Y:
39.191 31.994 35.735 38.930 33.658 23.849 58.972 59.249 63.955 53.785 52.760 44.795 37.348 32.370 32.717 40.974 33.591 21.124 58.608 46.865 51.378 46.235 47.206 45.382 41.227 33.795 31.295 42.625 33.625 21.538 56.421 53.152 53.536 52.408 41.454 38.271 35.306 26.414 31.917 38.030 27.534 18.387 50.556 43.901 48.572 43.899 37.532 40.357 35.489 29.027 34.485 42.598 30.306 26.451 47.460 50.104 61.465 53.726 39.477 43.895 31.481 29.896 33.842 39.120 33.702 25.094 51.442 45.594 52.518 48.564 41.745 49.585 32.747 33.379 35.645 37.034 35.681 20.972 58.552 54.955 65.540 51.570 51.145 46.641 35.704 33.253 35.193 41.668 34.865 21.210 56.126 49.231 59.723 48.103 47.472 50.497 40.059 34.149 36.860
Data Z:
80 60 10 20 30
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