summary_mc_cv: Summary for max_coverage cross validation

Description Usage Arguments Value Examples

View source: R/summaries.R

Description

Summary for max_coverage cross validation

Usage

1
summary_mc_cv(model, test_data)

Arguments

model

the cross validated model

test_data

the cross validated test data

Value

a summary dataframe

Examples

 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)

njtierney/copertura documentation built on Nov. 13, 2019, 6:37 p.m.