R/hessian_row.R

In Epic-Doughnut/Combined-Reg: Semiparametric Likelihood Estimation with Errors in Variables

#' Hessian Row
#' 
#' Multiply two variables and return colsums
#' TODO
#' 
#' @param x matrix
#' @param pm post multiply
#' @noRd
hessian_row <- function(x, pm) {
  return(colSums(x * pm))
}