Description Usage Arguments Examples
This function uses the dispersal
function to disperse the recruits, but also applies both natural mortality and that linked to habitat carrying capacity.
1 | larvaldispersal(recruits, cml, lM, CCs, fish)
|
recruits |
a vector of the number of recruits per cell |
cml |
A connectivity matrix containing the probability of dispersing from each starting location (rows) to each end location (columns). Can easily be generated by |
lM |
A vector of natural larval mortality to be selected from |
CCs |
Habitat carrying capacity, in kg |
fish |
a matrix of fish numbers by site (rows) and by age (columns). Can easily be generated by |
1 2 3 4 5 6 7 8 9 | # create a fish matrix
fish <- initpop(initial_abun=250*10^6,cells=length(BESTMPA_domain),maxage=50,rate=0.7)
# identify nearby breeding grounds
breeding_near <- apply(gDistance(spTransform(Breeding,proj),p,byid = T),1,which.min)
# generate recruits vector
recruits <- reproduction(fish,fecundity=5e+05,age_mat_steepness=2.5,age_mat_sigmoid=4,l_to_w_int=1.1e-05,l_to_w_power=2.91,Linf_mean=112.03,Linf_SD=5.336735,k_mean=0.13,k_SD= 0.01071429,t0=0.18,breeding_near=breeding_near,domain=BESTMPA_domain)
# exponential dispersal kernal
cm <- initcm(domain=BESTMPA_domain,e_fold=75000,cell_size=20000)
recruits <- larvaldispersal(recruits=recruits,cml=cml,lM=rnorm(10000,0.5,0.1),CCs=rnorm(length(recruits),0.5,0.1))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.