R/lmm.reml.jack.R

Defines functions lmm.reml.jack

lmm.reml.jack <-
function(formula,data=list(),criterion=NULL){
   if(is.null(criterion))criterion=1e-3
   if(is.null(data))gdata=mixed.data(formula)
   else gdata=mixed.data(formula,data)
   res=genmod.reml.jack(gdata,criterion=criterion)
   #res$FixedEffect=res$FixEffect
   return(res)
}

Try the minque package in your browser

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

minque documentation built on May 29, 2017, 3:51 p.m.