R/jmfit.R

Defines functions jmfit

Documented in jmfit

jmfit <-
function(jm,data,jm2=NULL,data2=NULL,Maxiter) {
   if (is.null(jm2)==TRUE) {
    kkk<-length(jm)
    if (kkk==2) res<-jmfit2(jm[[1]],jm[[2]],data[[1]],data[[2]],Maxiter)
    if (kkk==3) res<-jmfit3(jm[[1]],jm[[2]],jm[[3]],data[[1]],data[[2]],Maxiter)
    } else {
      res<-jmfit_FM(jm,data,jm2,data2,Maxiter)
    }
    return(res)
}

Try the frailtyHL package in your browser

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

frailtyHL documentation built on Dec. 1, 2019, 1:25 a.m.