R/t_stat.R

Defines functions t_stat

Documented in t_stat

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

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.