data(GvHD)
fs <- GvHD[1:2]
getFlowFrame(fs)# fs is a flowSet
dataDir <- system.file("extdata",package="flowWorkspaceData")
gs <- load_gs(list.files(dataDir, pattern = "gs_manual",full = TRUE))
getFlowFrame(gs)# gs is a GatingSet
Run the code above in your browser using DataLab