dataDir <- system.file("extdata",package="flowWorkspaceData")
gs <- load_gs(list.files(dataDir, pattern = "gs_manual",full = TRUE))
attr(gs, "subset") <- "CD4" #must attach subset information to GatingSet object before foritfying it
fortify(gs)
fs <- getData(gs, "CD8")
fortify(fs)#fs is a flowSet/ncdfFlowSet
fr <- fs[[1]]
fortify(fr)#fr is a flowFrame
Run the code above in your browser using DataLab