library(plateCore)
data(plateCore)
## Create a flowPlate
fp <- flowPlate(pbmcPlate,wellAnnotation,"p1001")
plotPlate(transform("FL1-H"=log10) %on% fp,x="FL1-H",method="mean",col=c("yellow", "darkblue"))
Run the code above in your browser using DataLab