Sparsify weights
This function makes weights of a mixture model more sparse using gradient based penalty methods.
sparsify_weights(weight.matrix.proposed, weight.matrix.current = NULL, penalty = "entropy", lambda = 0)
weight.matrix.proposed |
N \times K weight matrix |
weight.matrix.current |
N \times K weight matrix |
penalty |
type of penalty: |
lambda |
penalization parameter: larger
|
WW <- matrix(c(rexp(10, 1/10), runif(10)), ncol = 5, byrow = FALSE) WW <- normalize(WW) WW_sparse <- sparsify_weights(WW, lambda = 0.1) WW_more_sparse <- sparsify_weights(WW, lambda = 0.5) compute_mixture_penalty(WW) compute_mixture_penalty(WW_sparse) compute_mixture_penalty(WW_more_sparse)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.