fix additional bug - wrong check in stability analysis

Author: eso28599

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: resnmtf
 Title: Determining a multi-view biclustering via ResNMTF
-Version: 0.0.1.0
+Version: 0.0.1.1
 Authors@R: 
     person("Ella", "Orme", , "[email protected]", role = c("aut", "cre"))
 Description: The package provides functions for performing ResNMTF on multi-view data. ResNMTF is a multi-view biclustering approach based on non-negative matrix tri-factorization (NMTF) which allows for overlapping and non-exhaustive biclusters. It is a flexible approach which allows for any combination of restrictions betweeen views e.g. shared rows between 1st and 2nd views, shared columns between 1st and 3rd views, etc.

R/stability_analysis.r

@@ -161,7 +161,7 @@ sample_view <- function(data, i, new_data, dim_1,
   new_data <- shuffled[["new_data"]]
   row_samples <- shuffled[["row_samples"]]
   col_samples <- shuffled[["col_samples"]]
-  if (check_empty(data, i)) {
+  if (check_empty(new_data, i)) {
     zeros_cols <- colSums(new_data[[i]]) != 0
     zeros_rows <- rowSums(new_data[[i]]) != 0
     if ((dims[1]) == dim_1[1]) {