R/rand_stratified_mpa.R

In remi-daigle/NetworkConnectR: A Package to Assess Connectivity in Networks of MPAs

#' rand_stratified_mpa
#'
#' Randomly generates a stratified network of MPAs
#'
#' @param grid_strata strata for the grid
#' @param area_strata strata for the area
#' @inheritParams rand_mpa
#'
#' @return
#' @export
#'
#' @examples
#' #insert example here
rand_stratified_mpa <- function(grid,areas,grid_strata,area_strata,adj_edgelist,buff_edgelist=adj_edgelist,max_edge=4){
  purrr::map(unique(grid_strata),function(s){
    rand_mpa(grid,
             areas[area_strata==s],
             adj_edgelist[adj_edgelist$row.id %in% which(grid_strata==s) & adj_edgelist$col.id %in% which(grid_strata==s),],
             buff_edgelist[buff_edgelist$row.id %in% which(grid_strata==s) & buff_edgelist$col.id %in% which(grid_strata==s),],
             max_edge) %>%
      dplyr::mutate(mpa_id=paste(s,mpa_id)) }) %>%
    dplyr::bind_rows()
}