R/fit.att.R

In rogerjbos/fit.test:

#' @export
fit.att <- function(fitdata, exposure.vars) {
  
  if (!is.data.table(fitdata)) fitdata <- as.data.table(fitdata)
  loadings <- fitdata[, ..exposure.vars]
  returns(loadings) 
  
}