Calculating AWE from mclust package

Question

Is it possible to calculate the Approximate Weight of Evidence (AWE) from information obtained via the mclust R package?

Answer 1

According to R documentation, you should have access to function awe(tree, data) since version R1.1.7.

From the example on the linked page (in case of broken link),

data(iris)
iris.m _ iris[,1:4]
awe.val <- awe(mhtree(iris.m), iris.m)
plot(awe.val)

Answer 2

Following the formula from Banfield, J. and Raftery, A. (1993) Model-based Gaussian and non-Gaussian clustering. Biometrics, 49, 803-821. -2*model$loglik + model$d*(log(model$n)+1.5) Where model represents the model with number of cluster solutions selected. Keeping this question in the hope that it may help someone in the future.