odd <- seq(1, nrow(cross), by = 2)
train <- mclustDAtrain(cross[odd,-1], labels = cross[odd,1]) ## training step
summary(train)
even <- odd + 1
test <- mclustDAtest(cross[even,-1], train) ## compute model densities
testSummary <- summary(test)
names(testSummary)
classError(testSummary$classification,cross[even,1])
Run the code above in your browser using DataLab