fishing: Go fish!

In remi-daigle/BESTMPA:

Description

Creates a list of fish that were caught for each community

Usage

fishing(fish, quota, ages = 4:50, distance, fish_licenses, mpa)

Arguments

fish	a matrix of fish numbers by site (rows) and by age (columns). Can easily be generated by initpop
quota	fishable quota, can be estimated using link{estimatequota}
ages	age of catchable fish
distance	matrix of distance from each cell to each fish_communities
fish_licenses	number of licenses per region in fish_communities
mpa	Logical vector, TRUE if closed to fishing

Examples

# create a fish matrix
fish <- initpop(initial_abun=250*10^6,cells=length(BESTMPA_domain),maxage=50,rate=0.7)
# calculate distances from shore
distance <- gDistance(spTransform(fish_communities,proj),BESTMPA_domain,byid = T)
# number of licenses per region in fish_communities
fish_licenses <- c(866, 4714, 3002, 879, 963)
# define MPAs
mpa <- sample(c(TRUE,FALSE),length(BESTMPA_domain),replace=TRUE)
# quota
quota <- estimatequota(fish,maxage=20,y=2001,tot_time=2001:2071,FMSY=0.28,FMSY_buffer=0.667)
# go fishing!
fishcatch <- fishing(fish,quota,ages=4:50,distance,fish_licenses,mpa)

remi-daigle/BESTMPA documentation built on May 27, 2019, 4:55 a.m.