[Vars-commits] r50 - in pkg: . R inst

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

Author: bpfaff
Date: 2009-04-29 23:30:51 +0200 (Wed, 29 Apr 2009)
New Revision: 50

Modified:
   pkg/DESCRIPTION
   pkg/R/stability.R
   pkg/inst/ChangeLog
Log:
Fixed bug in stability (see Changelog).


Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2009-02-11 20:24:07 UTC (rev 49)
+++ pkg/DESCRIPTION	2009-04-29 21:30:51 UTC (rev 50)
@@ -2,7 +2,7 @@
 Type: Package
 Title: VAR Modelling
 Version: 1.4-5
-Date: 2009-01-25
+Date: 2009-04-29
 Author: Bernhard Pfaff
 Maintainer: Bernhard Pfaff <bernhard at pfaffikus.de>
 Depends: R (>= 2.0.0), MASS, strucchange, urca (>= 1.1-6)

Modified: pkg/R/stability.R
===================================================================
--- pkg/R/stability.R	2009-02-11 20:24:07 UTC (rev 49)
+++ pkg/R/stability.R	2009-04-29 21:30:51 UTC (rev 50)
@@ -8,7 +8,7 @@
   stability <- list()
   endog <- colnames(x$datamat)[1 : K]
   for(i in 1 : K){
-    formula <- x$varresult[[i]]
+    formula <- formula(x$varresult[[i]])
     data <- x$varresult[[i]]$model
     stability[[endog[i]]] <- efp(formula = formula, data = data, type = type, h = h, dynamic = dynamic, rescale = rescale)
   }

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2009-02-11 20:24:07 UTC (rev 49)
+++ pkg/inst/ChangeLog	2009-04-29 21:30:51 UTC (rev 50)
@@ -1,3 +1,8 @@
+2009-04-29  Dr. Bernhard Pfaff  <bp at callisto>
+
+	* R/stability.R ("stability"): Fixed bug (extracting formula from
+	lm object). 
+
 2009-01-22  Dr. Bernhard Pfaff  <bp at callisto>
 
 	* R/VAR.R: Fixed bug, season is directly evaluated and replaced in