Displaying 1 result from an estimated 1 matches for "sample_percentage".
2011 Feb 23
0
Problem with Mclust
...eters = parameters, :
data must be one-dimensional
In addition: There were 42 warnings (use warnings() to see them)
Can anyone tell me what I am doing wrong?
Many thanks
Lorenzo
############################
library(mclust)
rm(list=ls())
#Define the training dataset
sel_col <- c(1,2,4)
sample_percentage <- 0.9
my_data <- 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[m...