## Not run:
# library(MGL)
# n = 20 #sample size
# p = 100 #variable size
# k = 5 #module size
# lambda = .01 #penalty parameter to induce sparsity
# data = matrix(rnorm(n*p), ncol=p)
# # to start with initial random module latent variables
# L = matrix(rnorm(n*k), ncol=k)
# MGL(data, L, lambda)
# # to start with k-means cluster centroids as module latent variables
# L = t(kmeans(t(data), k)$centers)
# MGL(data, L, lambda)
# ## End(Not run)
Run the code above in your browser using DataLab