# NOT RUN {
data(MultipleFeatures)
alpha<-0.5
Q<-15
p<-ncol(MultipleFeatures[,-1])
ns<-FHCSnumStarts(q=Q,eps=(1-alpha)*4/5)
RunExample<-FALSE
if(RunExample){
	Fit<-FastHCS(x=MultipleFeatures[,-1],q=Q,nSamp=ns,seed=1)
	colvec<-rep("orange",nrow(MultipleFeatures))
	colvec[MultipleFeatures[,1]==1]<-"blue"
	plot(Fit,col=colvec,pch=16)
}
# }
Run the code above in your browser using DataLab