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

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

Author: bpfaff
Date: 2009-05-04 22:05:55 +0200 (Mon, 04 May 2009)
New Revision: 52

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


Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2009-04-29 21:34:16 UTC (rev 51)
+++ pkg/DESCRIPTION	2009-05-04 20:05:55 UTC (rev 52)
@@ -1,8 +1,8 @@
 Package: vars
 Type: Package
 Title: VAR Modelling
-Version: 1.4-5
-Date: 2009-04-29
+Version: 1.4-6
+Date: 2009-05-04
 Author: Bernhard Pfaff
 Maintainer: Bernhard Pfaff <bernhard at pfaffikus.de>
 Depends: R (>= 2.0.0), MASS, strucchange, urca (>= 1.1-6)

Modified: pkg/R/restrict.R
===================================================================
--- pkg/R/restrict.R	2009-04-29 21:34:16 UTC (rev 51)
+++ pkg/R/restrict.R	2009-05-04 20:05:55 UTC (rev 52)
@@ -61,8 +61,8 @@
         colnames(x$restrictions) <- namesall
         rownames(x$restrictions) <- colnames(yendog)
         for (i in 1:K) {
-            datares <- datasub[, which(x$restrictions[i, ] == 
-                1)]
+            datares <- data.frame(datasub[, which(x$restrictions[i, ] == 1)])
+            colnames(datares) <- colnames(datasub)[which(x$restrictions[i, ] == 1)]
             y <- yendog[, i]
             lmres <- lm(y ~ -1 + ., data = datares)
             x$varresult[[i]] <- lmres

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2009-04-29 21:34:16 UTC (rev 51)
+++ pkg/inst/ChangeLog	2009-05-04 20:05:55 UTC (rev 52)
@@ -1,3 +1,7 @@
+2009-05-04  Dr. Bernhard Pfaff  <bp at callisto>
+
+	* R/restrict.R ("manual"): Fixed bug (coercing lhs to data frame). 
+
 2009-04-29  Dr. Bernhard Pfaff  <bp at callisto>
 
 	* R/stability.R ("stability"): Fixed bug (extracting formula from