R/rmult.R

rmult <-
  function(p){
    x=t(apply(p,1,function(x)rmultinom(1,1,x)))
    x=x%*%seq(ncol(p))
    drop(x)
  }
jeffwong/glmnet documentation built on May 19, 2019, 4:02 a.m.