tests/testthat/test-lmWrapper-glmer.R

obj <- new('LMERlike', design=colData(fd), formula=~Stim.Condition + (1|Subject.ID), strictConvergence = FALSE)

context('LMERlike')
if(require(lme4)){
    obj <- fit(obj, response=exprs(fd)[,2])
objC <- lmer(obj@response ~Stim.Condition +  (1|Subject.ID), data=as.data.frame(obj@design), subset=obj@response>0, REML=FALSE)
objD <- glmer(obj@response>0 ~Stim.Condition + (1|Subject.ID), data=as.data.frame(obj@design), family=binomial())
source('common-lmWrapper-tests.R', local=TRUE)
    try(detach('package:lme4'), silent=TRUE)
}

Try the MAST package in your browser

Any scripts or data that you put into this service are public.

MAST documentation built on Dec. 2, 2018, 6 p.m.