Description Usage Arguments Examples
Creates a list of fish
that were caught for each community
1 | fishing(fish, quota, ages = 4:50, distance, fish_licenses, mpa)
|
fish |
a matrix of fish numbers by site (rows) and by age (columns). Can easily be generated by |
quota |
fishable quota, can be estimated using |
ages |
age of catchable fish |
distance |
matrix of distance from each cell to each |
fish_licenses |
number of licenses per region in |
mpa |
Logical vector, TRUE if closed to fishing |
1 2 3 4 5 6 7 8 9 10 11 12 | # 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.