Summary for max_coverage cross validation for relocation models
Source:R/summaries.R
summary_mc_cv_relocate.Rd
Summary for max_coverage cross validation for relocation models
Examples
if (FALSE) { # \dontrun{
library(tidyverse)
york_selected <- york |> filter(grade == "I")
york_unselected <- york |> filter(grade != "I")
mc_cv <- modelr::crossv_kfold(york_crime, 5) |>
mutate(test = map(test,as_tibble),
train = map(train,as_tibble))
mc_cv_relocate <- map_df(mc_cv$train,
~max_coverage_relocation(existing_facility = york_selected,
proposed_facility = york_unselected,
user = .,
cost_install = 2500,
cost_removal = 700,
cost_total = 50000,
distance_cutoff = 100,
solver = "gurobi"))
summary_mc_cv_relocate(mc_cv_relocate, mc_cv$test)
} # }