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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.