[Gogarch-commits] r31 - pkg/R

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

Author: bpfaff
Date: 2009-03-06 21:49:40 +0100 (Fri, 06 Mar 2009)
New Revision: 31

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


Modified: pkg/R/Functions.R
===================================================================
--- pkg/R/Functions.R	2009-03-06 20:44:42 UTC (rev 30)
+++ pkg/R/Functions.R	2009-03-06 20:49:40 UTC (rev 31)
@@ -243,7 +243,7 @@
   if(n %% 1 != 0.0){
     stop("\nCannot produce symmetric matrix, check length of v.\n")
   }
-  X <- matrix(NA, ncol = n, nrow = n)
+  X <- matrix(0, ncol = n, nrow = n)
   X[lower.tri(X, diag = TRUE)] <- v
   Z <- X + t(X)
   diag(Z) <- diag(X)