# \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)
plot(net) # network graph
plot(net, which = 2) # contamination heatmap
plot(net, which = 3) # StARS instability path
}
# }
Run the code above in your browser using DataLab