R/my.inverse.mlogit.r

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().

Try the cubfits package in your browser

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

cubfits documentation built on May 2, 2019, 4:08 a.m.