R/AME_build.R

In twopartm: Two-Part Model with Marginal Effects

#calculate AMEs for different kinds of variables
AME_build <- function(object, newdata = NULL, term, se = TRUE,se.method = "delta", CI = TRUE, CI.boots = FALSE,level = 0.95,eps = 1e-7,na.action = na.pass, iter = 50){

  if(is.null(newdata)){
    newdata = object@data
  }

  UseMethod("AME_build",newdata[,term])
}