From 35a2834fdd85950d5207983caf5eb2ae4e297b31 Mon Sep 17 00:00:00 2001 From: Brenna Novotny Date: Mon, 15 Aug 2022 15:03:21 -0500 Subject: [PATCH] Fixed non-conformable matrix bug in online_iNMF --- R/rliger.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/rliger.R b/R/rliger.R index 81570570..d4b54a51 100755 --- a/R/rliger.R +++ b/R/rliger.R @@ -1862,7 +1862,7 @@ online_iNMF <- function(object, object@A[(num_prev_files+1):num_files] = rep(list(matrix(0, k, k)), num_new_files) object@B[(num_prev_files+1):num_files] = rep(list(matrix(0, num_genes, k)), num_new_files) A_old[(num_prev_files+1):num_files] = rep(list(matrix(0, k, k)), num_new_files) # save information older than 2 epochs - B_old[(num_prev_files+1):num_files] = rep(list(matrix(0, k, k)), num_new_files) # save information older than 2 epochs + B_old[(num_prev_files+1):num_files] = rep(list(matrix(0, num_genes, k)), num_new_files) # save information older than 2 epochs } iter = 1