library(flowCore)
library(flowWorkspace)
data("GvHD", package = "flowCore")
gs <- GatingSet(GvHD)
plot_gs(gs)
gh_pop_get_indices(gs[1], "root")
gh_pop_get_data(gs[1])
exprs(gs@data[[1]])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.