[Gogarch-commits] r30 - in pkg: . R inst

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

Author: bpfaff
Date: 2009-03-06 21:44:42 +0100 (Fri, 06 Mar 2009)
New Revision: 30

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


Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2009-03-06 20:41:37 UTC (rev 29)
+++ pkg/DESCRIPTION	2009-03-06 20:44:42 UTC (rev 30)
@@ -1,8 +1,8 @@
 Package: gogarch
-Version: 0.6-7
+Version: 0.6-8
 Type: Package
 Title: Generalized Orthogonal GARCH (GO-GARCH) models
-Date: 2009-02-23
+Date: 2009-03-06
 Author: Bernhard Pfaff
 Maintainer: Bernhard Pfaff <bernhard at pfaffikus.de>
 Depends: R (>= 2.7.0), methods, stats, graphics, fGarch, fastICA

Modified: pkg/R/Functions.R
===================================================================
--- pkg/R/Functions.R	2009-03-06 20:41:37 UTC (rev 29)
+++ pkg/R/Functions.R	2009-03-06 20:44:42 UTC (rev 30)
@@ -245,6 +245,7 @@
   }
   X <- matrix(NA, ncol = n, nrow = n)
   X[lower.tri(X, diag = TRUE)] <- v
-  X[upper.tri(X)] <- X[lower.tri(X)]
-  return(X)
+  Z <- X + t(X)
+  diag(Z) <- diag(X)
+ return(Z)
 }

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2009-03-06 20:41:37 UTC (rev 29)
+++ pkg/inst/ChangeLog	2009-03-06 20:44:42 UTC (rev 30)
@@ -1,3 +1,7 @@
+2009-03-06  Dr. Bernhard Pfaff  <bp at callisto>
+
+	* R/Functions.R (unvech): Fixed bug in creating symmetric matrix.
+
 2009-02-23  Dr. Bernhard Pfaff  <bp at callisto>
 
 	* man/gogarch.Rd: Replaced method with estby in example section.