R/lmm_lme4.R

In anthonydevaux/hdlandmark: What the Package Does (One Line, Title Case)

#' Title
#'
#' @param model
#' @param data
#'
#' @return
#' @export
#'
#' @importFrom lme4 lmer
#'
#' @examples
lmm.lme4 <- function(model, data){

  if (class(model)!="lmerMod"){

    model.output <- lmer(model,
                         data = data, REML = FALSE,
                         control = lmerControl(optimizer ="Nelder_Mead"))

    pred.RE <- predRE.lme4(model.output, data)

    return(list(model.output = model.output, pred.RE = pred.RE))

  }else{

    pred.RE <- predRE.lme4(model = model, data = data)

    return(list(model.output = model, pred.RE = pred.RE))

  }


}