library(rcellminer)
molDB <- getMolDataMatrices()
dataSets <- c("swa", "exp", "mut")
molDB <- molDB[dataSets]
molDBFeatures <- lapply(molDB, function(x) {unname(removeMolDataType(rownames(x)))})
commonFeatures <- Reduce(intersect, molDBFeatures)
write.table(commonFeatures, file=file.path(.lmp, "dockerfiles", "swathAnalysis", "biowulf", "commonFeatures.txt"),
quote=FALSE, row.names=FALSE, col.names="commonFeatures")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.