R/alp.index.lo.R

In zhangh12/gim: Generalized Integration Model

# return index of alp, log OR of all variables, including intercept (if any)
alp.index.lo <- function(map, i){
  
  # a logistic regression model, all coef given (inc intercept), no alp for this model
  if(any(is.na(map$alp[[i]]))){
    return(NULL)
  }
  
  map$alp[[i]]
  
}