R/jglog.R

Defines functions jglog

jglog <-
function(y,lambda)
{
  z <- sqrt(y^2+lambda)
  gmn <- exp(mean(log(z)))
  y1 <- glog(y,lambda)
  y1 <- y1*gmn
  return(y1)
}

Try the LMGene package in your browser

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

LMGene documentation built on April 28, 2020, 8:01 p.m.