lapply(groups,rfun,rdata=NULL)
rfun(groups[[1]],rdata=NULL)
rfun(groups[[1]],data)
rfun(groups[[1]],data=data.frame(y=15))
rfun(groups[[1]],rdata=data.frame(y=15))
Droplevels
rfun
debug(rfun)
rfun(groups[[1]],rdata=data.frame(y=15))
Droplevels
data
Droplevels(eval(parse(text=lab)))
Droplevels(eval(parse(text=labs[1])))
labs
f
eval(pars(text=lab))
eval(parse(text=lab))
lab <- labs[[1]]
eval(parse(text=lab))
eval(parse(text=lab),parent.frame())
lab
eval(parse(text=lab),data)
)
lab
Droplevels
Q
search()
detach(2,unload=TRUE)
model.matrix(~1)
debug(glmmadmb:::process_randformula)
debug(glmmADMB:::process_randformula)
rchar
f[1]
f[2]
as.character(f[2])
cfun(LHS[[1]],mdata=data)
debug(cfun)
cfun(LHS[[1]],mdata=data)
mdata
is.data.frame(mdata)
f[3]
nrow(mdata)
m
Q
detach(2)
c
Q
q()
n
?rm
library(lme4Eigen)
?lmer
?getME
q()
n
library(glmmADMB)
?glmmadmb


bfit2
q()
n
q()
n
q()
n
q()
n
debug(glmmADMB:::mcmc_transform)
head(m)
q()
n
help.search("as.mcmc")
debug(glmmadmb)
debug(glmmadmb)
phi
out$phi
phi <- out$phi
debug(mcmc_transform)
out$mcmc <- mcmc_transform(out$mcmc, phi, fnames = names(bpar))
Q
q()
n
q()
n
q()
n
q()
n
drop1(g1M)
traceback()
drop1(g1M)
?extractAIC
AIC.glmmADMB
glmmADMB:::AIC.glmmadmb
extractAIC.glmmadmb <- function(x,...) AIC(x)
drop1(g1M)
debug(drop1)
drop1(g1M)
t1
tl
ans
debug(drop1)
drop1(g1)
nfit
debug(glmmadmb)
get_fixedformula(eval(mf$formula,parent.frame()))
debug(get_fixedformula)
get_fixedformula(eval(mf$formula,parent.frame()))
lchar
rchar
rchar
rchar
rchar
lchar
offsetstr
rchar
rchar
rchar
rchar=="")
rchar==""
rchar
rchar
rchar
Q
Q
Q
q()
n
debug(drop1)
drop1(g1,test="Chisq")
ans
Q
example(glm)
ls()
extractAIC(glm.D93)
?extractAIC
logLik(g1)
str(logLik(g1))
unclass(logLik(g1))
q()
n
debug(drop1)
logLik(g1)
nfit
logLik(nfit)
extractAIC(nfit)
Q
q()
n
