Here we are restricting hierarchical GMM to only go through on level. We are comparing the cluster results to the gaba
labels.
set.seed(314)
h2 <- hmc(sdat, maxDepth = 2, ccol = ccol, maxDim = 12)
h2lab <- viridis(max(h2$dat$labels$col))
stackM(h2, ccol = ccol, centered = TRUE, depth = 1)
acols2 <- alpha(h2lab[h2$dat$labels$col], 0.5)
pairs(h2$dat$data, pch = 19, cex = 0.4, col = acols2)