powered by
gmmToMppca(model, alpha = 500)
temp <- gmmToMppca(gmmpen[[3]])
Run the code above in your browser using DataLab