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

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

Author: bpfaff
Date: 2009-01-22 21:48:49 +0100 (Thu, 22 Jan 2009)
New Revision: 43

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


Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2009-01-12 21:52:59 UTC (rev 42)
+++ pkg/DESCRIPTION	2009-01-22 20:48:49 UTC (rev 43)
@@ -2,7 +2,7 @@
 Type: Package
 Title: VAR Modelling
 Version: 1.4-4
-Date: 2009-01-09
+Date: 2009-01-22
 Author: Bernhard Pfaff
 Maintainer: Bernhard Pfaff <bernhard at pfaffikus.de>
 Depends: R (>= 2.0.0), MASS, strucchange, urca (>= 1.1-6)

Modified: pkg/R/VAR.R
===================================================================
--- pkg/R/VAR.R	2009-01-12 21:52:59 UTC (rev 42)
+++ pkg/R/VAR.R	2009-01-22 20:48:49 UTC (rev 43)
@@ -84,9 +84,11 @@
          attr(equation[[colnames(yend)[i]]]$terms, "intercept") <- 1
         }
     }
+  call <- match.call()
+  if("season" %in% names(call)) call$season <- eval(season)
     result <- list(varresult = equation, datamat = data.frame(cbind(yend, 
         rhs)), y = y.orig, type = type, p = p, K = K, obs = sample, 
-        totobs = sample + p, restrictions = NULL, call = match.call())
+        totobs = sample + p, restrictions = NULL, call = call)
     class(result) <- "varest"
     return(result)
 }

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2009-01-12 21:52:59 UTC (rev 42)
+++ pkg/inst/ChangeLog	2009-01-22 20:48:49 UTC (rev 43)
@@ -1,3 +1,9 @@
+2009-01-22  Dr. Bernhard Pfaff  <bp at callisto>
+
+	* R/VAR.R: Fixed bug, season is directly evaluated and replaced in
+	match.call().  
+
+
 2009-01-09    Dr. Bernhard Pfaff  <bp at callisto>
 
 	* man/SVAR.Rd: Fixed warning on htest.