R/multinom.R

Defines functions .multinom

.multinom<-function(x, y) {
  coeff <- 1
  for (i in seq_len(length(y))) {
    coeff <- coeff * choose(x, y[i])
    x <- x - y[i]
  }
  return(coeff)
}

Try the CoreGx package in your browser

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

CoreGx documentation built on Dec. 20, 2019, 1:08 a.m.