Description Usage Arguments Value Examples
Summary for max_coverage cross validation
1 | summary_mc_cv(model, test_data)
|
model |
the cross validated model |
test_data |
the cross validated test data |
a summary dataframe
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | ## Not run:
library(maxcovr)
library(tidyverse)
york_selected <- york %>% filter(grade == "I")
york_unselected <- york %>% filter(grade != "I")
mc_cv_fixed <- modelr::crossv_kfold(york_crime, 5) %>%
mutate(test = map(test,as_tibble),
train = map(train,as_tibble))
mc_cv_fit <- map_df(mc_cv_fixed$train,
~max_coverage(existing_facility = york_selected,
proposed_facility = york_unselected,
user = .,
n_added = 20,
distance_cutoff = 100))
summary_mc_cv(mc_cv_fit,
mc_cv_fixed$test)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.