R/weighted_frequency.R

In PabloMBooster/fenix: fenix

Defines functions weighted_frequency

Documented in weighted_frequency

weighted_frequency <- function(length,frequency,a,b,catch){
  
  weight  <- (a*length^b)*frequency
  freqW   <- (catch/sum(weight))*weight
  lengthW <- freqW/(a*length^b)
  
  return(lengthW)
}