powered by
diri_nr_type2(a1,a2,ma,tol)
diri.nr2
x <- matrix( rgamma(100 * 4, c(5, 6, 7, 8), 1), ncol = 4) x <- x / rowSums(x) system.time( for(i in 1:1000) diri.nr2(x) )
Run the code above in your browser using DataLab