R/modelType.R

In AlexHartmann00/lmmadd: Functions for Linear Mixed Models

#'Find out what type the model is
#'
#'@param object model object
#'
#'@return string specifying package the model originates frmo
#'
#'
.modelType <- function(object){
  if("lm" %in% class(object) || "glm" %in% class(object)){
    return("lm")
  }
  else if("lmerMod" %in% class(object) || "glmerMod" %in% class(object) || (!is.null(attr(class(object),"package")) && attr(class(object),"package") == "lmerTest")){
    return("lme4")
  }
  else if("nlme" %in% class(object) || "lme" %in% class(object)){
    return("nlme")
  }
  else if("brr" %in% class(object)){
    return("brr")
  }
  else{
    return("None")
  }
}