R/List2Vec.R

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)
}

Try the JSM package in your browser

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

JSM documentation built on Sept. 4, 2020, 1:08 a.m.