R/my.inverse.mlogit.r

Defines functions my.inverse.mlogit

my.inverse.mlogit <- function(e, log = FALSE){
  ### e is a matrix with dimension # of observations by # of synonymous codons.
  ret <- .Call("invmlogit", e, nrow(e), ncol(e), PACKAGE = "cubfits")
  if(log){
    ret <- log(ret)
  }
  ret
} # End of my.inverse.mlogit().
snoweye/cubfits documentation built on Nov. 9, 2021, 3:39 a.m.