Displaying 1 result from an estimated 1 matches for "mclustdatest".
2011 Feb 23
0
Problem with Mclust
...<- sample(seq(sample_percentage*dim(my_data)[1]))
train_set <- my_data[ms, sel_col]
my_labels <- my_data[ms,-sel_col]
train <- mclustDAtrain(train_set, labels = my_labels)
## training step
summary(train)
print("OK training")
test_set <- my_data[-ms, sel_col]
test <- mclustDAtest(test_set, train) ## compute model densities
clTest <- summary(test)$class ## classify training set
err_est <- classError(clTest,my_data[-ms,-sel_col])