# \donttest{
if (requireNamespace("glmnet", quietly = TRUE)) {
data(expenditures)
set.seed(1)
net <- cellNetCoDa(expenditures, method = "mb",
lambda_grid = c(0.4, 0.2, 0.1, 0.05), B = 10, k = 2)
net
}
# }
Run the code above in your browser using DataLab