R/lmmbylmer.R

Defines functions lmmbylmer

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/miqtl documentation built on June 13, 2022, 4:20 p.m.