# NOT RUN {
params <- newTraitParams()
a_m <- 0.0085
b_m <- 3.11
L_inf_m <- 24.3
L_mat <- 11.1
species_params <- data.frame(
species = "mullet",
w_min = 0.001,
w_inf = a_m*L_inf_m^b_m,
w_mat = a_m*L_mat^b_m,
beta = 283,
sigma = 1.8,
z0 = 0,
alpha = 0.6,
sel_func = "knife_edge",
knife_edge_size = 100,
gear = "knife_edge_gear",
k = 0,
k_vb = 0.6,
a = a_m,
b = b_m
)
params <- addSpecies(params, species_params)
plotSpectra(params)
sim <- project(params, t_max=50, progress_bar = FALSE)
plotBiomass(sim)
# }
Run the code above in your browser using DataLab