From 4ccc284b75bab56457c0488a534ace4f789a3b7a Mon Sep 17 00:00:00 2001 From: Alison Hill <34223923+alsnhll@users.noreply.github.com> Date: Fri, 19 Apr 2024 16:02:01 -0400 Subject: [PATCH] removed "filename" column from llik dataframes/files --- flepimop/R_packages/inference/R/inference_slot_runner_funcs.R | 1 - .../tests/testthat/test-aggregate_and_calc_loc_likelihoods.R | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/flepimop/R_packages/inference/R/inference_slot_runner_funcs.R b/flepimop/R_packages/inference/R/inference_slot_runner_funcs.R index c4d17e372..25b3fd807 100644 --- a/flepimop/R_packages/inference/R/inference_slot_runner_funcs.R +++ b/flepimop/R_packages/inference/R/inference_slot_runner_funcs.R @@ -84,7 +84,6 @@ aggregate_and_calc_loc_likelihoods <- function( ## We use a data frame for debugging, only ll is used likelihood_data[[location]] <- dplyr::tibble( ll = this_location_log_likelihood, - filename = hosp_file, subpop = location, accept = 0, # acceptance decision (0/1) . Will be updated later when accept/reject decisions made accept_avg = 0, # running average acceptance decision diff --git a/flepimop/R_packages/inference/tests/testthat/test-aggregate_and_calc_loc_likelihoods.R b/flepimop/R_packages/inference/tests/testthat/test-aggregate_and_calc_loc_likelihoods.R index a4f2a961e..8e9a4bc95 100644 --- a/flepimop/R_packages/inference/tests/testthat/test-aggregate_and_calc_loc_likelihoods.R +++ b/flepimop/R_packages/inference/tests/testthat/test-aggregate_and_calc_loc_likelihoods.R @@ -195,7 +195,7 @@ test_that("aggregate_and_calc_loc_likelihoods returns a likelihood per location expect_that(nrow(tmp), equals(length(stuff$all_locations))) - expect_that(sort(colnames(tmp)), equals(sort(c("ll","accept","accept_prob","accept_avg","filename",stuff$obs_subpop)))) + expect_that(sort(colnames(tmp)), equals(sort(c("ll","accept","accept_prob","accept_avg",stuff$obs_subpop)))) })