fishing_intensity: Function to evaluate fishing intensity

In Ecosystem-Assessments/eaMethods: The Title of the Project

Function to evaluate fishing intensity

Description

The function evaluates fishing intensity over a regular grid

Usage

fishing_intensity(
  fishData,
  areaGrid,
  metric = 1,
  id_field = "uid",
  biomass_field = "biomass"
)

Arguments

fishData	fishing data as sf object
areaGrid	regular grid as sf object
metric	type of fishing intensity metric to evaluate, one of: 1: Fishing effort density, no normalization; 2: Fishing effort density; 3: Fishing biomass yield density; 4: Fishing relative biomass yield density
id_field	name of column containing the unique identifier of the cells in the regular grid
biomass_field	name of column containing biomass data, if applicable

Value

This function returns a data.frame with a column containing the unique identifier of the grid cell and a column containing the assessment of fishing intensity.

Examples

grd <- sf::st_make_grid(cellsize = 1, offset = c(0, 0), n = c(10, 10)) |>
  sf::st_sf() |>
  dplyr::mutate(uid = 1:100)
fish <- data.frame(lon = runif(50, 0, 10), lat = runif(50, 0, 10)) |>
  sf::st_as_sf(coords = c("lon", "lat")) |>
  sf::st_buffer(dist = 0.5) |>
  dplyr::mutate(biomass = runif(50, 0, 10000))

int1 <- fishing_intensity(fishData = fish, areaGrid = grd, metric = 1)
int2 <- fishing_intensity(fishData = fish, areaGrid = grd, metric = 2)
int3 <- fishing_intensity(fishData = fish, areaGrid = grd, metric = 3)
int4 <- fishing_intensity(fishData = fish, areaGrid = grd, metric = 4)

grd <- dplyr::left_join(grd, int1, by = "uid")
grd <- dplyr::left_join(grd, int2, by = "uid")
grd <- dplyr::left_join(grd, int3, by = "uid")
grd <- dplyr::left_join(grd, int4, by = "uid")

plot(grd)

Ecosystem-Assessments/eaMethods documentation built on March 24, 2024, 7:23 p.m.