library(plateCore)
data(plateCore)
## Get the lymphocytes
rectGate <- rectangleGate("FSC-H"=c(300,700),"SSC-H"=c(50,400))
pbmcPlate <- Subset(pbmcPlate, rectGate)
## Create a flowPlate object from the platePBMC and the wellAnnotation
fp <- flowPlate(pbmcPlate,wellAnnotation,plateName="P1")
## Subset the flowPlate, creating another flowPlate
fpSmall <- fp["A01"]
## Extract a flowFrame from a flowPlate
ff <-fp[["A01"]]
## Retrieve sample names from flowPlate
sampNames <- sampleNames(fp)
## Retrieve the annotatedDataFrame describing the flowPlate
adf <- phenoData(fp)
Run the code above in your browser using DataLab