R/ICMg.multinom.single.R

Defines functions `ICMg.multinom.single`

`ICMg.multinom.single` <-
function(prob) {
  cs <- cumsum(prob)
  which.max(runif(1) <= cs/cs[length(cs)])
}
ChristophRau/wMICA documentation built on Feb. 25, 2021, 2:10 p.m.