Displaying 1 result from an estimated 1 matches for "mclustdatrain".
2011 Feb 23
0
Problem with Mclust
...read.csv("http://dl.dropbox.com/u/5685598/dataedges.csv",
header=FALSE)
my_data <- as.matrix(my_data)
set.seed(1234)
ms <- 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...