R/dsigc.R

Defines functions dsigc

Documented in dsigc

# density function of the SIGC(M,C) prior
dsigc <- function(x, M, C) {
  res <- rep(-Inf, length(x))
  res[x > 0] <- log(4)+log(C)+log(M-1)-5*log(x[x > 0])-M*log(1+C*x[x > 0]^{-4})
  result <- exp(res)
  return(result)
}

Try the ra4bayesmeta package in your browser

Any scripts or data that you put into this service are public.

ra4bayesmeta documentation built on Oct. 7, 2023, 1:07 a.m.