diff --git a/tests/testthat/test-integration-fims-estimation-with-wrappers.R b/tests/testthat/test-integration-fims-estimation-with-wrappers.R index 5fa2b9e7..81497bcf 100644 --- a/tests/testthat/test-integration-fims-estimation-with-wrappers.R +++ b/tests/testthat/test-integration-fims-estimation-with-wrappers.R @@ -199,7 +199,6 @@ test_that("nll test of fims", { age_comp_nll <- age_comp_nll_fleet + age_comp_nll_survey # length comp likelihoods - # TODO: the code below is not working yet fishing_lengthcomp_observed <- em_input_list[[iter_id]][["L.length.obs"]][["fleet1"]] fishing_lengthcomp_expected <- om_output_list[[iter_id]][["L.length"]][["fleet1"]] / rowSums(om_output_list[[iter_id]][["L.length"]][["fleet1"]]) survey_lengthcomp_observed <- em_input_list[[iter_id]][["survey.length.obs"]][["survey1"]] diff --git a/tests/testthat/test-integration-fims-estimation-without-wrappers.R b/tests/testthat/test-integration-fims-estimation-without-wrappers.R index e5373537..d8c1f457 100644 --- a/tests/testthat/test-integration-fims-estimation-without-wrappers.R +++ b/tests/testthat/test-integration-fims-estimation-without-wrappers.R @@ -210,7 +210,6 @@ test_that("nll test of fims", { age_comp_nll <- age_comp_nll_fleet + age_comp_nll_survey # length comp likelihoods - # TODO: the code below is not working yet fishing_lengthcomp_observed <- em_input_list[[iter_id]][["L.length.obs"]][["fleet1"]] fishing_lengthcomp_expected <- om_output_list[[iter_id]][["L.length"]][["fleet1"]] / rowSums(om_output_list[[iter_id]][["L.length"]][["fleet1"]]) survey_lengthcomp_observed <- em_input_list[[iter_id]][["survey.length.obs"]][["survey1"]]