NMF coef

noriakis · Oct 22, 2024 · d01dcbe · d01dcbe
1 parent bda8901
commit d01dcbe
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/NMF.R b/R/NMF.R
@@ -158,10 +158,10 @@ NMF <- function(stana, species, rank=3, target="kos", seed=53, method="snmf/r",
 	    } else {
 	        res <- NMF::nmf(mat, rank = rank, seed = seed, method=method)
 	    }
-	    coefMat <- coef(res)
-        basisMat <- NMF::basis(res) 	
+	    coefMat <- NMF::coef(res)
+        basisMat <- NMF::basis(res)
     }
-
+    print(res)
     stana@coefMat[[species]] <- data.frame(coefMat)
     ## Plot by default
     relab <- apply(coefMat, 2, function(x) x / sum(x))