R/tran1.R

tran1 <-
function(y,c1)
{
  ty <- log(y+sqrt(y^2+y/c1^2)+1/(2*c1^2))
  return(ty)
}
lunge111/intSEQ documentation built on May 20, 2019, 9:38 a.m.