R/terms.ssdeR.R

terms.ssdeR <- function (x, model = c("outcome", "treatment", "selection"), ...)
{
  model <- match.arg(model)
  if(model == "outcome"){x$terms[[model]]}else{x$firststage$terms[[model]]}
}

Try the ssdeR package in your browser

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

ssdeR documentation built on May 2, 2019, 4:59 p.m.