R/smd_stat.R

Defines functions smd_stat

Documented in smd_stat

smd_stat<-function(x,z,xf,zf){

  nvar=dim(x)[2]
  x1=x[z==1,]
  x0=x[z==0,]
  smd=numeric(nvar)
  where=numeric(nvar)
  smd=DiPs::check(xf,x,zf,z)[,4]
  smd
}

Try the met package in your browser

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

met documentation built on Aug. 14, 2020, 5:07 p.m.