The aLBI
package provides tools for estimating life
history parameters, length-based indicators, and assessing fish stock
using methods outlined by Cope and Punt (2009) and Froese (2004). These
methods are particularly useful in data-limited situations and for
providing simple indicators to address over-fishing and support
sustainable fisheries management. This simple package facilitates the
estimation of life history parameters of fish only from the length
frequency data. Version 0.1.8 introduces the LWR
function
for length-weight relationship analysis and updates
FrequencyTable
and FsihPar
with enhanced
functionality. These includes the addition Monte Carlo, non-parametric
bootstrapping, and saving of outputs to the current working
directory.
The aLBI package offers three primary functions: - FrequencyTable: Creates a frequency distribution table for fish length data using either a custom bin width or Wang’s formula for automatic bin width calculation. The bin width is rounded to the nearest integer if calculated. - FishPar: This function calculates length-based indicators using Monte Carlo simulation for length parameters and non-parametric bootstrap for Froese indicators. - FishSS: This function assesses the stock status based on parameters calculated by the FishPar function. - LWR: Fits and visualizes length-weight relationships using linear regression.
The package includes functions to calculate various length-based indicators and visualize fish stock data. The approaches from Cope and Punt (2009) are used to establish reference points, while Froese (2004)’s indicators help to evaluate over-fishing status. This vignette demonstrates how to use these functions with sample and provided data.
To install the aLBI package from CRAN or GitHub. To enjoy most recent updates, users are encouraged to install the aLBI from GitHub), follow these steps. Note that devtools is required to install packages from GitHub.
# You can install the package using the following commands in your R session:
# Install devtools if you haven't already
# install.packages("devtools")
# # Install dplyr if you haven't already
# install.packages("dplyr")
# # Install readxl if you haven't already
# install.packages("readxl")
# Install ggplot2 if you haven't already
# install.packages("ggplot2")
# Install openxlsx if you haven't already
# install.packages("openxlsx")
# install aLBI package from CRAN
# install.packages("aLBI")
# Install the most updated version of aLBI package from GitHub
# devtools::install_github("Ataher76/aLBI")
Ensure the required packages are loaded in your R session. The following code checks for package availability and stops execution with a message if a package is missing.
# Check if required packages are installed and load them
# Check if required packages are installed and load them
required_packages <- c("aLBI", "readxl", "openxlsx", "dplyr", "devtools", "ggplot2")
for (pkg in required_packages) {
if (!requireNamespace(pkg, quietly = TRUE)) {
warning(paste("Package", pkg, "is required but not installed."))
} else {
library(pkg, character.only = TRUE)
}
}
#> Loading required package: usethis
# Load the aLBI package
library(aLBI)
library(readxl)
library(dplyr)
library(ggplot2)
library(openxlsx)
library(devtools)
Prepare your collected data in a specific format (.xlsx or .csv) before using the functions. Here’s an example of how to load and prepare your data using the readxl package:
FrequencyTable function will generates the frequency table from the collected length data by calculated optimum bin size or user defined bin size. It also allows the user to provide Lmax from reliable sources such as FishBase or empirical studies. The function extract the length frequency data from the frequency table with the upper length_range and allow users to save the frequency data as an excel file for further use in the FishPar function.
#’ @param bin_width #’ @param Lmax Numeric value for the maximum
observed fish length. Required only if bin_width
is NULL
and Wang’s formula is used. Defaults to NULL. #’ @param output_file Character string specifying
the output Excel file name. Defaults to “FrequencyTable_Output.xlsx”.
#’
data: A numeric vector or data frame containing fish length measurements. If a data frame is provided, the first numeric column is used.
bin_width: Optional. A numeric value specifying the bin width for class intervals, if left NULL or if not provided, the bin width is automatically calculated using Wang et al. (2020) optimum bin size (OBS) formula formula.
-Lmax: Optional. The maximum observed length of
fish. Required only if bin_width
is NULL and Wang’s formula
is used. If not provided or left NULL then automatically calculate the
frequency table with the observed maximum length of the provided data. -
output_file: Optional. Character string specifying the
output Excel file name. Defaults to “FrequencyTable_Output.xlsx”.
library(readxl)
# Load your length data from the system file
lenfreq_path <- system.file("exdata", "ExData.xlsx", package = "aLBI")
print(lenfreq_path) # Check the generated path
#> [1] "C:/Users/User/AppData/Local/Temp/RtmpE3BnKz/Rinst429445537cb6/aLBI/exdata/ExData.xlsx"
if (lenfreq_path == "") {
stop("The required file ExData.xlsx is missing. Please check the inst/extdata directory.")
}
# load the lenght frequency data
lenght_data <- readxl::read_excel(lenfreq_path)
print(lenght_data) # check the
#> # A tibble: 1,177 × 1
#> Length
#> <dbl>
#> 1 75
#> 2 66.7
#> 3 66
#> 4 64
#> 5 63.3
#> 6 63.2
#> 7 62.3
#> 8 62.2
#> 9 62
#> 10 61.3
#> # ℹ 1,167 more rows
# replace with your data directory
# Running the FrequencyTable function
freqTable <- FrequencyTable(data = lenght_data, bin_width = NULL, Lmax = NULL, output_file = "FrequencyTable_Output.xlsx")
#> Lmax not provided. Using maximum observed length: 75
#> Calculated bin width using Wang's formula: 3
#> Warning: There was 1 warning in `dplyr::mutate()`.
#> ℹ In argument: `Length = as.numeric(sub(".*,(\\d+\\.?\\d*)[\\)\\]]?$", "\\1",
#> as.character(Length_Range)))`.
#> Caused by warning:
#> ! NAs introduced by coercion
#> Warning in FrequencyTable(data = lenght_data, bin_width = NULL, Lmax = NULL, :
#> Some Length values could not be extracted. Attempting fallback extraction.
# Viewing the results
freqTable$lfqTable # Display the frequency table
#> # A tibble: 21 × 2
#> Length_Range Frequency
#> <fct> <int>
#> 1 [9,12) 15
#> 2 [12,15) 63
#> 3 [15,18) 135
#> 4 [18,21) 137
#> 5 [21,24) 135
#> 6 [24,27) 156
#> 7 [27,30) 143
#> 8 [30,33) 80
#> 9 [33,36) 88
#> 10 [36,39) 67
#> # ℹ 11 more rows
freqTable$lfreq # Display the summarized frequencies with upper length ranges
#> # A tibble: 21 × 2
#> Length Frequency
#> <dbl> <int>
#> 1 12 15
#> 2 15 63
#> 3 18 135
#> 4 21 137
#> 5 24 135
#> 6 27 156
#> 7 30 143
#> 8 33 80
#> 9 36 88
#> 10 39 67
#> # ℹ 11 more rows
The FishPar function estimates life history parameters (e.g., Lmax, Linf, Lmat, and Lopt) using Monte Carlo Simulation and Froese Sustainability Indicators using non-parametric bootstrapping method.
library(readxl)
# Load your length-frequency data from the system file
lenfreq_path <- system.file("exdata", "LC.xlsx", package = "aLBI")
print(lenfreq_path) # Check the generated path
#> [1] "C:/Users/User/AppData/Local/Temp/RtmpE3BnKz/Rinst429445537cb6/aLBI/exdata/LC.xlsx"
if (lenfreq_path == "") {
stop("The required file LC.xlsx is missing. Please check the inst/extdata directory.")
}
# load the lenght frequency data
lenfreq_data <- readxl::read_excel(lenfreq_path)
print(lenfreq_data) # check the data
#> # A tibble: 15 × 2
#> LengthClass Frequency
#> <dbl> <dbl>
#> 1 12 26
#> 2 15 166
#> 3 18 244
#> 4 21 582
#> 5 24 973
#> 6 27 1067
#> 7 30 963
#> 8 33 511
#> 9 36 472
#> 10 39 286
#> 11 42 173
#> 12 45 171
#> 13 48 83
#> 14 51 36
#> 15 54 36
# replace with your data directory
# Running the FishPar function
results <- FishPar(data = lenfreq_data, resample = 1000, progress = FALSE, Linf = NULL, Linf_sd = 0.5, Lmat = NULL, Lmat_sd = 0.5)
# Viewing the results
results$estimated_length_par
#> Parameters Mean_estimate Lower_CI Upper_CI
#> Lmax_samples Lmax 54.04398 52.01462 55.92745
#> Linf_samples Linf 56.88840 54.75223 58.87100
#> Lmat_samples Lmat 31.43686 29.20746 33.80848
#> Lopt_samples Lopt 33.17129 29.94813 36.53231
#> Lopt_p10_samples Lopt_p10 36.48841 32.94294 40.18554
#> Lopt_m10_samples Lopt_m10 29.85416 26.95332 32.87908
results$estimated_froese_par
#> Parameters Mean_froese Lower_CI Upper_CI
#> 1 Pmat 17.297845 8.943258 38.79856
#> 2 Popt 22.631373 11.080529 49.75337
#> 3 Pmega 5.905665 1.642441 15.09695
results$forese_ind_vs_target
#> Parameters Froese_catch Froese_tar
#> 1 Pmat 17.297845 100
#> 2 Popt 22.631373 100
#> 3 Pmega 5.905665 20
results$Total_ind
#> [1] 5789
results$LM_ratio
#> Lmat_samples
#> 0.9477131
results$Pobj
#> [1] 45.83488
The function returns a list with the following components saved in three different sheet of excel file:
estimated_length_par: Data frame of estimated length parameters with confidence intervals. estimated_froese_par: Data frame of estimated Froese indicators. estimated_freq_par: Data frame of frequency parameters. forese_ind_vs_target: Data frame comparing Froese indicators with targets. LM_ratio: Length at maturity ratio. Pobj: Objective percentage combining Pmat, Popt, and Pmega. Total_ind: Number of sampled individuals
The FishSS function evaluates stock status using criteria based on the estimated parameters by FishPar.
# Load the stock status criteria data
cpdata_path <- system.file("exdata", "cpdata.xlsx", package = "aLBI")
print(cpdata_path) #check if the path exist
#> [1] "C:/Users/User/AppData/Local/Temp/RtmpE3BnKz/Rinst429445537cb6/aLBI/exdata/cpdata.xlsx"
if (cpdata_path == "") {
stop("The required file cpdata.xlsx is missing. Please check the inst/extdata directory.")
}
# loading the cope and punt table
cpdata <- readxl::read_excel(cpdata_path)
print(cpdata)
#> # A tibble: 21 × 11
#> Tx A B C D E F G H I J
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 100 0 0 0 0 0 0 0 0 100 100
#> 2 95 0 0 0 0 22 0 11 0 100 93
#> 3 90 0 0 0 0 100 44 83 22 100 74
#> 4 85 0 0 0 0 100 100 100 67 100 63
#> 5 80 0 0 0 0 100 100 100 100 89 52
#> 6 75 0 0 0 0 100 100 100 100 74 37
#> 7 70 0 0 0 0 100 100 100 100 48 30
#> 8 65 0 0 0 0 100 100 100 100 33 22
#> 9 60 0 0 0 0 100 100 100 100 22 15
#> 10 55 0 0 0 0 100 100 100 100 11 7
#> # ℹ 11 more rows
# Running the FishSS function
stock_status <- FishSS(data = cpdata,
LM_ratio = results$LM_ratio,
Pobj = results$Pobj,
Pmat = results$estimated_froese_par[1, 2],
Popt = results$estimated_froese_par[2, 2])
# Viewing the stock status
stock_status
#> $Target_Cols
#> Tx B D
#> 1 100 0 0
#> 2 95 0 0
#> 3 90 0 0
#> 4 85 0 0
#> 5 80 0 0
#> 6 75 0 0
#> 7 70 0 0
#> 8 65 0 0
#> 9 60 0 0
#> 10 55 0 0
#> 11 50 0 0
#> 12 45 0 0
#> 13 40 0 0
#> 14 35 0 0
#> 15 30 7 7
#> 16 25 19 11
#> 17 20 37 22
#> 18 15 52 44
#> 19 10 67 67
#> 20 5 67 67
#> 21 0 67 67
#>
#> $Target_value
#> [1] 17.29784
#>
#> $Colesest_value
#> [1] 18
#>
#> $StockStatus
#> TSB40 LSB25
#> 52 44
The function returns a named vector with TSB40 and LSB25 values indicating stock status.
The LWR This function visualizes and models the relationship between length and weight (or any two continuous variables) using linear regression. It supports both standard and log-transformed models, producing a ggplot2-based plot with a fitted line, optional confidence interval shading, and annotations for the regression equation, R², and p-value. When save_output is TRUE, the plot and model summary are saved to the current working directory as a PDF and text file, respectively.
# Load the stock status criteria data
LWdata_path <- system.file("exdata", "LWdata.xlsx", package = "aLBI")
print(LWdata_path) #check if the path exist
#> [1] "C:/Users/User/AppData/Local/Temp/RtmpE3BnKz/Rinst429445537cb6/aLBI/exdata/LWdata.xlsx"
if (LWdata_path == "") {
stop("The required file LWdata.xlsx is missing. Please check the inst/extdata directory.")
}
# loading the cope and punt table
LWdata <- readxl::read_excel(LWdata_path)
print(LWdata)
#> # A tibble: 554 × 2
#> Length Weight
#> <dbl> <dbl>
#> 1 58.7 1025
#> 2 58.6 1013
#> 3 54.6 1011
#> 4 54.3 941
#> 5 54.2 946
#> 6 53 1120
#> 7 51.7 897
#> 8 51 1031
#> 9 50.5 882
#> 10 50.4 876
#> # ℹ 544 more rows
# Running the LWR function
lwr_result <- LWR(data = LWdata,
log_transform = TRUE,
point_col = "black",
line_col = "red",
shade_col = "red",
point_size = 2,
line_size = 1,
alpha = 0.2,
main = "Length-Weight Relationship",
xlab = NULL,
ylab = NULL,
save_output = TRUE)
# Viewing the stock status
lwr_result
#> $model
#>
#> Call:
#> lm(formula = y ~ x)
#>
#> Coefficients:
#> (Intercept) x
#> -5.211 3.006
#>
#>
#> $intercept
#> (Intercept)
#> 0.0055
#>
#> $slope
#> x
#> 3.006
#>
#> $r_squared
#> [1] 0.9695
#>
#> $correlation_r
#> x
#> 0.9846
#>
#> $p_value
#> [1] 0
#>
#> $plot
Length-Weight plot with model summery
The Fish Stock Assessment package provides a robust framework for estimating biological parameters and assessing fish stock status. By following the steps outlined in this vignette, you can effectively utilize this package for your fish stock assessment needs.
For any questions or issues, please contact the package maintainer: Name: Ataher Ali Email: ataher.cu.ms@gmail.com
I would like to express my heartfelt gratitude to my supervisor, Dr. Mohammed Shahidul Alam, for his unwavering guidance, support, and encouragement. I am also sincerely thankful to the contributors and community members for their valuable feedback and support.
This vignette provides a comprehensive guide to using the Assessment package. By following these instructions, users can effectively conduct fish stock assessments and contribute to sustainable fishery management practices.
Readers are encouraged to read the article published in Fisheries Research of this R Package.
Wang, K., Zhang, C., Xu, B., Xue, Y., & Ren, Y. (2020). Selecting optimal bin size to account for growth variability in Electronic LEngth Frequency ANalysis (ELEFAN). Fisheries Research, 225, 105474. https://doi.org/10.1016/j.fishres.2019.105474
Cope, J. M., & Punt, A. E. (2009). Length‐Based Reference Points for Data‐Limited Situations: Applications and Restrictions. Marine and Coastal Fisheries, 1(1), 169–186. https://doi.org/10.1577/C08-025.1
Froese, R. (2004). Keep it simple: Three indicators to deal with overfishing. Fish and Fisheries, 5(1), 86–91. https://doi.org/10.1111/j.1467-2979.2004.00144.x