Different cut off

Usage

dif_co(df, depth_limit)

Arguments

df: data frame object consisting of results from iterative reconstruction process
depth_limit: a depth value in meters that represents the new depth cut off of interest

Value

a data frame object containing the percentage of grid cells that contained a good fit out of all grid cells that had an average depth (mean_depth) less than or equal to the depth_limit

Examples

# Apply dif_co to list of grid resolutions

library(sporeg)
library(dplyr)
library(sf)
library(data.table)
load(system.file("extdata", "res.Rda", package = "sporeg"))

depth_limit <- 300 #[m]

dif_depth <- lapply(res, dif_co) %>%
data.table::rbindlist(., idcol = 'resolution') %>%
left_join(tibble(resolution = 1:4,
res_name = c("100km", "50km", "25km", "10km")),
by = "resolution") %>%
dplyr::mutate(res_name = ordered(res_name, levels = c("100km", "50km", "25km", "10km")))