Nothing
#' Element [2, 1] of matrix M.
#'
#' Function computing element [2, 1] of matrix M, for the computation of asymptotic covariance matrix V.
#'
#' @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.
#'
OBREMatVMatMEl21 = function(nvData, nTheta1, nTheta2, lDensityExpr, nCParOBRE, matA, nvA) {
# compute score functions components
nvScore1 = scoreComponent(nvData = nvData, nTheta1 = nTheta1, nTheta2 = nTheta2,
lDensityExpr = lDensityExpr, nParIndex = 1)
nvScore2 = scoreComponent(nvData = nvData, nTheta1 = nTheta1, nTheta2 = nTheta2,
lDensityExpr = lDensityExpr, nParIndex = 2)
# compute weights function
nvWeights = OBREWeightsFun(nvData = nvData, nTheta1 = nTheta1, nTheta2 = nTheta2, lDensityExpr = lDensityExpr,
nCParOBRE = nCParOBRE, matA = matA, nvA = nvA)
# compute the part of the element in common to both shifted and truncated distributions
nvEl21matM = (nvScore2 - nvA[2]) * nvWeights * (nvScore1)
nvEl21matM = nvEl21matM * eval(expr = lDensityExpr$eDensityFun)
# substitute NA values with zero values
nvEl21matM[is.na(nvEl21matM)] = 0
return(nvEl21matM)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.