## Not run:
# odd <- seq(from = 1, to = nrow(iris), by = 2)
# even <- odd + 1
# X.train <- iris[odd,-5]
# Class.train <- iris[odd,5]
# X.test <- iris[even,-5]
# Class.test <- iris[even,5]
#
# irisMclustDA <- MclustDA(X.train, Class.train)
#
# predTrain <- predict(irisMclustDA)
# predTrain
# predTest <- predict(irisMclustDA, X.test)
# predTest
# ## End(Not run)
Run the code above in your browser using DataLab