powered by
appendToGmm(mod1, mod2)
temp <- appendToGmm(gmmpen[[1]], gmmpen[[2]])
Run the code above in your browser using DataLab