R/ATE_est.R

Defines functions ATE_est

ATE_est = function(fY,fw,fA,fp){
  t_ATE = fY*fw
  tt_ATE = ( ( sum(t_ATE[fA==1])  / sum(fw[fA==1]) ) - ( sum(t_ATE[fA==0]) /  sum(fw[fA==0]) ) )
  return(tt_ATE)
}

Try the CHEMIST package in your browser

Any scripts or data that you put into this service are public.

CHEMIST documentation built on May 1, 2023, 5:18 p.m.