powered by
subGmm(model, dims = c(1, 2), inds = NULL)
temp <- subGmm(gmmpen[[1]], inds=1:3)
Run the code above in your browser using DataLab