Extracts parameters of certain mixture components from the output of
summary.mclustBIC
and updates proportions so that
they sum up to 1.
extract.mixturepars(mclustsum,compnumbers,noise=FALSE)
output object of summary.mclustBIC
.
vector of integers. Numbers of mixture components.
logical. Should be TRUE
if a noise component was fitted by
mclustBIC
.
Object as component parameters
of
summary.mclustBIC
-output, but for specified
components only. (Orientation information from all components is kept.)
# NOT RUN {
set.seed(98765)
require(mclust)
iriss <- iris[sample(150,20),-5]
irisBIC <- mclustBIC(iriss,G=5,modelNames="VEV")
siris <- summary(irisBIC,iriss)
emp <- extract.mixturepars(siris,2)
emp$pro
round(emp$mean,digits=1)
emp$variance$modelName
round(emp$variance$scale,digits=2)
# }
Run the code above in your browser using DataLab