Thanks for sending that, Ben. I have incorporated a slightly modified
version, with attribution, in the lme4 sources.
On Tue, Apr 28, 2009 at 8:03 AM, Ben Bolker bol...@ufl.edu wrote:
I think the following works, but use with caution -- I just
wrote it last night.
setMethod(refit,
I think the following works, but use with caution -- I just
wrote it last night.
setMethod(refit, signature(object = mer, newresp = matrix),
function(object, newresp, ...)
{
## newresp - as.double(newresp[!is.na(newresp)])
wts - rowSums(newresp)
newresp
2 matches
Mail list logo