# NOT RUN {
#-------------------------------------------------------------------
# Checker for Two Types of Inputs
#-------------------------------------------------------------------
## DATA GENERATION
d1 = array(0,c(5,3))
d2 = list()
for (i in 1:5){
single = abs(stats::rnorm(3))
d1[i,] = single
d2[[i]] = single
}
## RUN
test1 = wrap.multinomial(d1)
test2 = wrap.multinomial(d2)
# }
Run the code above in your browser using DataLab