diff --git a/dev/flat_full.Rmd b/dev/flat_full.Rmd index 5485d61c6160f9616705cf178a8591a4ff2120c9..e0d57b41e26135416ddf95d01f5d86baeb5669b5 100644 --- a/dev/flat_full.Rmd +++ b/dev/flat_full.Rmd @@ -10080,7 +10080,6 @@ combine_mock <- function(list_mock_obj, min_replicates, max_replicates, sequenci stopifnot("All elements in list_mock_obj must be valid mock_obj." = all(sapply(list_mock_obj, isValidMock_obj))) list_init <- get_list_of_mock_attribute(list_mock_obj) list_levels <- lapply(list_init, function(init) getGivenAttribute(init, 'level')) - list_names <- lapply(list_init, function(init) getGivenAttribute(init, 'name')) stopifnot("Name and number of levels for each variable must be identical between element in list_mock_obj." = are_all_elements_identical(list_levels)) list_settings <- get_list_of_mock_attribute(list_mock_obj, 'settings') list_mock_obj <- lapply(1:length(list_mock_obj), function(idx) rename_genes_in_mock_obj(list_mock_obj[[idx]], idx) )