Nothing
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);
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.