removed "filename" column from llik dataframes/files

HopkinsIDD · Apr 19, 2024 · 4ccc284 · 4ccc284
1 parent 7781507
commit 4ccc284
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 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
@@ -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
@@ -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))))
 
 })
-Original file line number
+Diff line change
@@ Expand Up @@
         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))))
     })
@@ Expand Down @@