data(GvHD)
fr <- GvHD[[1]]
fortify_fs(fr)
dataDir <- system.file("extdata",package="flowWorkspaceData")
gs <- load_gs(list.files(dataDir, pattern = "gs_manual",full = TRUE))
attr(gs, "subset") <- "CD4"
fortify_fs(gs)
Run the code above in your browser using DataLab