Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
356.2 359.5 368.4 371 397.5 416.7 413.2 424.3 415 421.7 422.1 429.2 452.1 471.5 488.3 506.2 517.3 538.6 545.3 546.7 540.3 549.2 563.9 581.7 590.7 594.1 604 628.1 662.4 688.6 705.9 701.5 686.2 645.7 668.7 696.7 715.5 741.4 754.3 771.3 797.7 809.9 790.1 830.3 847.7 834.8 824.5 764.6 780 803.2 751.1 755.2 708.2 685.4 680 710.6 702.8 656.3 575.6 567.2 545.2
Data Y:
152823.6 123780.5 159987.1 139603.7 177831.2 173656.9 252392 228029 197300 214088 160275 186851 227777 246899 295338 243847 324602 347066 407916 312914 326127 394369 310078 422770 417974 402347 360809 298289 375873 407210 413968 457532 695731 544623 292833 534403 517030 455714 471401 451493 480615 568272 650780 553643 780711 650724 586345 725173 701257 859063 789842 512707 780845 637804 640694 553416 554622 616736 536994 407237 618796
Data Z:
3 2.9 2.9 2.8 2.6 2.5 2.8 2.8 2.8 2.7 2.7 2.7 2.5 2.4 2.3 2.3 2.2 2.3 2.6 2.7 2.7 2.6 2.5 2.5 2.4 2.5 2.4 2.3 2.2 2.2 2.3 2.4 2.5 2.5 2.4 2.4 2.3 2.2 2.2 2 2 2.2 2.4 2.4 2.3 2.4 2.5 2.5 2.6 2.5 2.7 2.7 3.1 3 3.4 3.3 3.5 4.1 4.7 4.4 5.4
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