# NOT RUN {
# default prior
irisBIC <- mclustBIC(iris[,-5], prior = priorControl())
summary(irisBIC, iris[,-5])
# equivalent to previous example
irisBIC <- mclustBIC(iris[,-5],
prior = priorControl(functionName = "defaultPrior"))
summary(irisBIC, iris[,-5])
# no prior on the mean; default prior on variance
irisBIC <- mclustBIC(iris[,-5], prior = priorControl(shrinkage = 0))
summary(irisBIC, iris[,-5])
# equivalent to previous example
irisBIC <- mclustBIC(iris[,-5], prior =
priorControl(functionName="defaultPrior", shrinkage=0))
summary(irisBIC, iris[,-5])
defaultPrior( iris[-5], G = 3, modelName = "VVV")
# }
Run the code above in your browser using DataLab