datadir <- system.file("extdata", package = "PGSEA")
sample <- readGmt(file.path(datadir, "sample.gmt"))
sample[1:2] <- editSmc(sample[1:2],"creator","Joe Smith")
scanned <- scanSmc(sample,"creator","Joe Smith")
str(scanned)
Run the code above in your browser using DataLab