#Install devtools package by following

install.packages("devtools")

detach("package:aLBI", unload = T)

remove.packages("aLBI")

devtools::install_github("Ataher76/aLBI", force = T)

#Enter one or more numbers, or an empty line to skip updates: 1

library(aLBI)

?FishPar

#or help(FishPar)

?FishSS

help(FishSS)

estimatedParameters <- FishPar(data = lenfreq01, resample = 1000, progress = F)

#Extracting estimated length parameters estimatedParameters$estimated_length_par #Extracting estimated froese parameters estimatedParameters$estimated_froese_par #Extracting estimated frequency parameters estimatedParameters$estimated_freq_par #Extracting estimated LM_ratio estimatedParameters$LM_ratio #Extracting estimated Pobj estimatedParameters$Pobj

#Calling the second function StockStatus <- FishSS(data = CPdata, LM_ratio = 0.7, Pobj = 97, Pmat = 29.91881 , Popt = 25.46208 )

StockStatus$StockStatus StockStatus$Target_Cols