R/glmmixed.R

In ewenharrison/summarizer: Summarizer

# Function to run multilevel logistic regression ----
glmmixed <- function(df.in, dependent, explanatory, random_effect){
	lme4::glmer(paste0(dependent, "~", paste(explanatory, collapse="+"), " + (1|", random_effect, ")"),
				data=df.in, family="binomial", control=lme4::glmerControl(optimizer="bobyqa",
																														optCtrl=list(maxfun=200000)))
}