R/rlog_norm.R

In niklasmaltzahn/multistate: simulation and estimation of multistate models

Defines functions rlog_norm

Documented in rlog_norm

rlog_norm <- function(n, sigma){

  if(max(dim(Sigma)) > 1){
    mu <- -0.5 * diag(sigma)
    exp(mvrnorm(n, mu, sigma))
  } else {
    exp(rnorm(n, - 0.5 * sigma, sigma))
  }

}