R/fs_objective.R

In FuzzyPovertyR: Estimation of Fuzzy Poverty Measures

# Fuzzy supplementary poverty estimation
#
# @description The objective function to find the root of.
#
# @param s.ord A vector of ordered deprivation scores.
# @param w.ord A vector of ordered sampling weights. In the same order of `s.ord`.
# @param alpha The alpha parameter.
# @param HCR The head count ratio.
# @param verbose Logical. whether to print the proceeding of the procedure.
#
# @return The difference between the expected value of the membership function and the head count ratio.
#
fs_objective <- function(s.ord, w.ord, alpha, HCR, verbose){
  FS <- fs_mu(s.ord, w.ord, alpha)
  if(verbose) cat('trying with alpha: ', round(alpha, 4) , ' Expected Value: ', round(weighted.mean(x = FS, w = w.ord), 4), "\n")
  return( weighted.mean(x = FS, w = w.ord) - HCR )
}