R/getMSF.R

In FastJM: Semi-Parametric Joint Modeling of Longitudinal and Survival Data

GetMSF <- function(GetEfun, beta, gamma1, alpha1, H01, 
                 Sig, sigma, Z, X1, Y, X2, survtime, cmprsk, mdata, mdataS) {
  
  if(is.list(GetEfun)) {
    FUNBS <- as.matrix(GetEfun$FUNBS)
    FUNEC <- as.matrix(GetEfun$FUNEC)
    FUNBEC <- as.matrix(GetEfun$FUNBEC)
    FUNBSEC <- as.matrix(GetEfun$FUNBSEC)
    FUNB <- as.matrix(GetEfun$FUNB)
    
    getMpara <- getMCSF(beta, gamma1, alpha1, H01, Sig, sigma, Z, X1, Y, X2, 
                        survtime, cmprsk, mdata, mdataS,
                        FUNBS, FUNEC, FUNBEC, FUNBSEC, FUNB)
    
    return(getMpara)
    
  } else {
    return(0);
  }
}