Fixing projection function

It was previous just returning the old matrix right back.
bmschmidt · Aug 31, 2016 · a48e7c7 · a48e7c7
1 parent 1d489d3
commit a48e7c7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/matrixFunctions.R b/R/matrixFunctions.R
@@ -471,7 +471,7 @@ project = function(matrix,vector) {
     stop("The vector must be the same length as the matrix it is being compared to")
   }
   newmat = crossprod(t(matrix %*% b)/as.vector((b %*% b)) , b)
-  return(new("VectorSpaceModel",matrix))
+  return(new("VectorSpaceModel",newmat))
   }
 
 #' Return a vector rejection for each element in a VectorSpaceModel