Committing so my changes aren't overwritten

Author: ryantibs

selectiveInference/R/funs.fs.R

@@ -234,7 +234,10 @@ coef.fs <- function(object, s, ...) {
 predict.fs <- function(object, newx, s, ...) {
   beta = coef.fs(object,s)
   if (missing(newx)) newx = scale(object$x,FALSE,1/object$sx)
-  else newx = scale(newx,object$bx,FALSE)
+  else {
+    newx = matrix(newx,ncol=ncol(object$x))
+    newx = scale(newx,object$bx,FALSE)
+  }
   return(newx %*% beta + object$by)
 }
 

selectiveInference/R/funs.lar.R

@@ -339,7 +339,10 @@ coef.lar <- function(object, s, mode=c("step","lambda"), ...) {
 predict.lar <- function(object, newx, s, mode=c("step","lambda"), ...) {
   beta = coef.lar(object,s,mode)
   if (missing(newx)) newx = scale(object$x,FALSE,1/object$sx)
-  else newx = scale(newx,object$bx,FALSE)
+  else {
+    newx = matrix(newx,ncol=ncol(object$x))
+    newx = scale(newx,object$bx,FALSE)
+  }
   return(newx %*% beta + object$by)
 }