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