replace na with 0

WorldFishCenter · Sep 29, 2023 · 0294762 · 0294762
1 parent bd5edf2
commit 0294762
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/estimate-catch.R b/R/estimate-catch.R
@@ -304,7 +304,7 @@ run_estimations <- function(pars, trips, region, vessels_metadata, modelled_taxa
   catch_taxa_estimates <- estimate_catch_taxa(trips_region, modelled_taxa = "selected", pars = pars)
   taxa_estimates <- estimates_taxa(catch_taxa_estimates, results, n_boats = region_boats)
   message("Estimate taxa catch by relative composition")
-  results_per_taxa <- model_taxa_porportion(results, taxa_estimates)dplyr::mutate(catch = ifelse(is.na(.data$catch), 0, .data$catch))
+  results_per_taxa <- model_taxa_porportion(results, taxa_estimates) %>% dplyr::mutate(catch = ifelse(is.na(.data$catch), 0, .data$catch))
 
   all_results <-
     list(