R/trans.R

In RSGHB: Functions for Hierarchical Bayesian Estimation: A Flexible Approach

trans = function(b, env) {
  C <- b
  gDIST <- env$gDIST
  gMAXCOEF <- env$gMAXCOEF
  gMINCOEF <- env$gMINCOEF
  for (k in 1:dim(b)[2]) {
    if (gDIST[k] == 2) {
      C[, k] <- exp(b[, k])
    }
    if (gDIST[k] == 3) {
      C[, k] <- -1 * exp(b[, k])
    }
    if (gDIST[k] == 4) {
      C[, k] <- b[, k] * (b[, k] >= 0)
    }
    if (gDIST[k] == 5) {
      C[, k] <- b[, k] * (b[, k] <= 0)
    }
    if (gDIST[k] == 6) {
      C[, k] <- exp(b[, k])/(1 + exp(b[, k]))
      C[, k] <- (C[, k] * (gMAXCOEF[k] - gMINCOEF[k])) + gMINCOEF[k]
    }
  }
  return(C)
}