R/Q4.r

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

Defines functions Q4

Documented in Q4

Q4 <- function(df)
{
  return(ifelse(exp(df) <= 10^12, 0, -Inf))
}