R/ks_stat.R

In met: Evaluating and Improving Matched Samples in Observational Studies

Defines functions ks_stat

Documented in ks_stat

ks_stat<-function(x,z){
  nvar=dim(x)[2]
  x1=x[z==1,]
  x0=x[z==0,]
  ks=numeric(nvar)
  where=numeric(nvar)
  for (i in 1:nvar){
    ks[i]=stats::ks.test(x1[,i],x0[,i])$statistic
  }
  ks
}

Try the met package in your browser