R/wilcoxon_stat.R

In met: Evaluating and Improving Matched Samples in Observational Studies

Defines functions wilcoxon_stat

Documented in wilcoxon_stat

wilcoxon_stat<-function(x,z){

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

Try the met package in your browser