R/List2Vec.R

In hadjipantelis/JSM: Semiparametric Joint Modeling of Survival and Longitudinal Data

List2Vec <- function (theta) {

  Bsigma <- theta$Bsigma
  Bsigma <- if (is.matrix(Bsigma)) Bsigma[lower.tri(Bsigma, diag = TRUE)] else Bsigma
  
  para <- c(theta$beta, theta$phi, theta$alpha, theta$Ysigma, Bsigma)
  return(para)
}