data(CuticleIR)
class <- classPCA(CuticleIR)
mclustSpectra(CuticleIR, class, main = "Cuticle IR", plot = "BIC")
mclustSpectra(CuticleIR, class, main = "Cuticle IR", plot = "proj")
mclustSpectra(CuticleIR, class, main = "Cuticle IR", plot = "error",
truth = CuticleIR$groups)
Run the code above in your browser using DataLab