datadir <- system.file("extdata", package = "PGSEA")
sample <- readGmt(file.path(datadir, "sample.gmt"))
str(sample)
sample[[1]]@reference <- "fileName"
## Not run:
# writeSmc(sample[[1]])
# ## End(Not run)
Run the code above in your browser using DataLab