##demonstrate how to use a flowFrame
## Not run:
# require(flowCore)
# samp <- read.FCS(system.file("extdata","0877408774.B08",
# package="flowCore"))
# ##do the clustering based on the asinh transforamtion of
# ##the first two FL channels
# fp<-flowPeaks(asinh(samp@exprs[,3:4]))
# plot(fp)
# ## End(Not run)
data(barcode)
fp<-flowPeaks(barcode[,c(1,3)])
plot(fp)
##to compare it with the gold standard
evalCluster(barcode.cid,fp$peaks.cluster,method="Vmeasure")
#to remove the outliers
fpc<-assign.flowPeaks(fp,fp$x)
plot(fp,classlab=fpc,drawboundary=FALSE,
drawvor=FALSE,drawkmeans=FALSE,drawlab=TRUE)
#to adjust the cluster by increasing the tol,h0, h, which results
#in a smaller number of clusters
fp2<-adjust.flowPeaks(fp,tol=0.5,h0=2,h=2)
summary(fp2)
print(fp) #an alternative of using summary(fp)
Run the code above in your browser using DataLab