R/OBREnvANum1.R

In OBRE: Optimal B-Robust Estimator Tools

#' First part numerator for nvA
#'
#' Function computing first part numerator for OBRE numeric vector nvA evaluation.
#'
#' @param nvData The vector of data.
#' @param nTheta1 The first parameter.
#' @param nTheta2 The second parameter.
#' @param lDensityExpr List of symbolic expressions of density, cumulative and derivatives.
#' @param nCParOBRE OBRE c parameter.
#' @param matA Matrix A.
#' @param nvA Vector a.
#'

OBREnvANum1 = function(nvData, nTheta1, nTheta2, lDensityExpr, nCParOBRE, matA, nvA) {

  nvNum1 = eval(expr = lDensityExpr$eDerivDensityFunTheta[1]) *
    OBREWeightsFun(nvData = nvData, nTheta1 = nTheta1, nTheta2 = nTheta2, lDensityExpr = lDensityExpr,
                   nCParOBRE = nCParOBRE, matA = matA, nvA = nvA)
  nvNum1[is.na(nvNum1)] = 0
  return(nvNum1)
}