R/cma.delta.lm.HL.R

In macc: Mediation Analysis of Causality under Confounding

cma.delta.lm.HL <-
function(dat,delta,max.itr=500,tol=1e-4,error.indep=FALSE,error.var.equal=FALSE,Sigma.update=FALSE,
                          var.constraint=FALSE)
{
  re<-cma.delta.lm(dat,delta,max.itr,tol,error.indep,error.var.equal,Sigma.update,var.constraint)
  return(re$HL)
}