R/condaxialS2fromg.R

In blackbox: Black Box Optimization and Exploration of Parameter Space

Defines functions condaxialS2fromg

Documented in condaxialS2fromg

condaxialS2fromg <- function(gv, D2bool) {
  if (D2bool) {
    return((1+gv)/((2-gv)*(1-gv)^2))
  } else return((1+gv)/((1-gv)^2))
}

Try the blackbox package in your browser