R/lmmbylmer.R

lmmbylmer <- function(formula, data, REML, weights){
  if(is.null(weights)){
    lmer.fit <- lmer(formula=formula, data=data, REML=REML)
  }
  else{
    lmer.fit <- lmer(formula=formula, data=data, REML=REML, weights=weights)
  }
  return(lmer.fit)
}
gkeele/kqtl documentation built on May 17, 2019, 6:06 a.m.