R/inits.R

In poissonconsulting/smbr: Facilitates Bayesian Analysis using STAN

inits <- function(data, gen_inits, nchains) {
  if (identical(gen_inits(data), list())) {
    return(rep("random", nchains))
  }

  inits <- list()
  for (i in 1:nchains) {
    inits[[i]] <- gen_inits(data) # %>%
    #      purrr::map(function(x) list(x))
  }
  inits
}