### here we (erroneously) assume that cluster 1 is an outlier and we flag it so below
step3.withoutliers <- cluster2outlier(step3,out.cluster=1)
### the outlier samples can be removed by FluoSelection_byRun()
step3.withoutliers <- FluoSelection_byRun(step3.withoutliers,
other=which(step3.withoutliers$GAPgroups[,1]!=-999))
Run the code above in your browser using DataLab