R/Q3.r

In sp2019-antibiotics/Team-Student: T-Mixture

Defines functions Q3

Documented in Q3

Q3 <- function(s, a, b)
{
  return(invgamma::dinvgamma(exp(s)^2, shape= a, scale= b, log=TRUE))
}