Plot the predicted selectivity-at-age schedule

plot_selectivity(assess)

Arguments

assess: An object of class Assess

Value

A list with a data.frame and a ggplot object

Examples

MyData <- Import(Example_Data()[2])
MyAssess <- Assess(MyData)
#> Parameters pass all checks
#> Index, Effort, and Catch detected. Only fitting to Index and Catch. Set `Data$Fit_Effort=1` to fit to Effort as well.
plot_selectivity(MyAssess)
#> $p

#> 
#> $df
#>    Age  Selectivity
#> 1    0 1.017083e-08
#> 2    1 1.356285e-07
#> 3    2 1.808609e-06
#> 4    3 2.411733e-05
#> 5    4 3.215100e-04
#> 6    5 4.270414e-03
#> 7    6 5.409657e-02
#> 8    7 4.326679e-01
#> 9    8 9.104728e-01
#> 10   9 9.926801e-01
#> 11  10 9.994473e-01
#> 12  11 9.999585e-01
#> 13  12 9.999969e-01
#> 14  13 9.999998e-01
#> 15  14 1.000000e+00
#>