[Splm-commits] r182 - pkg/R

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

Author: the_sculler
Date: 2013-12-09 23:28:29 +0100 (Mon, 09 Dec 2013)
New Revision: 182

Modified:
   pkg/R/spreml.R
Log:
Fixed bug in spreml(), degenerating X when k=1


Modified: pkg/R/spreml.R
===================================================================
--- pkg/R/spreml.R	2013-12-06 13:43:44 UTC (rev 181)
+++ pkg/R/spreml.R	2013-12-09 22:28:29 UTC (rev 182)
@@ -38,7 +38,7 @@
     ind <- index[which(names(index) %in% row.names(X))]
     tind <- tindex[which(names(index) %in% row.names(X))]
     oo <- order(tind, ind)
-    X <- X[oo, ]
+    X <- X[oo, , drop=FALSE]
     y <- y[oo]
     ind <- ind[oo]
     tind <- tind[oo]