R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> z <- c(100.00,97.07,92.57,87.69,82.97,78.80,75.16,72.07,68.06,65.13,63.94,63.29,62.91,62.96,65.24,69.96,76.14,84.06,90.56,94.69,98.54,99.57,101.52,106.07,109.00,104.83,103.96,103.04,99.19,97.89,93.82,89.48,87.74,85.79,85.47,82.00,83.51,82.38,79.88,76.03,70.44,68.71,65.08,62.09,59.82,58.35,59.38,58.57,58.68,57.48,55.69,54.39,53.52,52.01,49.51,49.46,48.21,47.83,48.86,49.51,49.95,49.57,51.52,48.48,50.43,48.26,48.70,47.72,45.55,45.82,44.41,45.44,45.17,45.39,46.10,50.27,50.54,53.04,53.04,52.82,52.98,51.52,50.70,49.51,51.08,53.69,58.30,64.05,72.45,80.91)
> y <- c(100.00,102.83,109.50,115.91,107.94,110.86,118.89,123.38,113.33,116.38,122.04,125.47,115.62,117.91,122.40,125.05,114.18,114.74,120.63,123.68,112.84,115.64,122.32,124.59,116.33,117.45,125.64,128.38,119.87,121.22,128.98,131.35,121.35,123.72,131.06,134.55,125.93,128.90,136.19,140.34,130.48,134.68,141.05,145.44,136.21,139.85,147.13,151.44,143.62,148.55,153.54,159.79,152.55,155.84,160.38,164.22,156.40,160.05,165.60,171.15,161.90,167.21,171.34,176.83,166.27,172.30,176.71,182.99,172.07,178.17,182.20,188.49,176.88,182.13,185.32,192.86,180.27,184.92,187.82,194.94,184.36,188.80,193.42,199.76,188.78,191.49,194.87,198.28,183.24,204.87)
> x <- c(100.30,101.90,102.10,103.20,103.70,106.20,107.70,109.90,111.70,114.90,116.00,118.30,120.40,126.00,128.10,130.10,130.80,133.60,134.20,135.50,136.20,139.10,139.00,139.60,138.70,140.90,141.30,141.80,142.00,144.50,144.60,145.50,146.80,149.50,149.90,150.10,150.90,152.80,153.10,154.00,154.90,156.90,158.40,159.70,160.20,163.20,163.70,164.40,163.70,165.50,165.60,166.80,167.50,170.60,170.90,172.00,171.80,173.90,174.00,173.80,173.90,176.00,176.60,178.20,179.20,181.30,181.80,182.90,183.80,186.30,187.40,189.20,189.70,191.90,192.60,193.70,194.20,197.60,199.30,201.40,203.00,206.30,207.10,209.80,211.10,215.30,217.40,215.50,210.90,212.60)
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: AUTHOR(S), (YEAR), YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description (don't use hard returns!)
> (rho12 <- cor(x, y))
[1] 0.9529568
> (rho23 <- cor(y, z))
[1] -0.7509259
> (rho13 <- cor(x, z))
[1] -0.6451108
> (rhoxy_z <- (rho12-(rho13*rho23))/(sqrt(1-(rho13*rho13)) * sqrt(1-(rho23*rho23))))
[1] 0.9285213
> (rhoxz_y <- (rho13-(rho12*rho23))/(sqrt(1-(rho12*rho12)) * sqrt(1-(rho23*rho23))))
[1] 0.352151
> (rhoyz_x <- (rho23-(rho12*rho13))/(sqrt(1-(rho12*rho12)) * sqrt(1-(rho13*rho13))))
[1] -0.5879235
> 
> #Note: the /var/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/html/rcomp/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="/var/www/html/rcomp/tmp/1ei351257974072.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.191   0.035   0.226