Set p = 1, penalize_lines = "none" for plate scoring functions in opt…

…imize_multi_plate_design
bedapub · Aug 19, 2024 · cd80343 · cd80343
1 parent 61dbbbe
commit cd80343
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/score_plates.R b/R/score_plates.R
@@ -250,7 +250,9 @@ optimize_multi_plate_design <- function(batch_container, across_plates_variables
 
   if (!is.null(within_plate_variables)) {
     plate_levels <- unique(bc$get_locations()[[plate]])
-    scoring_funcs <- purrr::map(within_plate_variables, ~ mk_plate_scoring_functions(bc, plate = plate, row = row, column = column, group = .x)) |>
+    scoring_funcs <- purrr::map(within_plate_variables,
+                                ~ mk_plate_scoring_functions(bc, plate = plate, row = row, column = column, group = .x,
+                                                             p = 1, penalize_lines = "none")) |>
       unlist()
     names(scoring_funcs) <- paste(rep(within_plate_variables, each = length(plate_levels)), names(scoring_funcs))