R/dispersion_orig2optim.R

In spmodel: Spatial Statistical Modeling and Prediction

dispersion_orig2optim <- function(dispersion_initial) {
  dispersion_orig2optim_val <- log(dispersion_initial$initial)
  names(dispersion_orig2optim_val) <- "dispersion_log"
  dispersion_orig2optim_is_known <- dispersion_initial$is_known
  names(dispersion_orig2optim_is_known) <- "dispersion_log"

  # return dispersion parameter vector
  dispersion_orig2optim_val <- ifelse(dispersion_orig2optim_val > 50 & !dispersion_orig2optim_is_known, 50, dispersion_orig2optim_val)
  dispersion_orig2optim_val <- ifelse(dispersion_orig2optim_val < -50 & !dispersion_orig2optim_is_known, -50, dispersion_orig2optim_val)

  dispersion_initial_list_val <- list(
    value = dispersion_orig2optim_val,
    is_known = dispersion_orig2optim_is_known
  )
  dispersion_initial_list_val
}