[Vars-commits] r61 - pkg/R

[noreply at r-forge.r-project.org]

Author: matthieu
Date: 2009-12-12 17:02:39 +0100 (Sat, 12 Dec 2009)
New Revision: 61

Modified:
   pkg/R/causality.R
Log:
Suppress line used twice


Modified: pkg/R/causality.R
===================================================================
--- pkg/R/causality.R	2009-12-12 16:02:38 UTC (rev 60)
+++ pkg/R/causality.R	2009-12-12 16:02:39 UTC (rev 61)
@@ -65,7 +65,6 @@
   ##
   ## Instantaneous Causality
   ##
-  sigma.u <- crossprod(resid(x)) / (obs - ncol(Z))
   colnames(sigma.u) <- y.names
   rownames(sigma.u) <- y.names
   select <- sigma.u[rownames(sigma.u) %in% y2.names, colnames(sigma.u) %in% y1.names ]